ein kleines schnell geschriebenes programm.
kann man sicher besser machen, aber auf die schnelle:
----------------------------------
Dim db As Database
Dim rs As Recordset
Dim zähler As Long
Set db = CurrentDb
Set rs = DB.OpenRecordset("SELECT [Nummer] From [Tabelle1]")
On Error GoTo Sprung2
rs.MoveLast
If rs.EOF Then
Sprung2:
zähler = 1
Me![Nummer] = zähler
rs.Close
Set db = Nothing
GoTo sprung
End If
zähler = rs![Nummer] + 1
Me![Nummer] = zähler
rs.Close
Set db = Nothing
sprung:
--------------------------------------
gruss
chris
|