Hallo ihr,
Ich habe in meinem Accessprogramm folgenden, leicht abgewandelte, Code:
sql = "Select datum FROM BM_Typ_lfd WHERE datum = " & date()
Set db1 = CurrentDb
Set s1 = db1.OpenRecordset(sql, dbOpenSnapshot)
If s1.RecordCount > 0 Then
MsgBox („Sie haben diesen Vorgang bereits erfasst.“)
Exit Sub
End If
Diese Prozedur gibt mir leider immer einen „Kriterienausdrucks-Fehler“
Kann mir jemand sagen warum?
Danke für jeden Tipp
Gruß Martin
Hallo,
versuchs doch mal mit
… & „#“ & date() & „#“
Ulrich
Hallo Ulrich,
deine Antwort scheint logisch. Hab ich auch schon vorher so versucht.
Aber es geht nicht. Es bringt mich fast zum Wahnsinn.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
nimm DateValue statt date (O.T.)
…
datevalue(now) natürlich ;o))))
Bernd
Hallo ihr,
ich hab die Lösung selber gefunden.
Könnt mich selber ohrfeigen!
Es muss wie folgt aussehen:
… datum = Date()"
Man muss es überhaupt nicht aus dem String herrausnehmen.
Trotzdem danke für eure Hilfe.
Martin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]