New user
Beiträge: 2
| Beim Aufruf des Berichtes gem. der nachfolgenden Procedure und Eingabe des Enddatum > 29.07.2015 erhalte ich den Laufzeitfehler 3071, obwohl die Abfrage auch alle Datensätze mit späterem Enddatum anzeigt. Alle eingegebenen Datumseingaben wurden überprüft.
Was löst den Laufzeitfehler aus?
Private Sub cmdAuswertungAuftraege_Click()
On Error GoTo Err_cmdAuswertungAuftraege_Click
Dim DocName As String
Dim qdf As DAO.QueryDef
Dim strSql As String
Dim strName As String
' Es folgt die Abfrage "Auftraege_1 Abfrage Auswertung"
strSql = "SELECT Auftraege_1.A_A_Nr," & _
"Auftraege_1.A_Mitgl_Nr," & _
"Auftraege_1.A_Mitgl_Vorname," & _
"Auftraege_1.A_Mitgl_Name," & _
"Auftraege_1.Bes_Datum_1, Auftraege_1.Bes_Datum_2, Auftraege_1.Bes_Datum_3, Auftraege_1.Bes_Datum_4," & _
"Auftraege_1.[Art der Hilfe]," & _
"Auftraege_1.Bes_Mitgl_Name," & _
"Auftraege_1.Punktesumme," & _
"Auftraege_1.Gebührensumme," & _
"Auftraege_1.KFZ_Km," & _
"Auftraege_1.Fahrtkosten," & _
"1 AS [Anzahl Besuche_1]," & _
"IIf(IsNull([Auftraege_1]![Bes_Datum_2]),0,1) AS [Anzahl Besuche_2]," & _
"IIf(IsNull([Auftraege_1]![Bes_Datum_3]),0,1) AS [Anzahl Besuche_3]," & _
"IIf(IsNull([Auftraege_1]![Bes_Datum_4]),0,1) AS [Anzahl Besuche_4]," & _
"[Anzahl Besuche_1]+[Anzahl Besuche_2]+[Anzahl Besuche_3]+[Anzahl Besuche_4] AS [Anzahl alle Besuche]" & _
"FROM Auftraege_1" & _
" GROUP BY Auftraege_1.A_A_Nr, Auftraege_1.A_Mitgl_Nr, Auftraege_1.A_Mitgl_Vorname," & _
" Auftraege_1.A_Mitgl_Name, Auftraege_1.Bes_Datum_1, Auftraege_1.Bes_Datum_2, Auftraege_1.Bes_Datum_3," & _
" Auftraege_1.Bes_Datum_4, Auftraege_1.[Art der Hilfe], Auftraege_1.Bes_Mitgl_Name," & _
" Auftraege_1.Punktesumme, Auftraege_1.Gebührensumme, Auftraege_1.KFZ_Km, Auftraege_1.Fahrtkosten" & _
" HAVING (((Auftraege_1.Bes_Datum_1) Between [Formulare]![Auswertungszeitraum Auswertung Aufträge]![Startdatum]" & _
" And [Formulare]![Auswertungszeitraum Auswertung Aufträge]![Enddatum]));"
strName = "Auftraege_1 Abfrage Auswertung"
DocName = "Auswertung der Auftraege"
CurrentDb.QueryDefs.Delete strName
Set qdf = CurrentDb.CreateQueryDef(strName, strSql)
DoCmd.OpenReport DocName, acPreview, strName
Exit_Err_cmdAuswertungAuftraege_Click:
Exit Sub
Err_cmdAuswertungAuftraege_Click:
MsgBox Error$
Resume Exit_Err_cmdAuswertungAuftraege_Click
End Sub
|