collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 59
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 1

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14072
  • stats Beiträge insgesamt: 67582
  • stats Themen insgesamt: 9104
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Laufzeitfehler - Syntaxis in Datum in Abfrageausdruck  (Gelesen 100 mal)

Offline soylatino

  • Newbie
  • Beiträge: 1
Laufzeitfehler - Syntaxis in Datum in Abfrageausdruck
« am: Oktober 04, 2018, 02:23:16 »
Hallo liebes Forum,

ich hoffe ihr könnt mir dabei helfen. Ich versuche herauszufinden, warum erscheint immer eine Fehlermeldung wenn ich mein Formular starte:

Die Fehlermeldung lautet:
Microsoft VIsual Basic
Laufzeitfehler "3075"

Syntaxfehler in Datum in Abfrageausdruck "[Attdate] = #04.10.2018"

Der Code:
Private Sub Form_Load()
Dim AddToday As String
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Me.cmdOldClass.Caption = "Old Classes"
Me.ListClass.RowSource = "select * from qryClasslist where currentActive = true"

If IsNull(DLookup("Date_ID", "tblAttDate", "[Attdate] = #" & Date & "#")) Then

        'MsgBox "is null"
        'add today date to AttDate table
        AddToday = "Insert INTO tblAttDate(AttDate) Select Date() as myTodayDate;"
                'MsgBox (AddToday)
                DoCmd.SetWarnings False
                DoCmd.RunSQL AddToday
                DoCmd.SetWarnings True
Else
    'MsgBox "is not null" ' Do nothing
End If
End Sub


Danke im voraus!
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23453
Re: Laufzeitfehler - Syntaxis in Datum in Abfrageausdruck
« Antwort #1 am: Oktober 04, 2018, 08:40:23 »
Hallo,


SQL erfordert ISO- oder US-Datumsformat

If IsNull(DLookup("Date_ID", "tblAttDate", "[Attdate] = " & Format(Date,"\#yyyy-mm-dd\#") ) )Then

oder gleich die Date-Funktion als Teil der Where-Condition einsetzen:
If IsNull(DLookup("Date_ID", "tblAttDate", "[Attdate] = Date()")) Then