Office: (Office 2010) SELECT-Anweisung schließt ein reserviertes Wort ein

Don_Quichote · 3. August 2014

Hallo!

Mit dem folgenden Code habe ich drei Probleme. Um beim Thema zu bleiben hier nur das eine:
Recordset1 funktioniert.
Bei Recordset2 mit strSQL2 erhalte ich die Fehlermeldung "SELECT-Anweisung schließt ein reserviertes Wort oder einen Argumentnamen ein, das/der falsch, mit falschen Zeichensetzung oder überhaupt nicht eingegeben wurde".
Mit dem gleichen Code bekam ich auch schon die Fehlermedung, dass nicht genügend Parameter übergeben wurden. Was ist an der SELECT_Anweisung verkehrt? Als Abfrage funktioniert sie.

Code:

Private Sub cmdRechnung_Click()

'obligatorische Fehlerbehandlungszeile
On Error GoTo fehlerbehandlung

Dim wordobj As Object, worddoc As Object
Dim VORLAGE As String
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strSQL1 As String
Dim strSQL2 As String

strSQL1 = "SELECT tblKunde.kun_anrede As AnredeK, tblKunde.kun_titel As TitelK, tblKunde.kun_vorname As VornameK, tblKunde.kun_nachname As NachnameK, tblKunde.kun_postanschrift As AnschriftK, " & _
"qryStrasse_privat.kon_kontakt As StrasseP, qryPLZ_privat.kon_kontakt As PLZP, qryOrt_privat.kon_kontakt As OrtP, " & _
"qryFirma.kon_kontakt As FirmaK, qryStrasse_gesch.kon_kontakt As StrasseG, qryPLZ_gesch.kon_kontakt As PLZG, qryOrt_gesch.kon_kontakt As OrtG, " & _
"tblKunde.kun_id " & _
"FROM ((((((tblKunde LEFT JOIN qryStrasse_privat ON tblKunde.kun_id = qryStrasse_privat.kun_id_f) " & _
"LEFT JOIN qryPLZ_privat ON tblKunde.kun_id = qryPLZ_privat.kun_id_f) " & _
"LEFT JOIN qryOrt_privat ON tblKunde.kun_id = qryOrt_privat.kun_id_f) " & _
"LEFT JOIN qryFirma ON tblKunde.kun_id = qryFirma.kun_id_f) " & _
"LEFT JOIN qryStrasse_gesch ON tblKunde.kun_id = qryStrasse_gesch.ktyp_id_f) " & _
"LEFT JOIN qryPLZ_gesch ON tblKunde.kun_id = qryPLZ_gesch.kun_id_f) " & _
"LEFT JOIN qryOrt_gesch ON tblKunde.kun_id = qryOrt_gesch.kun_id_f"
' WHERE (((tblKunde.kun_id)=txtKundenID))"

strSQL2 = "SELECT tblBestellung.bes_id As BID, tblBestellung.bes_rechnungsnummer As RNummer, tblBestellung.bes_Erstellt As BDatum, " & _
"tblBesAuf.besauf_anzahl As BAnzahl, tblAuflage.auf_PreisBrutto As PreisB, tblPublikation.pub_autor_kurz As AutorK, tblPublikation.pub_titel As PTitel " & _
"tblAuflage.auf_PreisBrutto-tblAuflage.auf_PreisBrutto*Me!txtRabatt AS PreisR, tblBesAuf.besauf_anzahl*PreisR AS SumP " & _
"FROM tblPublikation " & _
"INNER JOIN (tblBestellung INNER JOIN (tblAuflage INNER JOIN tblBesAuf " & _
"ON tblAuflage.auf_id = tblBesAuf.auf_id_f) ON tblBestellung.bes_id = tblBesAuf.bes_id_f) ON tblPublikation.pub_id = tblAuflage.pub_id_f " & _
"WHERE (((tblBestellung.bes_id)=txtBestellungID))"

Set rs1 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
rs1.FindFirst "tblKunde.kun_id= " & txtKundenID

'Eine Wordinstanz erstellen
Set wordobj = CreateObject("Word.Application")
'Vorlage ist im selbigen Verzeichnis, wie die DB - FormularAnschreibenVertrag
VORLAGE = "C:\Vorlagen\Rechnung.dotx"
'Festlegen, welches file als Vorlage benutzt werden soll
Set worddoc = wordobj.Documents.Add(Template:=VORLAGE)
'Übertragen der Werte aus den textfeldern des offenen Formulars und aus den Recordsets in die Vorlage

'If a field on the form is empty, remove the bookmark text, and continue.
If Err.Number = 94 Then
wordobj.Selection.Text = ""
Resume Next
End If

