PDA

Vollständige Version anzeigen : fortlaufende Nummer


MarioR
08.05.2001, 17:05
Hallo Leute,

gibt es eine einfache Möglichkeit in einem Feld mit fortlaufenden Nummern festzustellen, ob dazwischen Nummern fehlen? Wenn das der Fall ist, müßte ich dann jeweils die 1. fehlende Nummer wissen und wie groß die Lücke ist.

Hat da jemand eine Idee?

Ashley
08.05.2001, 19:34
Mit diesem code wird Dir jede freie Nummer im Testfenster ausgegeben:

Public Function CheckNumber()

Dim db As Database
Dim rs As Recordset
Dim sSql As String
Dim i As Long
sSql = "SELECT AdressNr From tblAdresse"
sSql = sSql & " ORDER BY AdressNr ASC"
Set db = CurrentDb
Set rs = db.OpenRecordset(sSql, dbOpenSnapshot)

If Not rs.EOF Then
i = rs!AdressNr
Do Until rs.EOF
If i < rs!AdressNr Then
Debug.Print i
Do
i = i + 1
If i = rs!AdressNr Then
Exit Do
End If
Debug.Print i
Loop
i = i + 1
Else
i = i + 1
End If
rs.MoveNext
Loop
End If

End Function


Ashley