Dringende Hilfe bei einem Code benötigt.

[dertobsi]

Access 2002-2003
Ich hoffe ich kann es verständlich Beschreiben.
Es geht um einen "Dispoplan" für ca 30 Fahrzeuge!
Hierzu gibt es für jeden Tag eine "Hauptübersicht". Also Mo-Fr
1 Feld 1 LKW - also 30 Felder.
In der "Hauptübersicht" kann ich auch Problemlos mit dem Button "nächster Datensatz" von Tag zu Tag wechseln
AUCH von Freitag auf Montag.
(Samstag und Sonntag wurde nicht angelegt).

Jetzt das Problem: Es gibt auch noch eine extra "Fahrzeugübersicht" wo ich auch mit einem Button die Tage wechseln kann.
Hier funktioniert es aber komischerweise nur von Mo-Fr wenn ich aber an einem Freitag auf Montag springen will geht es nicht. Da Samstag und Sonntag eben nicht angelegt sind. (Wenn ich Sa und So angelegt habe geht es Problemlos - macht aber keinen Sinn).

Hier mal beide Codes der jeweiligen "Übersichten"


Also das ist der gesamte code von der Hauptansicht wo ich von Freitag auf Montag springen kann ohne probleme

Private Sub Befehl243_Click()

Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim rs2 As DAO.Recordset
   
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Select Datum From tbl_tage Order by Datum ASC;", , dbOpenDynaset)
    Set rs2 = db.OpenRecordset("Select akt_Datum from akt_terminal1;", , dbOpenDynaset)
   
    rs.FindFirst ("[Datum] = #" & Format(Me.Datum, "mm\/dd\/yy") & "#")
    If rs.EOF = False Then
        rs.MoveNext
    End If
   
    If rs.EOF Or rs.NoMatch Then
        MsgBox "Sie können nicht weiter nach vorne."
    Else
        rs2.Edit
        rs2!akt_datum = rs!Datum
        rs2.Update
        searchdate = rs!Datum
        Me.Requery
        Me.Befehl205.SetFocus
        'Me.Recordset.FindFirst ("[akt_Datum] = #" & Format(rs!Datum, "mm\/dd\/yy") & "#")
    End If
   
End Sub



und das der Code von der Fahrzeug Detail ansicht wo es nicht geht


Private Sub Befehl243_Click()
   
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    searchdate = searchdate + 1
    If IsNull(searchdate) = True And IsNull(lkwnumber) = True Then
        DoCmd.Close
        MsgBox "Es ist ein Fehler beim Öffnen aufgetreten."
        Exit Sub
    End If
    Set db = CurrentDb()
    Debug.Print "Select *from Tabelle_Logistik_LKW where Datum = #" & Format(searchdate, "mm\/dd\/yy") & "# AND LKW_Nr = " & lkwnumber & ";"
    Set rs = db.OpenRecordset("Select *from Tabelle_Logistik_LKW where Datum = #" & Format(searchdate, "mm\/dd\/yy") & "# AND LWK_Nr = " & lkwnumber & ";", , dbopendynsaset)
   
    If rs.EOF Then
         MsgBox "Sie können nicht weiter nach vorne."
       
       
    Else
        Me.Recordset.FindFirst "[ID]= " & rs!ID
        If lkwnumber <= 10 Then
            Me.Datum.BackColor = RGB(173, 192, 217)
            Me.Rechteck3.BackColor = RGB(173, 192, 217)
            Me.LKW1_Memo1.BackColor = RGB(214, 223, 236)
        ElseIf lkwnumber <= 20 Then
            Me.Datum.BackColor = RGB(181, 203, 136)
            Me.Rechteck3.BackColor = RGB(181, 203, 136)
            Me.LKW1_Memo1.BackColor = RGB(230, 237, 215)
        Else
            Me.Datum.BackColor = RGB(159, 140, 183)
            Me.Rechteck3.BackColor = RGB(159, 140, 183)
            Me.LKW1_Memo1.BackColor = RGB(223, 219, 231)
        End If
       
    End If
   
   
End Sub