VBA SQL Abfrage mit Between Datum

Andreas_111 · 2. Februar 2022

Hallo,benötige Hilfe für VBA Übergabe an SQL, egal was ich versuche es kommt immer Typen unverträglich.Dim db As DAO.Database Dim rst As DAO.RecordsetDim sqlstr As Stringsqlstr = "SELECT * FROM qry_export_docx WHERE qry_Prob_Report.Pro_Datum BETWEEN " & Dat1 & " " And " " & Dat2 & ";" Set rst = db.OpenRecordsetsqlstrodersqlstr = "SELECT * FROM qry_export_docx WHERE qry_Prob_Report.Pro_Datum BETWEEN #" & Me!Von & "# " And " #" & Me!Bis & "#;" Set rst = db.OpenRecordsetsqlstrodersqlstr = "SELECT * FROM qry_export_docx WHERE qry_Prob_Report.Pro_Datum BETWEE

Karl Donaubauer

Hallo!
 Dein letzter Versuch kommt der Sache am nächsten (s.a. FAQ 6.8 ) . Nur das "And" musst du noch in den SQL-String integrieren, also z.B. statt
 & "# " And " #" &
 einfach
 & "# And #" &

Andreas_111

ok, hab es so gelöst
 Dim YDatum1 As String
 Dim MDatum1 As String
 Dim Datum1 As String
 Dim YDatum2 As String
 Dim MDatum2 As String
 Dim DDatum2 As String
 
 YDatum1 = Year(Me!Von)
 MDatum1 = Format(Month(Me!Von), "00")
 DDatum1 = Format(Day(Me!Von), "00")
 YDatum2 = Year(Me!Bis)
 MDatum2 = Format(Month(Me!Bis), "00")
 DDatum2 = Format(Day(Me!Bis), "00")
 
 If MDatum1 < 10 Then MDatum1 = Format(Month(Me!Von), "0")
 If DDatum1 < 10 Then DDatum1 = Format(Day(Me!Von), "0")
 If MDatum2 < 10 Then MDatum2 = Format(Month(Me!Von), "0")
 If DDatum2 < 10 Then DDatum2 = Format(Day(Me!Von), "0")
 
 Dat1 = "#" & MDatum1 & "/" & DDatum1 & "/" & YDatum1 & "#"
 Dat2 = "#" & MDatum2 & "/" & DDatum2 & "/" & YDatum2 & "#"
 
 Set db = CurrentDb
 
 sqlstr = "SELECT * FROM qry_export_docx WHERE (((qry_Problem_Report.Pro_Datum) Between " & Dat1 & " And " & Dat2 & "));"
 Set rst = db.OpenRecordset(sqlstr)
 Debug.print sqlstring= SELECT * FROM qry_export_docx WHERE (((qry_Problem_Report.Pro_Datum) Between #2/1/2022# And #2/1/2022#));
 jetzt funktioniert es, alles andere bringt entweder Syntax, Parameter oder Typen -Fehler.
 Trotzdem Danke DonKarl.

Karl Donaubauer

Hallo!
 Das sieht ein bissel aufwändig aus. ;-) Falls du es nochmal mit der kürzeren Version versuchen willst, dann solltest du einfach den Fehler debuggen. Für den Fall:
 Schnapp im Direktfenster, was du mit dem debug.print bekommst, und kopiere es in die SQL-Ansicht einer neuen Abfrage. Wechsle in die Entwurfsansicht. Dort siehst du oft schon, was nicht klappt. Ansonsten führe die Abfrage aus und schaue, ob sie funktioniert bzw. warum nicht.

Andreas_111

Guten Morgen und Danke DonKarl,
 sqlstr = "SELECT * FROM qry_export_docx WHERE (qry_Prob_Report.Pro_Datum) BETWEEN #" & Format(Me!Von, "dd-mm-yyyy") & "# And #" & Format(Me!Bis, "dd-mm-yyyy") & "#;"
 leider kommt jetzt 1 Parameter wurde erwartet aber es wurden zu wenig übergeben.
 in der Abfrage und der DB hab ich Datum kurz eingestellt.
 wenn ich das so angebe kommt Syntaxfehler.
 sqlstr = "SELECT * FROM qry_export_docx WHERE (qry_Prob_Report.Pro_Datum) BETWEEN #" & Format(Me!Von, "dd/mm/yyyy") & "# And #" & Format(Me!Bis, "dd/mm/yyyy") & "#;"
 Debug.print = SELECT * FROM qry_export_docx WHERE (qry_Prob_Report.Pro_Datum) BETWEEN #01.02.2022# And #01.02.2022#;
 Danke im Voraus!

Andreas_111

Hallo DonKarl,
 hab ich, sobald das Datum #02/01/2022# ist kommt typen Fehler.
 lg
 Andreas

Hi,

willkommen im Windows Forum!

VBA SQL Abfrage mit Between Datum - Similar Threads - VBA SQL Abfrage	Forum	Datum
Datums-Zelle "tt.mm.jj" auf "01.01." abfragen? Datums-Zelle "tt.mm.jj" auf "01.01." abfragen?: Hallo,ich möchte in Excel folgende Abfrage aktivieren:Datums-Zelle "tt.mm.jj" auf "01.01." abfragen?Wenn ich z.B. A1=01.01. eingebe, sagt Excel ungültig, bei A1="01.01." = falsch.Wie lautet die...	Microsoft Office	2. Januar 2024
Outlook - VBA - Abfrage Status Outlook - VBA - Abfrage Status: Hallo liebe Community, gibt es eigentlich eine Möglichkeit über VBA in Outlook den Status eines E-Mailkontos abzufragen. Also ist der Gegenüber frei, beschäftigt oder vgl. Als am Ende hätte...	Microsoft Office	30. Juni 2020
Wenn-Abfrage mit Datum erstellen Wenn-Abfrage mit Datum erstellen: Hallo, ich möchte eine verschachtelte Wenn-Abfrage mit Datum erstellen: Wenn Datum kleiner als 1.1.2020 ist, dann nimm Preis A, sonst Preis B. Das Ganze soll dann bitte vorher noch prüfen, ob in...	Microsoft Office	17. Juni 2020
Wie erstellt man eine SQL-Abfrage in Power Automate Flow? Wie erstellt man eine SQL-Abfrage in Power Automate Flow?: Ich habe aktuell das Problem, dass wenn ich bei der "Aktion Zeilen ausgeben" einen Primary Key verwenden will, in dem Fall einen String, mir die Fehlermeldung "bad request" ausgegeben wird. Wenn...	Microsoft Office	4. März 2020
VBA - Datum aus Range mit Offset suchen VBA - Datum aus Range mit Offset suchen: Liebe Community, da mir hier schon einige Male schnell geholfen wurde, wäre ich begeistert, wenn dies noch einmal klappt. Ich arbeite an einem Skript zur Aufarbeitung von Daten (Umformatierung...	Microsoft Office	28. Oktober 2019
VBA Passwort Abfrage nach Beenden von Excel VBA Passwort Abfrage nach Beenden von Excel: Ich habe mehrere Tools programmiert, die beim beenden die Meldung VBA Passwort eingeben auslösen können. Dies tritt aber nur sporadisch auf und offensichtlich nicht auf jedem PC. Die Meldung...	Microsoft Office	12. Juli 2017
Abfrage Parameter (Datum älter als 360 Tage) Abfrage Parameter (Datum älter als 360 Tage): Hallo Ich habe eine Frage kann ich in einer Abfrage als Parameter folgendes einsetzen? - Datum älter als 360 Tage, von heute ausgehend - Vielleicht kann mir hier kurz jemand helfen. LG...	Microsoft Office	11. Februar 2017

VBA SQL Abfrage mit Between Datum