Private Sub Form_Open(Cancel As Integer)
    On Error GoTo Err_Form_Open
 
    Dim qDef As DAO.QueryDef
    Dim lngMaxRec As Long
 
       'Die maximale Anzahl der Datensätze ...
        lngMaxRec = Nz(DLookup("ProPar_Wert", "ProgrammParameter", _
          "ProgrammParameter.ProPar_Nr = 3 "), 3)
 
        Set qDef = DBEngine.Workspaces(0).Databases(0).QueryDefs("qryPlanungen")
 
            qDef.MaxRecords = lngMaxRec
 
        qDef.Close
        Set qDef = Nothing
 
        'Den Datenbestand neu abfragen ...
        Me.UFrm_Planungen.Requery
 
Exit_Form_Open:
    Exit Sub
 
Err_Form_Open:
    MsgBox Err.Description
    Resume Exit_Form_Open
 
End Sub