Office: Laufende Nr

Hallo!

Private Sub Workbook_Open()
On Error GoTo Fehler:
Range("D23").Select
Set Db = Opendatabase(Name:="C:\Users\gookchannel\Desktop\test\Makro\Belegnummern.mdb")
Set rs = Db.OpenRecordset(Name:="Belegnummern")
With rs
.AddNew
!datum = Date
.Update
End With
rs.MoveLast
ActiveCell.FormulaR1C1 = rs.fields(0).Value
rs.Close
Db.Close
'ActiveCell.FormulaR1C1 = "2"
Exit Sub
Fehler:
MsgBox ("Fehler!")
End Sub

Habe eine Tabelle mit Folgendem Code. Die Laufende NR wird in einer externen Accessdatei gespeicher. Nun mein Problem bin grade bei der Laufenden Nr 400 will diese zurück setzen auf 300. Habe in Access einfach mal 100 Datensätze geöscht aber die Laufenede NR. geht trotzdem immer bei 401 weiter kann das an dem Code liegen oder an der DAtenbank? DAnke schonmal Gruß

PS: Falls es an der DAtenbank liegt kann der Thread ja verschoben werden.

 

(Ich hoffe, Du hast nicht Primärschlüssel und Datenfeld miteinander vermischt. Aber das ist ein anderes Thema...)

Die "laufende Nummer" wird kontinuierlich hochgesetzt, auch nachdem Datensätze gelöscht werden. Das ist normal und, zumindest von Microsoft, so gewolt. Es gibt aber eine Abhilfe:

Nach dem Löschen der Datensätze muß die Datenbank komprimiert werden. Damit wird der interne Zähler wieder auf den höchsten Datensatz zurückgesetzt und das "fortlaufend" klappt wieder lückenlos.

Die Alternative benötigt mehr oder weniger VBA. Mittels =dmax(...)+1 als Standardwert in einem Formular für das Feld läßt sich immer die jeweils nächsthöhere Nr. bestimmen, auch nach Löschoperationen.

Gruß, Michael

PS: Ja, es liegt an Access, Verschieben ist also durchaus eine Option. ;-)