Habe leider immer noch das Problem dass meine Daten Bank mit diesem Ereignis Befehl
Private Sub Lagerort_AfterUpdate()
Private Sub Form_Current()
Dim nextID As Long
If Me.NewRecord = True Then
Me!Stocknummer = Nz(DMax("Stocknummer", "Fahrzeugbuch", "Jahr=" & Year(Now())), 0) + 1
End If
End Sub
Sofort nach Aufruf eines neuen Datensatzes zählt auch wenn nur die Automatischen Einträge angezeigt werden und im Feld "Lagerort "nichts eingetragen wurde :-\ ???
Bitte um Hilfe
habe kein SQL
Danke
Christian
Hallo,
ist dieser Beitrag nun gelöst? - wenn NEIN dann meine Frage:
Hast du im letzten Thread den letzten Beitrag gelesen?
http://www.access-o-mania.de/forum/index.php?topic=13594.msg76821#msg76821 (http://www.access-o-mania.de/forum/index.php?topic=13594.msg76821#msg76821)
Hier habe ich dich darauf hingewiesen, dass Form_Current der falsche ansatz ist und die Zählung in Abhängigkeit vom Feld 'Lagerort' erfolgen darf/muss!
Dann noch eine Frage:
in deinem Code steht das hoffentlich NICHT wirklich so drin?
Private Sub Lagerort_AfterUpdate()
Private Sub Form_Current()
Dim nextID As Long
If Me.NewRecord = True Then
Me!Stocknummer = Nz(DMax("Stocknummer", "Fahrzeugbuch", "Jahr=" & Year(Now())), 0) + 1
End If
End Sub
Der gesamte Code, der im Ereignis Form_Current steht ist zu entfernen!
Solange der Code drin steht, wird er ausgeführt, egal welche anderen Ereignisse du noch auslöst.
HTH