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