Der Vorgang ist für ein geöffnetes Objekt nich zugelassen.

' zum nächsten Datensatz springen
Private Sub cmdNext_Click()
On Error GoTo GoNextError
    ModAlles.cmdNext_Click
 
    Fuellen
 
    DataGridFuellen
 
    lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
 
    lfd = ADOrs.AbsolutePosition
 
    Max_Zaehler = ADOrs.RecordCount
 
    If lfd = Max_Zaehler Then
        cmdNext.Enabled = False
        cmdLast.Enabled = False
        cmdPrevious.Enabled = True
        cmdFirst.Enabled = True
    Else
        cmdNext.Enabled = True
        cmdLast.Enabled = True
        cmdPrevious.Enabled = True
        cmdFirst.Enabled = True
    End If
 
Exit Sub
 
GoNextError:
    MsgBox Err.Description
End Sub

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.