If rs1!AnredeK = -1 Then
worddoc.Bookmarks("Anrede").Range = ""
ElseIf rs1!AnredeK = 2 Then
worddoc.Bookmarks("Anrede").Range = "Herrn" & vbCrLf & "Test"
ElseIf rs1!AnredeK = 3 Then
worddoc.Bookmarks("Anrede").Range = "Frau"
Else
worddoc.Bookmarks("Anrede").Range = ""
End If

If rs1!AnschriftK = -1 Then
worddoc.Bookmarks("Firma").Range = rs1!FirmaK & ""
Else
worddoc.Bookmarks("Firma").Range = ""
End If

worddoc.Bookmarks("Titel").Range = rs1!TitelK & ""
worddoc.Bookmarks("Vorname").Range = rs1!VornameK & ""
worddoc.Bookmarks("Nachname").Range = rs1!NachnameK & ""

If rs1!AnschriftK = -1 Then
worddoc.Bookmarks("Strasse").Range = rs1!StrasseG & ""
worddoc.Bookmarks("PLZ").Range = rs1!PLZG & ""
worddoc.Bookmarks("Ort").Range = rs1!OrtG & ""
Else
worddoc.Bookmarks("Strasse").Range = rs1!StrasseP & ""
worddoc.Bookmarks("PLZ").Range = rs1!PLZP & ""
worddoc.Bookmarks("Ort").Range = rs1!OrtP & ""
End If

worddoc.Bookmarks("Nr").Range = Me!txtRechnungsnummer & ""
worddoc.Bookmarks("Datum").Range = Date & ""
worddoc.Bookmarks("Bestelldatum").Range = Me!txtBestelldatum & ""

Set rs2 = CurrentDb.OpenRecordset(strSQL2, dbOpenDynaset)
rs2.FindFirst "BID= " & txtBestellungID
Do While Not rs2.EOF

worddoc.Bookmarks("Z").Range = rs2!BAnzahl & ""
worddoc.Bookmarks("Pub").Range = rs2!PTitel & ""
worddoc.Bookmarks("Einzelpreis").Range = rs2!PreisB & ""
worddoc.Bookmarks("einzelpreisR").Range = rs2!PreisR & ""
worddoc.Bookmarks("Summe").Range = rs2!SumP & ""

rs2.MoveNext

Loop

worddoc.Bookmarks("Gesamtsumme").Range = Form!frmBuchverkaufLager_ufoPublikation!txtGesamtsumme & ""

'Word wird sichtbar
wordobj.Visible = True
'Freimachen des reservierten Speicherplatz
Set worddoc = Nothing
Set wordobj = Nothing
rs1.Close
rs2.Close

'zweiter Teil der obligatorischen Fehlerbehandlung
Exit Sub
fehlerbehandlung:
MsgBox "Fehler " & Err.Number & ": " & Err.Description, vbCritical

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Don_Quichote · 5. August 2014

Ist das eine Antwort auf meine Frage? Mir werden hier nur chinesische (?) Schriftzeichen angezeigt.*boah

Josef P. · 5. August 2014

Hallo!

Auszug aus deinem Code:
Code:

strSQL1 = "SELECT tblKunde.kun_anrede As AnredeK, tblKunde.kun_titel As TitelK, tblKunde.kun_vorname As VornameK, tblKunde.kun_nachname As NachnameK, tblKunde.kun_postanschrift As AnschriftK, " & _
"qryStrasse_privat.kon_kontakt As StrasseP, qryPLZ_privat.kon_kontakt As PLZP, qryOrt_privat.kon_kontakt As OrtP, " & _
"qryFirma.kon_kontakt As FirmaK, qryStrasse_gesch.kon_kontakt As StrasseG, qryPLZ_gesch.kon_kontakt As PLZG, qryOrt_gesch.kon_kontakt As OrtG, " & _
"tblKunde.kun_id " & _
"FROM ((((((tblKunde LEFT JOIN qryStrasse_privat ON tblKunde.kun_id = qryStrasse_privat.kun_id_f) " & _
"LEFT JOIN qryPLZ_privat ON tblKunde.kun_id = qryPLZ_privat.kun_id_f) " & _
"LEFT JOIN qryOrt_privat ON tblKunde.kun_id = qryOrt_privat.kun_id_f) " & _
"LEFT JOIN qryFirma ON tblKunde.kun_id = qryFirma.kun_id_f) " & _
"LEFT JOIN qryStrasse_gesch ON tblKunde.kun_id = qryStrasse_gesch.ktyp_id_f) " & _
"LEFT JOIN qryPLZ_gesch ON tblKunde.kun_id = qryPLZ_gesch.kun_id_f) " & _
"LEFT JOIN qryOrt_gesch ON tblKunde.kun_id = qryOrt_gesch.kun_id_f"
' WHERE (((tblKunde.kun_id)=txtKundenID))"

