SQL Anweisung wird im Textfeld angezeigt und nicht ausgeführt

[KonradR]

Hallo liebe Accessfreunde,

ich habe eine SQL-Anweisung geschrieben, die mir in einem Textfeld den Wert (die Summe) einer gruppierten Abfrage abhängig von der Auswahl eines Listenfeldes im Formmular anzeigen soll. Leider zeigt es mir nur den Text der SQL-Anweisung aus dem Code. Was mache ich da falsch? Habt ihr da eine Idee? Hier mein Code:

 

Code [Auswählen] Erweitern

Private Sub txtZutatBrennwertKJ_AfterUpdate()
    Dim strSQL As String

    strSQL = "SELECT ZutatBrennwertKJ FROM qrySummeTagCKalFetteKkohlenhEiweise WHERE tagID  = " & Forms![frm00BWT_Haupt].Form![lstTag]

    Forms![frm00BWT_Haupt]![fsubBWTMahlzeitRezepte_Unter].Form!.Requery
    Forms![frm00BWT_Haupt].Form![txtSummekJ] = strSQL
End Sub

Und ein Bild von der Anzeige aus dem Formular:
Sie dürfen in diesem Board keine Dateianhänge sehen.

und ein Bildschirmfoto aus der Entwurfsansicht der Abfrage:
Sie dürfen in diesem Board keine Dateianhänge sehen.

[MzKlMu]

Hallo,
das geht grundsätzlich nicht. In einem Textfeld kann man keine Select Anweisung nutzen.
Hier musst Du DSum (DomSumme) verwenden. Dann brauchst Du keine Abfrage.
Oder mit DLookup (DomWert) den Wert aus der Abfrage holen.

[KonradR]

Hallo MzKlMu,

Hallo,
das geht grundsätzlich nicht. In einem Textfeld kann man keine Select Anweisung nutzen.
Hier musst Du DSum (DomSumme) verwenden. Dann brauchst Du keine Abfrage.
Oder mit DLookup (DomWert) den Wert aus der Abfrage holen.

danke für deine Antwort. Ich habe meinen VBA-Code jetzt geändert:

Code [Auswählen] Erweitern

Private Sub txtZutatBrennwertKJ_AfterUpdate()

    Forms![frm00BWT_Haupt]![fsubBWTMahlzeitRezepte_Unter].Form!.Requery
    Forms![frm00BWT_Haupt].Form![txtSummekJ] = DLookup("ZutatBrennwertKJ", "qrySummeTagCKalFetteKkohlenhEiweise", "tagID  =" & Forms![frm00BWT_Haupt].Form![lstTag]) & ""
End Sub

Leider erscheint dann im betreffenden Textfeld ein undefiniertes Symbol und in der msgbox (zur Kontrolle) ein Fragezeichen. Hier ein Bild:
Sie dürfen in diesem Board keine Dateianhänge sehen.
Hast du da eine Idee, woran das liegen könnte?

[Tassimo]

Hi,

Gibt Forms![frm00BWT_Haupt].Form![lstTag] auch tatsächlich die Tagzahl als Zahl aus ?

Und die Abfrage liefert in der Ansicht entsprechende Tagzeilen (pro Tag nur eine Zeile) mit den gewünschten Summen ?

[DF6GL]

Hallo

die Fehler stecken hier:

   

Forms![frm00BWT_Haupt]![fsubBWTMahlzeitRezepte_Unter].Form!.Requery   ---> .Form.Requery

Und

, "tagID  =" & Forms![frm00BWT_Haupt].Form![lstTag]) & ""      -->     & Forms![frm00BWT_Haupt].Form![lstTag] & ")"