PDA

Vollständige Version anzeigen : SQL Wo steckt der Fehler?


Jaeger81
25.02.2001, 10:36
Hi!

Kann einer mal darin nen Fehler suchen. Die Abfrage funktioniert nämlich nicht.

Dim cSQL0, nMessid0
If IsNumeric(Kombinationsfeld12.Value) Then
nMessid0 = Kombinationsfeld12.Value

cSQL0 = " SELECT tbl_messdiener.Mess_ID, tbl_messdiener.Name, tbl_messdiener.Vorname, tbl_messdiener.Altardienst, tbl_messdiener.Dienstag"
cSQL0 = cSQL0 & " FROM tbl_messdiener "
cSQL0 = cSQL0 & " WHERE (((tbl_messdiener.Mess_ID) Not In (select Mess_ID2 from tbl_zuteilung where Messen_ID = " & nMessid0
cSQL0 = cSQL0 & " )) AND ((tbl_messdiener.Altardienst)=True)) AND ((tbl_messdiener.Dienstag)=True))"

Altardienst_Auswahl.RowSource = cSQL0
Altardienst_Auswahl.Requery 'Aktualisierung von Altardienst_Auswahl
End If

elmar
25.02.2001, 18:01
Habe auf die Schnelle den Code nicht bis ins letzte analysieren können. Aber es könnte sein, daß die Variable, die du in den SQL-String einfügst, eine ZAHL ist. Ist es TEXT, dann wird anders im Code geschrieben.
-------------------------------------
Folgendes habe ich mal eben schnell aus meiner Toolbox rauskopiert, hoffe, dass Du danach was machen kannst:
----------------------------
SQL_ID = Me.KALK_NR
'-----------------------------------------------Muster---------------
'Herkunft = "SELECT Mitarbeiter.MA_NR, Mitarbeiter.NNAME, Mitarbeiter.VORNAME, Mitarbeiter.BEZ, Mitarbeiter.MEMO, Mitarbeiter.TEL_TEXT FROM Mitarbeiter WHERE (((Mitarbeiter.MA_NR) = " & SQL_Nutzer & ")) ORDER BY Mitarbeiter.NNAME;"
' '" & SQL_Nutzer & "' für Textvariablen und " & SQL_ID & " für Zahlen(Integer)-Werte!!
'----------------------------- Ende Muster --------------