Hallo an alle,
Ich habe folgenden Code
Dim strSQL As String
Dim strSQLTeil As String
Select Case Me.fraNutzung
Case 1
strSQLTeil = "tblNutzArt.NutzArt_ID=1"
Case 2
strSQLTeil = "tblNutzArt.NutzArt_ID=2"
Case Else
strSQLTeil = "tblNutzArt.NutzArt_ID>0"
End Select
strSQL = "SELECT tblKfz.Kfz_Id, tblKfz.Kfz_Marke, tblKfz.Kfz_Kennzeichen, tblFahrtenbuch.FB_Id, tblFahrtenbuch.FB_Datum, tblNutzArt.NutzArt_ID, tblNutzArt.Nutzungsart " & _
"FROM tblKfz INNER JOIN (tblNutzArt INNER JOIN tblFahrtenbuch ON tblNutzArt.NutzArt_ID = tblFahrtenbuch.FB_NutzArt_Id) ON tblKfz.Kfz_Id = tblFahrtenbuch.FB_Kfz_Id " & _
"WHERE tblKfz.Kfz_Id=[Forms]![frmFahrtenbuch]![cboFahrzeug] AND tblFahrtenbuch.FB_Datum Between [Forms]![frmFahrtenbuch]![txtStartdatum] And " & _
"[Forms]![frmFahrtenbuch]![txtEnddatum] AND " & strSQLTeil
CurrentDb.QueryDefs("qyrFahrtenbuch1").SQL = strSQL
DoCmd.OpenQuery "qryFahrtenbuch"
Der funktioniert auch so.
Ich habe aber nun eine Neue Abfrage erstellt
SELECT tblKontakte.Kon_Firma, tblObjekte.Obj_Name, tblKfz.Kfz_Id, tblKfz.Kfz_Marke, tblFahrtenbuch.FB_Datum, tblFahrtenbuch.FB_Anfang, tblFahrtenbuch.FB_KmStandAnfang, tblFahrtenbuch.FB_KmStandEnde, tblNutzArt.NutzArt_ID, tblNutzArt.Nutzungsart
FROM (tblKontakte INNER JOIN tblObjekte ON tblKontakte.Kon_ID = tblObjekte.Obj_Kon_Id) INNER JOIN (tblNutzArt INNER JOIN (tblMitarbeiter INNER JOIN (tblKfz INNER JOIN (tblFahrtenbuch INNER JOIN tblMitarbeiterFahrzeit ON tblFahrtenbuch.FB_Id = tblMitarbeiterFahrzeit.MitFZ_FB_Id) ON tblKfz.Kfz_Id = tblFahrtenbuch.FB_Kfz_Id) ON tblMitarbeiter.Mit_ID = tblMitarbeiterFahrzeit.MitFZ_Mit_Id) ON tblNutzArt.NutzArt_ID = tblFahrtenbuch.FB_NutzArt_Id) ON tblObjekte.Obj_ID = tblFahrtenbuch.FB_Obj_Id
WHERE (((tblKfz.Kfz_Id)=[Forms]![frmQryFahrtenbuch]![cboFahrzeug]) AND ((tblFahrtenbuch.FB_Datum) Between [Forms]![frmQryFahrtenbuch]![txtStartdatum] And [Forms]![frmFahrtenbuch]![txtEnddatum]) AND ((tblNutzArt.NutzArt_ID)>0))
ORDER BY tblFahrtenbuch.FB_Datum;
Wollte diesen nun in meiner oben genannten Code modifizieren... aber ich bekomme nicht mal die Zeilenumbrüche zusammen :(
Könnte mir bitte hier jemand helfen?
Danke
Albert
Hallo Albert,
"SELECT tblKontakte.Kon_Firma, tblObjekte.Obj_Name, tblKfz.Kfz_Id, tblKfz.Kfz_Marke, tblFahrtenbuch.FB_Datum, tblFahrtenbuch.FB_Anfang, " & _
"tblFahrtenbuch.FB_KmStandAnfang, tblFahrtenbuch.FB_KmStandEnde, tblNutzArt.NutzArt_ID, tblNutzArt.Nutzungsart " & _
"FROM (tblKontakte INNER JOIN tblObjekte ON tblKontakte.Kon_ID = tblObjekte.Obj_Kon_Id) INNER JOIN " & _
"(tblNutzArt INNER JOIN (tblMitarbeiter INNER JOIN (tblKfz INNER JOIN (tblFahrtenbuch INNER JOIN " & _
"tblMitarbeiterFahrzeit ON tblFahrtenbuch.FB_Id = tblMitarbeiterFahrzeit.MitFZ_FB_Id) ON tblKfz.Kfz_Id = tblFahrtenbuch.FB_Kfz_Id) " & _
"ON tblMitarbeiter.Mit_ID = tblMitarbeiterFahrzeit.MitFZ_Mit_Id) ON tblNutzArt.NutzArt_ID = tblFahrtenbuch.FB_NutzArt_Id) " & _
"ON tblObjekte.Obj_ID = tblFahrtenbuch.FB_Obj_Id " & _
"WHERE (((tblKfz.Kfz_Id)=[Forms]![frmQryFahrtenbuch]![cboFahrzeug]) AND ((tblFahrtenbuch.FB_Datum) " & _
"Between [Forms]![frmQryFahrtenbuch]![txtStartdatum] And [Forms]![frmFahrtenbuch]![txtEnddatum]) " & _
"AND ((tblNutzArt.NutzArt_ID)>0)) " & _
"ORDER BY tblFahrtenbuch.FB_Datum;"
... ist sicher nicht optimiert, da keine Einrückungen gesetzt sind, aber für den Zweck das Statement in einer Prozedur einzusetzen sollte es so schon gehen.
Hallo Peter,
gar nicht gesehen das Du mir geschrieben hast!
Danke für den Code!
Die letzte Zeile funktioniert leider noch nicht :(
Lg
Albert
Sorry, habe ich in der Schnelle übersehen - habs in der Antwort von vorhin bereits geändert!
Hallo Peter,
Dankeschön!!!
Funktioniert wieder mal wie eine Eins ;)
Du bist mein Held ;D