Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Datumabfrage mit Textfeld bei Access 2010 oder 2013 in VBA

Begonnen von pp17, Oktober 08, 2016, 21:38:12

⏪ vorheriges - nächstes ⏩

pp17

Hallo,

kann mir jemand bei meiner Blockade helfen?

Im einem Textfeld frage ich mit Domwert ein Datum ab, welches in einer Tabelle gespeichert ist.
Bis hier klappt es.

Jetzt möchte ich in VBA abfragen, ob das Tagesdatum größer ist als dieses Datum.
Im Formular frage ich in VBA "beim Öffen" folgendes ab:

If Date > Me.Text22 Then
MsgBox "Datum abgelaufen"
Else
MsgBox "Datum nicht abgelaufen"
End If

Leider ist in der ersten Zeile schon ein Fehler.
Hatte gedacht, dass dieses an Domwert liegt. Daher habe ich ein weiteres Textfeld genommen, welches den Inhalt von Text22 übernommen hat. Leider der gleiche Fehler.

Hat jemand einen Tipp oder eine Idee?

Bin über jede Hilfe dankbar.

Gruß Peter


MzKlMu

#1
Hallo,
zeige die Domwert Formel.
Außerdem ist diese überflüssig (auch das Textfeld), denn Du kannst ja Domwert (DLookUp) direkt in VBA verwenden ohne das Feld Text22.
Gruß Klaus

pp17

Hallo Klaus,
meine Domwertformel in Textfeld (Text22) lautet:
=DomWert("ZugriffErlaubtBis";"tbl_A_Benutzer";"[BenutzerID]=" & [Text20])

Gruß Peter

DF6GL

Hallo,

ZitatIm Formular frage ich in VBA "beim Öffen" folgendes ab:

Dieses Ereignis dürfte für diese Prüfung(s-Methode) nicht geeignet sein (es ist zu früh im Ablauf).
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access