Automatisches hochzählen funktioniert nicht

[Pavroo]

In einem UFo ist ein Code hinterlegt, der wohl das Feld "Reihenfolge" hochzählen soll.
Die DB habe ich so übernommen, der Code hat jedoch noch nie funktioniert.

Sie dürfen in diesem Board keine Dateianhänge sehen.

Code [Auswählen] Erweitern

Private Sub Form_BeforeUpdate(Cancel As Integer)
   If Len(Nz(Me!Reihenfolge)) = 0 Then   'Wenn Reihenfolgenummer noch nicht ausgefüllt, belegen durch:
      Me!Reihenfolge = DCount("*", "tblSetlist", "GigID = " & Me!GigId & " AND ID <" & Me!ID) + 1   'Anzahl der vorhandenen Songs im aktuellen Gig, plus 1
   End If
End Sub

Es gibt in den entsprechenden Tabellen auch wirklich kein Feld namens "ID"

Sie dürfen in diesem Board keine Dateianhänge sehen.

Sie dürfen in diesem Board keine Dateianhänge sehen.

Wie muß der Code verändert werden, damit er funktioniert? 

[MzKlMu]

Hallo,
entferne den Teil der die ID verwendet.

[Pavroo]

So einfach ist das - unglaublich
Herzlichen Dank!

[MzKlMu]

Hallo,
wie kommst du auf die Idee dass das kompliziert sein könnte, wenn die Fehlermeldung das schon richtig sagt?