Hallo zusammen,
irgendwie stehe ich auf dem Schlauch und benötige Eure Hilfe.
In einer TBL Fahrzeuge werden mehrere Autos verwaltet. Nun möchte ich pro Fahrzeug ein Wochentag hinterlegen. Dies möchte ich gerne mit 7 einzelnen Kontrollkästchen (Mo-So) realisieren:
Fahrzeug Mo Di Mi Do Fr Sa So
KFZ1 nein nein ja ja ja nein nein
KFZ2 ja nein ja nein ja nein nein
KFZ3 ja nein ja ja ja nein nein
KFZ4 ja nein nein nein ja nein nein
Mit folgende Abfrage - Wochentag : Wochentagsname(Wochentag[Datum];2);1) - erhalte ich den heutigen (=Do) Wochentag.
Nun möchte ich gerne die TBL Fahrzeuge mit der Abfrage kombinieren, sodass ich in meiner Abfrage die beiden Fahrzeuge KFZ1 & KFZ3 erhalte. Morgen wäre mein Ergebnis Fahrzeuge KFZ1 - KFZ4.
Vielleicht könnte mir jemand ein Muster zur Verfügung stellen oder mit einem Beitrag behilflich sein. Ich bin um jeden Rat dankbar
Danke und viele Grüße
swatch
Hallo,
erkläre das mal genauer.
ich habe mein Beitrag überarbeitet (s.o.). Gruß
Hallo,
mit einem Rutsch läßt sich das nicht in einer Abfrage bewerkstelligen.
Folgende Vorgehensweise wäre ein Weg:
1. Benenne die Felder Mo-So um Montag - Sonntag
2. Erstelle eine Abfrage 'qryKFZ' in der nur das Fahrzeug ausgewählt wird - keine Kriterien setzen!
3. erstelle ein Standardmodul und füge den folgenden Code ein:
Public Function WT() As String
WT = WeekdayName(Weekday(Date, vbMonday))
End Function
Public Sub Abfrage()
Dim strSQL As String
strSQL = "SELECT Fahrzeug FROM Fahrzeuge WHERE " & WT & "=True"
CurrentDb.QueryDefs("qryKFZ").SQL = strSQL
DoCmd.OpenQuery "qryKFZ"
End Sub
Stelle den Cursor dann in die Sub Abfrage
Führe die Sub Abfrage aus (F5 - drücken)
p.s. ein bisschen sehr EXCEL-Lastig deine Tabelle ;)
HTH
super hat ja prima funktioniert. Vielen vielen Dank. :)