strSQL2 = "SELECT tblBestellung.bes_id As BID, tblBestellung.bes_rechnungsnummer As RNummer, tblBestellung.bes_Erstellt As BDatum, " & _
"tblBesAuf.besauf_anzahl As BAnzahl, tblAuflage.auf_PreisBrutto As PreisB, tblPublikation.pub_autor_kurz As AutorK, tblPublikation.pub_titel As PTitel " & _
"tblAuflage.auf_PreisBrutto-tblAuflage.auf_PreisBrutto*Me!txtRabatt AS PreisR, tblBesAuf.besauf_anzahl*PreisR AS SumP " & _
"FROM tblPublikation " & _
"INNER JOIN (tblBestellung INNER JOIN (tblAuflage INNER JOIN tblBesAuf " & _
"ON tblAuflage.auf_id = tblBesAuf.auf_id_f) ON tblBestellung.bes_id = tblBesAuf.bes_id_f) ON tblPublikation.pub_id = tblAuflage.pub_id_f " & _
"WHERE (((tblBestellung.bes_id)=txtBestellungID))"

Set rs1 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
rs1.FindFirst "tblKunde.kun_id= " & txtKundenID
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann es sein, dass anfangs die erste SQL-Anweisung auch nicht funktionierte und du daher die Where-Bedingung ausgeklammert und dafür die FindFirst-Anweisung eingefügt hast?

Fehler in beiden where-Anweisungen:
"WHERE (((tblBestellung.bes_id)=txtBestellungID))"
txtBestellungID ist nur VBA bekannt, daher kommt die Meldung mit dem fehlenden Parameter.

Abhilfe:
Code:

"WHERE (((tblBestellung.bes_id)=" & txtBestellungID & "))"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

(unter der Annahme, dass txtBestellungID eine Zahl und keinen Text liefert bzw. bes_id ein Zahlen-Datentyp ist.

mfg
Josef

PS: "Mir werden hier nur chinesische (?) Schriftzeichen angezeigt."
... das war ein Foren-Spammer

Don_Quichote · 5. August 2014

Jau.
Deine Vermutung ist richtig!
Danke für die Hilfe. Jetzt hänge ich gerade noch an dem "reservierten Wort". Das Problem hatte ich schon mal, da war es nur ein fehlendes Leerzeichen. Ich suche weiter, vorher kann ich Deine Korrektur gar nicht richtig testen.

Josef P. · 5. August 2014

Kopiere einmal die zusammengesetzte SQL-Anweisung in eine leere Access-Abfrage (in der SQL-Ansicht).
Mit etwas Glück wird dir die Problemstelle markiert, wenn du die Access-Abfrage ausführst.

Code:

strSQL2 = "SELECT ..."
debug.Print strSQL2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anschließend den Inhalt aus dem Direktfenster kopieren.

mfg
Josef

Don_Quichote · 5. August 2014

"[tblAuflage.auf_PreisBrutto]" wird markiert, oder ohne Klammern nur "tblAuflage".
?*frown.gif* ?

Josef P. · 5. August 2014

Die Klammer um beide Ausdrücke wäre falsch - die Klammern waren aber nicht in der von VBA zusammengestellten SQL-Anweisung.

Gerade gesehen:
tblAuflage.auf_PreisBrutto*Me!txtRabatt
Me!txtRabatt wird Jet auch nicht kennen.

Zum Verständnis:
Du setzt per VBA eine Text zusammen, der später als SQL-Anweisung verwendet wird.
In der SQL-Anweisung dürfen keinen Variablen mehr vorkommen, die nur innerhalb VBA bekannt sind.

mfg
Josef

Don_Quichote · 8. August 2014

Danke! Das Problem hat sich bei der Lösung meiner anderen Schwierigkeiten ergeben indem es wegen ganz anderem Vorgehen nicht mehr existiert.
Danke aber nochmal für die Hilfe, an anderer Stelle habe ich die Möglichkeit das Gezeigte anzuwenden.

Office: (Office 2010) SELECT-Anweisung schließt ein reserviertes Wort ein

SELECT-Anweisung schließt ein reserviertes Wort ein

SELECT-Anweisung schließt ein reserviertes Wort ein

SELECT-Anweisung schließt ein reserviertes Wort ein

SELECT-Anweisung schließt ein reserviertes Wort ein

SELECT-Anweisung schließt ein reserviertes Wort ein - Similar Threads - SELECT Anweisung schließt

DropDown öffnen bei anwählen (.Select) einer Zelle

Access - SQL: Inhalt auf 255 Zeichen beschränkt

SELECT mit ORDER BY sortiert nicht richtig

SELECT DISTINCTROW Warenbezeichnung from X funktioniert nicht

SELECT-Anweisung

SELECT...INTO-Anweisung

Select Case statt mehrere IF Anweisungen?