Access 2003 Formular Wochentage & Abfrage Wochentag - Ich benötige Eure Hilfe

[swatch]

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

[MzKlMu]

Hallo,
erkläre das mal genauer.

[swatch]

ich habe mein Beitrag überarbeitet (s.o.). Gruß

[database]

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:

Code [Auswählen] Erweitern


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

[swatch]

super hat ja prima funktioniert. Vielen vielen Dank.