HIEEELFEEEE meine DAtenbank zählt sich zum ....

[Christian111]

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

[database]

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

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?

Code [Auswählen] Erweitern


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