collapse

* Benutzer Info

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

* Wer ist Online

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

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14132
  • stats Beiträge insgesamt: 68386
  • stats Themen insgesamt: 9210
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Laufzeitfehler - Syntaxis in Datum in Abfrageausdruck  (Gelesen 211 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: 23512
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

 

Laufzeitfehler 2424

Begonnen von hanskuhnBoard Access Programmierung

Antworten: 17
Aufrufe: 12734
Letzter Beitrag Juli 28, 2010, 09:45:34
von Daniel Schunk
Laufzeitfehler, Automatisierungfehler Access 2003 (Öffnen des IE)

Begonnen von matzekatzeBoard Access Programmierung

Antworten: 5
Aufrufe: 6629
Letzter Beitrag Oktober 21, 2010, 08:50:48
von Mendez
Laufzeitfehler 2455

Begonnen von TalonBoard Access Programmierung

Antworten: 5
Aufrufe: 9575
Letzter Beitrag August 26, 2010, 15:45:56
von Talon
Laufzeitfehler trotz richtiger Funktion

Begonnen von hanskuhnBoard Access Programmierung

Antworten: 4
Aufrufe: 4775
Letzter Beitrag Oktober 05, 2010, 08:47:32
von hanskuhn
Laufzeitfehler 3134 Syntaxfehler in der Insert Into-Anweisung

Begonnen von Ralf_17Board Formular

Antworten: 11
Aufrufe: 8395
Letzter Beitrag Oktober 05, 2010, 17:37:11
von Ralf_17