Office: (Office 2013) Abfrage klappt nicht

Hallo

Ich habe ein Problem mit folgendem Coding:

qq1 = "SELECT tblSchüler.*, IsNull([tblSchüler.MHAbmDatum]) AS Ausdr1, tblSchüler.MHAbmDatum, tblSchüler.MHAnmDatum, tblSchüler.MHName"
qq1 = qq1 & " FROM tblSchüler"
qq1 = qq1 & " WHERE (((IsNull([MHAbmDatum]))=True) AND (((tblSchüler.MHAnmDatum)<#1/1/" & (VerwJahr + 1) & "#)) OR (((tblSchüler.MHAbmDatum) Between #1/1/" & VerwJahr & "# And #1/1/" & (VerwJahr + 1) & "#)"
qq1 = qq1 & " AND ((tblSchüler.MHAnmDatum)<#1/1/" & (VerwJahr + 1) & "#)))"
qq1 = qq1 & " ORDER BY tblSchüler.MHName;"
glbQryExist ("qryVerwendungnachweis")
Set q = db.CreateQueryDef("qryVerwendungnachweis", qq1)
q.SQL = qq1
stDocName = "rptVerwendungsnachweis"
DoCmd.OpenReport stDocName, acViewPreview

Laufzeitfehler: 3079
Das angegebene Feld 'MHName' kann sich auf mehr als eine der Tabellen beziehen, dir im FROM-Abschnitt der SQL-Anweisung angegeben werden.

Wenn ich dieses Coding in eine normale Abfrage eingebe, ist alles o.k.

Was mache ich falsch?

Gruss von Rhein und Mosel
hdkneip

 

Hallo,

ich nehme an, dass die enthaltenen Variablen so ähnlich definiert sind wie folgt:

Code:

Sub test()
  Dim db As Database
  Dim q As QueryDef
  Dim qq1 As String
  Dim QryTest As Boolean
  Dim stDocName As String, VerwJahr As Integer
  
  VerwJahr = 2018
  Set db = CurrentDb

  qq1 = "SELECT tblSchüler.*, IsNull([tblSchüler.MHAbmDatum]) AS Ausdr1, tblSchüler.MHAbmDatum, tblSchüler.MHAnmDatum, tblSchüler.MHName"
  qq1 = qq1 & " FROM tblSchüler"
  qq1 = qq1 & " WHERE (((IsNull([MHAbmDatum]))=True) AND (((tblSchüler.MHAnmDatum)<#1/1/" & (VerwJahr + 1) & "#)) OR (((tblSchüler.MHAbmDatum) Between #1/1/" & VerwJahr & "# And #1/1/" & (VerwJahr + 1) & "#)"
  qq1 = qq1 & " AND ((tblSchüler.MHAnmDatum)<#1/1/" & (VerwJahr + 1) & "#)))"
  qq1 = qq1 & " ORDER BY tblSchüler.MHName;"
  QryTest = glbQryExist("qryVerwendungnachweis")
  Set q = db.CreateQueryDef("qryVerwendungnachweis", qq1)
  q.SQL = qq1
  stDocName = "rptVerwendungsnachweis"
  DoCmd.OpenReport stDocName, acViewPreview
End Sub
Function glbQryExist(AbfrName As String) As Boolean
  On Error GoTo Err_QryExist
  glbQryExist = Not CurrentDb.QueryDefs(AbfrName) Is Nothing
  Exit Function
Err_QryExist:
  glbQryExist = False
End Function

dann ergibt sich der Abfragestring "qq1" mit:

Code:

SELECT tblSchüler.*, IsNull([tblSchüler.MHAbmDatum]) AS Ausdr1, tblSchüler.MHAbmDatum, tblSchüler.MHAnmDatum, tblSchüler.MHName
FROM tblSchüler
WHERE (  ((IsNull([MHAbmDatum]))=True) AND (((tblSchüler.MHAnmDatum)<#1/1/2019#)) OR (  ((tblSchüler.MHAbmDatum) Between #1/1/2018# And #1/1/2019#) AND ((tblSchüler.MHAnmDatum)<#1/1/2019#)  )  )
ORDER BY tblSchüler.MHName;

1. Dieser SQL-String in der Variablen "qq1" sieht normal aus ohne besondere Auffälligkeiten.
2. Da die Prozedur "glbQryExist(…)" nicht vorhanden war, habe ich sie durch mein Provisorium in Gestalt einer Boolean-Funktion ergänzt und ihr Resultat der Boolean-Variable "QryTest" übergeben.
3. Du erzeugst dann in der aktuellen Datenbank mittels "qq1" die Abfragedefinition "qryVerwendungnachweis" (Variable "q").
   Damit ist natürlich auch schon "q.SQL" festgelegt, sodass die nachfolgende Zuweisung "q.SQL=qq1" überflüssig (weil doppelt) ist.
4. Du hast keine genaue Angabe gemacht, in welcher Zeile der Fehler auftritt. Da bis hierher kein Problem vorzuliegen scheint, müsste die Fehlermeldung in "DoCmd.OpenReport stDocName, acViewPreview" auftreten. Damit rufst du einen vordefinierten Bericht "rptVerwendungsnachweis" im Voransichtsmodus auf.
   Dieser Bericht enthält seinerseits bereits eine Berichtsabfrage, um seine Datenfelder korrekt befüllen zu können. Kann es sein, dass das eigentliche Problem in dieser vorgegebenen Berichtsabfrage liegt?
5. Falls du aber vorhast, die vorhin erzeugte Abfrage "qq1" bzw. "q" an den Bericht als Berichtsabfrage zu übergeben, musst du den Bericht in der Entwurfsansicht öffnen mit folgender Codierung:
   
   Code:

   DoCmd.OpenRepot stDocName, acViewDesign
   With Reports(stDocName)
     .RecordSource = qq1  'Zuweisung des Abfragestrings an die Berichtsabfrage - Abfragefelder müssen zu den Berichtsfeldern passen!!
     '... Eventuell weitere Modifikationen von enthaltenen Berichtsobjekten
   End With
   DoCmd.Close acReport, stDocName & "1", acSaveYes  'Modifizierter Bericht ist vor seinem Öffnen zwingend zu speichern (unter neuem Namen)!!
   'und schließlich:
   DoCmd.OpenReport stDocName & "1", acViewPreview