frm_suchergebnisse

Option Compare Database

Private Sub cmdBuchen_Click()
    DoCmd.OpenForm "frm_buchen"
End Sub

Private Sub cmdDetails_Click()
    Dim CurrentObject As Integer
    Dim Filter As String

    'ID des gerade angesehenen Objektes in eine Variable speichern
    CurrentObject = Me.[Objekt-ID].Value

    'Filter für die Detailansicht zusammenbasteln
    Filter = "[Objekt-ID] = " & CurrentObject

    'Detailansicht mit dem Filter öffnen ([Objekt-ID] = XXX)
    DoCmd.OpenForm "frm_ObjektDetails", , , Filter
End Sub

Private Sub cmdNextObject_Click()
On Error GoTo Err_cmdNextObject_Click


    DoCmd.GoToRecord , , acNext

Exit_cmdNextObject_Click:
    Exit Sub

Err_cmdNextObject_Click:
    MsgBox Err.Description
    Resume Exit_cmdNextObject_Click

End Sub
Private Sub cmdPreviousObject_Click()
On Error GoTo Err_cmdPreviousObject_Click


    DoCmd.GoToRecord , , acPrevious

Exit_cmdPreviousObject_Click:
    Exit Sub

Err_cmdPreviousObject_Click:
    MsgBox Err.Description
    Resume Exit_cmdPreviousObject_Click

End Sub

Private Sub cmd_suche_schließen_Click()
On Error GoTo Err_cmd_suche_schließen_Click


    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close

Exit_cmd_suche_schließen_Click:
    Exit Sub

Err_cmd_suche_schließen_Click:
    MsgBox Err.Description
    Resume Exit_cmd_suche_schließen_Click

End Sub