Dynamischer Spaltenbezug in Access Abfrage

Computer: Software & Programmierung Microsoft Access
1

Hallo

Habe eine Sub, die in einer Abfrage auf eine Spalte zugreift. Die Spalte ist über eine Variable benannt.
Eine zweite Spalte (Datum) soll immer angezeigt werden.
Unten stehend ist der Code.
Nun möchte ich ein Kriterium einbauen.
Das Kriterium ist auch in einer Variablen gespeichert.
Die Variable (Global) heißt vGericht
Ich bekomme aber einfach nicht die Where anweisung hin.
Habe das, was nicht funktioniert in <> gesetzt.
Kann mir jemand helfen?
Ohne die Where Anweisung funktioniert die Abfrage, ist aber dann auch nutzlos.

Tabelle = Master
Spalte = Globale Variable vFeldN 
Kriterium =  Globale Variable vGericht

Sub TestSub()
    Dim db As DAO.Database
    Dim qd As QueryDef
       
    Set db = CurrentDb
    Set qd = db.QueryDefs(„ListeSpeise“)
    
    qd.SQL = „select " & vFeldN & " , " & „Datum“ & " from Master“
    >>where vFeldN = vGericht<<
    DoCmd.OpenQuery „ListeSpeise“
End Sub

2

Hallo,

Habe eine Sub, die in einer Abfrage auf eine Spalte zugreift.

:smiley:ie Spalte ist über eine Variable benannt.

Eine zweite Spalte (Datum) soll immer angezeigt werden.
Unten stehend ist der Code.
Nun möchte ich ein Kriterium einbauen.
Das Kriterium ist auch in einer Variablen gespeichert.
Die Variable (Global) heißt vGericht

Welchen Datentyp und welchen Inhalt hat die Variable (beispielhaft)?

Ich bekomme aber einfach nicht die Where anweisung hin.
Habe das, was nicht funktioniert in gesetzt.

Warum schreibst Du das nicht so, wie ich es gepostet habe?

Tabelle = Master
Spalte = Globale Variable vFeldN
Kriterium = Globale Variable vGericht

Sub TestSub()
Dim db As DAO.Database
Dim qd As QueryDef

Set db = CurrentDb
Set qd = db.QueryDefs(„ListeSpeise“)

qd.SQL = „select [“ & vFeldN & „] , Datum from Master where [“ & vFeldN & „] = '“ & vGericht & „’“
DoCmd.OpenQuery „ListeSpeise“
End Sub

im Fall, dass das Tabellenfeld vom Datentyp TEXT ist.

Gruß
Franz, DF6GL

3

Erst mal vielen Dank, für die Hilfe.

Funktioniert tadellos!
Habe Ihr Posting deshalb nicht eingebaut, weil ich’s Forum nicht geblickt habe.
Habs Posting erst gesehen, als ich meine zweite Anfrage eingestellt habe.
Passiert mir so nicht mehr, und ich entschuldige mich auch.

Nun zur Abfrage!
Werde diese art der Abfrage auch für Bericht ect. benutzen. Dies löst enorm viele Probleme.
Übrigens, der DoCmd.Open… Befehl ist war nur da, um zu sehen, obs geht!

Einen Erfolgreichen Tag noch.
Gruß Monschar