Wie muss ich diesen Code ändern :(

[silentwolf]

Hallo an alle,

Ich habe folgenden Code

Code [Auswählen] Erweitern

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

Code [Auswählen] Erweitern

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

[database]

Hallo Albert,

Code [Auswählen] Erweitern


"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.

[silentwolf]

Hallo Peter,

gar nicht gesehen das Du mir geschrieben hast!
Danke für den Code!
Die letzte Zeile funktioniert leider noch nicht

Lg

Albert

[database]

Sorry, habe ich in der Schnelle übersehen - habs in der Antwort von vorhin bereits geändert!

[silentwolf]

Hallo Peter,

Dankeschön!!!

Funktioniert wieder mal wie eine Eins

Du bist mein Held