Office: Automatische Vergabe von Auftragsnummern

Hallo zusammen,

ich bin kurz vorm Verzweifeln.
Ich bin zur Zeit Praktikant in einem Büro, daß mit einer Access-DB arbeitet und meine Aufgabe ist es, das Teil zu optimieren.

Mein Problem: Bei uns gibt es ein Formular Namens Auftragserfassung und ich will, daß die Auftragsnummer automatisch vergeben werden soll, also schon beim Öffnen des Formulars. Da aber mehrere User gleichzeitig darauf zugreifen, und logischerweise eine Auftragsnummer nicht zweimal vorkommen soll, hab ich mir Folgendes überlegt:

Beim Öffnen soll daß Textfeld mit der Auftragsnummer automatisch gefüllt werden. Da es aber meist etwas Zeit braucht, bis die Auftragserfassung fertig ist, soll vor dem Speichern nochmals kurz gecheckt werden, ob die Nummer schon vorhanden ist und wenn ja, dann einfach um 1 erhöhen und dann nochmal abchecken...

Soviel zu meinem Problem. Meine Frage ist nun:
a) Ist das überhaupt möglich, wie ich mir das denke und
b) Wie soll ich das implementieren? Geht schon mit VBA? Meine Programmierkenntnisse beschränken sich leider nur auf HTML und a bissal SQL.

Bitte Bitte helft mir.
Dankeschön schon mal im Voraus.

mfg Phil

:)

 

Hallo Phil,

die Auftragsnummer vergibst Du am Besten erst vor dem Speichern des Datensatzes im Formular.
Schreibe dazu in der Ereignissprozedur Vor Aktualisierung des Formulars:

Code:

If Me New Record Then '//Code nur ausführen wenn der aktuelle DS ein neuer ist
Me.Auftragsnummer = DMax("Auftragsnummer", "DeineTabelle") + 1
End If
[/quote]

Problematisch wird es wenn Du zu dem Auftrag auch noch Auftragsdetails hast und die Details zum Auftrag über die Auftragsnummer verknüpft sind.

Gruß
Gustav

 

Hi - du kannst die Auftragsnummer vergeben und direkt danach den den Datensatzes speichern:
DoCmd.RunCommand acCmdSaveRecord

Thomas

 

Vielen, vielen Dank, aber leider funzt das nicht so wie gewollt bei mir.
Ich hab mich vorher evtl schlecht ausgedrückt.
Bei uns ist es momentan so, daß die Sachbearbeiter in einem Kombinationsfeld nachschaun müssen, wie die letzte Auftragsnummer war und dann in dem Textfeld die nächste Nummer eingeben müssen. Der SQL-Code darin sieht wie folgt aus:

Code:

SELECT DISTINCTROW Auftrag.Auftragsnummer
FROM Auftrag
ORDER BY Auftrag.Auftragsnummer DESC;[/quote]
PS: Danke nochmals für die Hilfe und dafür, daß Ihr Euch die Zeit nehmt.

[ 27. November 2002: Beitrag editiert von: donharl_phil ]

 

Hi - die Nummernvergabe würde ich wie Gustav vorgeschlagen hat, automatisiert ablaufen lassen. Da freuen sich die User: "Sehen Sie, Sie müssen nur noch hier draufklicken usw." z.B. Auf eine Schaltfläche, die "Neuer Auftrag" heisst.
' Neues Formular aufrufen
DoCmd.OpenForm "frmAuftrag", , , , acFormAdd
' Auftrgsnummer ermitteln
Forms![frmAuftrag]![Auftragsnummer] = DMax("Auftragsnummer", "DeineTabelle") + 1
Forms![frmKunde]![DatumErstellt] = Now

Vielleicht hilfts
Thomas