vba stuff

gistfile1.txt

Function goForward()
On Error GoTo fehler
curId = Screen.ActiveForm.idFeld.Value
    DoCmd.OpenForm FormName:=Screen.ActiveForm.Name, _
    OpenArgs:="Suche bei " & Screen.ActiveForm.Name, _
    WhereCondition:="ID = " & curId + 1 ' Hier ist wichtig, dass ID keine Strings hat, sondern der Bedingung als Integer übergeben wird.
    lastId = curId
    GoTo ende
fehler:
    MsgBox "Datensatz nicht vorhanden."
    DoCmd.OpenForm FormName:=Screen.ActiveForm.Name, _
    OpenArgs:="Suche bei " & Screen.ActiveForm.Name, _
    WhereCondition:="ID = " & lastId ' Hier ist wichtig, dass ID keine Strings hat, sondern der Bedingung als Integer übergeben wird.
ende:
End Function
Function goBackward()
curId = Screen.ActiveForm.idFeld.Value
If (IsNull(curId)) Then curId = lastId + 1
If (curId) >= 1 Then
    DoCmd.OpenForm FormName:=Screen.ActiveForm.Name, _
    OpenArgs:="Suche bei " & Screen.ActiveForm.Name, _
    WhereCondition:="ID = " & curId - 1 ' Hier ist wichtig, dass ID keine Strings hat, sondern der Bedingung als Integer übergeben wird.
End If
End Function