Access Format AutoWert mit Datum - Danke im vorraus!

[Frozenhead]

Ich suche eine Möglichkeit, automatisch (ähnlich "AUTOWERT") eine
Nummernfolge zu etablieren, die sich in jedem Datensatz einfügen lässt.



Beispiel: Pro Datensatz: Angebots-Nr., danach Auftrags-Nr. sowie
Rechnungsnummern .



A-04090001 - (A= Angebots-Nr.) (04 = Jahr) (09 = Monat) (0001 fortlaufende
Nr.)

AU-04090002 - (AU=Auftrags-Nr.) (04 = Jahr) (09 = Monat) (0002 fortlaufende
Nr.)

R-04090003 - (R=Rechnungs-Nr.) (04 = Jahr) (09 = Monat) (0003 fortlaufende
Nr.)



Pro Gruppe ( A bzw. AU bzw. R) sollte immer die nächst folgende Nummer
generiert werden.





Besten Dank im voraus für Ihre Hilfe





R. Holowaty

[Olaf Rabbachin]

Hi,

Post by Frozenhead
Ich suche eine Möglichkeit, automatisch (ähnlich "AUTOWERT") eine
Nummernfolge zu etablieren, die sich in jedem Datensatz einfügen lässt.

automatisch wird das nicht gehen, Du wirst dazu code, z.B. innerhalb des
betr. Formulars, benötigen.

Post by Frozenhead
Beispiel: Pro Datensatz: Angebots-Nr., danach Auftrags-Nr. sowie
Rechnungsnummern .
A-04090001 - (A= Angebots-Nr.) (04 = Jahr) (09 = Monat) (0001 fortlaufende
Nr.)

Da Du ja sicherlich das Angebots-, bzw. Rechnungsdatum speicherst, brauchst
Du eigentlich nur noch ein Feld für dazugehörige fortlaufende Nummer.
Diese kannst Du dann im Form_BeforeUpdate-event erzeugen, á la:

if <Rechnung> then
me!txtRA_Nummer = nz(dmax("AR_Nummer", "TabelleXY", _
"AR_Datum = #" & format(date(), "yyyy-mm-dd"),0) & _
& "# and AR_Rechnung = True") +1
else
me!txtRA_Nummer = nz(dmax("AR_Nummer", "TabelleXY", _
"AR_Datum = #" & format(date(), "yyyy-mm-dd"),0) & _
& "# and AR_Rechnung = True") +1
endif

Dabei ist AR_Rechnung ein bool'sches Feld (Ja für Rechnung, Nein für
Angebot), AR_Nummer das numerische Feld für die laufende Nummer, AR_Datum
das Angebots-/Rechnungsdatum.

Für die Ausgabe auf Berichten und/oder Formularen setzt Du dann einfach das
Datum und die laufende Nummer zusammen:
SELECT *, "A" & format(AR_Datum,"yymm") & AR_Nummer
FROM TabelleXY
WHERE AR_Rechnung = True
UNION SELECT *, "R" & format(AR_Datum,"yymm") & AR_Nummer
FROM TabelleXY
WHERE AR_Rechnung = False

Bis dann,
Olaf [MVP]
--
Bitte keine emails auf NG-postings.

My .02: www.Resources.IntuiDev.com

[Frozenhead]

Hi Olav,

kannste mir bidde nen tutorial machen ???

Danke Bestens im vorraus!!!

MFG

Post by Olaf Rabbachin
Hi,

Post by Frozenhead
Ich suche eine Möglichkeit, automatisch (ähnlich "AUTOWERT") eine
Nummernfolge zu etablieren, die sich in jedem Datensatz einfügen lässt.

automatisch wird das nicht gehen, Du wirst dazu code, z.B. innerhalb des
betr. Formulars, benötigen.

Post by Frozenhead
Beispiel: Pro Datensatz: Angebots-Nr., danach Auftrags-Nr. sowie
Rechnungsnummern .
A-04090001 - (A= Angebots-Nr.) (04 = Jahr) (09 = Monat) (0001 fortlaufende
Nr.)

Da Du ja sicherlich das Angebots-, bzw. Rechnungsdatum speicherst, brauchst
Du eigentlich nur noch ein Feld für dazugehörige fortlaufende Nummer.
if <Rechnung> then
me!txtRA_Nummer = nz(dmax("AR_Nummer", "TabelleXY", _
"AR_Datum = #" & format(date(), "yyyy-mm-dd"),0) & _
& "# and AR_Rechnung = True") +1
else
me!txtRA_Nummer = nz(dmax("AR_Nummer", "TabelleXY", _
"AR_Datum = #" & format(date(), "yyyy-mm-dd"),0) & _
& "# and AR_Rechnung = True") +1
endif
Dabei ist AR_Rechnung ein bool'sches Feld (Ja für Rechnung, Nein für
Angebot), AR_Nummer das numerische Feld für die laufende Nummer, AR_Datum
das Angebots-/Rechnungsdatum.
Für die Ausgabe auf Berichten und/oder Formularen setzt Du dann einfach das
SELECT *, "A" & format(AR_Datum,"yymm") & AR_Nummer
FROM TabelleXY
WHERE AR_Rechnung = True
UNION SELECT *, "R" & format(AR_Datum,"yymm") & AR_Nummer
FROM TabelleXY
WHERE AR_Rechnung = False
Bis dann,
Olaf [MVP]
--
Bitte keine emails auf NG-postings.
My .02: www.Resources.IntuiDev.com

[Olaf Rabbachin]

Hi,

Post by Frozenhead
Hi Olav,

ahem! BTW - der realname wird hier gerne gesehen (Eisschädel möchtest Du
nicht genannt werden, oder?), und zum Thema TOFUs (s. Dein letztes
posting): http:/got.to/quote

Post by Frozenhead
kannste mir bidde nen tutorial machen ???
Danke Bestens im vorraus!!!

was bitteschön habe ich denn gemacht? Da war doch alles dabei, was das Herz
begehrt?!

Bis dann,
Olaf [MVP]
--
Bitte keine emails auf NG-postings.

My .02: www.Resources.IntuiDev.com