TKSoft-Online

 
    Dim rsMark As DAO.Recordset
    Dim sSQL As String
    Dim nBM_ID As Long
 
    If Not IsNull(Me.B4M) Then
        nBM_ID = Me.B4M.Column(0)
        sSQL = "SELECT T_Termine.*, T_B4M_Disponenten.B4M_Name, T_B4_Disponenten.B4_Name, T_Arbeit_Termin.Termin_Arbeit, T_Abteilungen.Betrieb, T_Priorität.Priorität, T_B4M_Disponenten.B4M_ID " & _
               "FROM T_Abteilungen INNER JOIN (T_B4M_Disponenten INNER JOIN (T_B4_Disponenten INNER JOIN (T_Arbeit_Termin INNER JOIN (T_Priorität INNER JOIN T_Termine ON T_Priorität.Id_Prio = T_Termine.Priorität) ON T_Arbeit_Termin.ArbeitNr = T_Termine.Arbeitsschritt) ON T_B4_Disponenten.B4_ID = T_Termine.T_B4_ID) ON T_B4M_Disponenten.B4M_ID = T_Termine.T_B4M_ID) ON T_Abteilungen.Nr = T_Termine.Betrieb " & _
               "WHERE (((T_Termine.fertig) = False) And ((T_B4M_Disponenten.B4M_ID) = " & nBM_ID & ")) ORDER BY T_Termine.Nr;"
    Else
        sSQL = "SELECT T_Termine.*, T_B4M_Disponenten.B4M_Name, T_B4_Disponenten.B4_Name, T_Arbeit_Termin.Termin_Arbeit, T_Abteilungen.Betrieb, T_Priorität.Priorität, T_B4M_Disponenten.B4M_ID " & _
               "FROM T_Abteilungen INNER JOIN (T_B4M_Disponenten INNER JOIN (T_B4_Disponenten INNER JOIN (T_Arbeit_Termin INNER JOIN (T_Priorität INNER JOIN T_Termine ON T_Priorität.Id_Prio = T_Termine.Priorität) ON T_Arbeit_Termin.ArbeitNr = T_Termine.Arbeitsschritt) ON T_B4_Disponenten.B4_ID = T_Termine.T_B4_ID) ON T_B4M_Disponenten.B4M_ID = T_Termine.T_B4M_ID) ON T_Abteilungen.Nr = T_Termine.Betrieb " & _
               "WHERE (((T_Termine.fertig) = False)) ORDER BY T_Termine.Nr;"
    End If
    Set rsMark = CurrentDb.OpenRecordset(sSQL)
 
    Do While Not rsMark.EOF
        rsMark.Edit
        rsMark!Drucken = -1
        rsMark.Update
        rsMark.MoveNext
    Loop
    rsMark.Close
    Me.Requery