Access mir raucht der Kopf!!

[chrisne]

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