|
| Private Sub Befehl21_Click()
Dim nm As Variant
nm = DMax("[IDAUF]", "TAuftraege")
If IsNull(nm) Then
nm = 1
Else
nm = nm + 1
End If
DoCmd.GoToRecord , , acNewRec
Me.IDAUF = nm
End Sub
Hallo,
ich habe folgendes Makro geschrieben. Es funktioniert und erzeugt mir in einem Feld eine Auftragsnummer. Jetzt möchte ich, dass die Auftragsnummer folgendes Bild annimmt: 60012013 für den ersten Auftrag, 60102013 für den zehnten Auftrag und 61002013 für den 100tsten Auftrag. Kann mir jemand helfen.
Danke
Susanne | |
|
Vertrag-Nr. ergänzen