Textbox mit Datum

Forumthread: Textbox mit Datum

Textbox mit Datum

07.07.2006 15:13:03

Andreas

Hallo,
Ich habe eine Textbox1, in die ein Datum eingegeben werden soll.
Es soll so gemacht sein, dass nur ein Datum des Formats "DD.MM.YYYY"
eingegeben werden darf, nichts anderes. Ich hab schon alles mögliche
versucht, aber das funktioniert alles nicht so wie ich will.
Hat vielleicht jemand einen guten Lösungsvorschlag für eine Prozedur
oder wie ich das sonst einbauen kann?
Gruss
Andreas

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox mit Datum

07.07.2006 16:22:36

Harald E
AW: Textbox mit Datum

07.07.2006 16:38:54

Andreas
AW: Textbox mit Datum

07.07.2006 17:05:47

tom
AW: Textbox mit Datum

07.07.2006 17:15:12

Peter Feustel
AW: Textbox mit Datum

07.07.2006 17:29:33

Peter Feustel
Danke

07.07.2006 17:28:56

Andreas

AW: Textbox mit Datum

07.07.2006 16:22:36

Harald E

Hi Andreas,
vielleicht so ?
if textbox1.value <> format(textbox1.value, "dd.mm.yyyy") then...
Gruss Harald

AW: Textbox mit Datum

07.07.2006 16:38:54

Andreas

Hallo Harald,
ich das mal in meine IF-Schleife so eingebaut:
ElseIf TbDatum.Value <> Format(TbDatum.Value, "dd.mm.yyyy") Then
MsgBox ("Geben Sie das Datum im Format TT.MM.JJJJ ein!")
Normalerweise sollte das ja so funktionieren, macht es aber leider nicht. Deswegen lass ich die Frage nochmal offen. Dank Dir aber trotzdem für die Hilfe.
Gruss
Andreas

AW: Textbox mit Datum

07.07.2006 17:05:47

tom

Hallo,
probier so:
If TextBox1.Value Like "??.??.????" Then
MsgBox "Das Datum wurde in korrektem Format eingegeben !", vbInformation
Else
MsgBox "FEHLER ! Das Datum darf nur im Format TT.MM.JJJJ eingegeben werden !", vbExclamation
End If
Musst du noch anpassen
Grüsse

AW: Textbox mit Datum

07.07.2006 17:15:12

Peter Feustel

Hallo Harald,
so sollte es gehen:
https://www.herber.de/bbs/user/34922.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Textbox mit Datum

07.07.2006 17:29:33

Peter Feustel

Hallo Harald,
erweitere die erste If-Abfrage so:
If Me.TextBox1.Value <> "" And IsDate(Me.TextBox1.Value) Then
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Danke

07.07.2006 17:28:56

Andreas

Danke für die Hilfe, ich werd mir das jetzt so zurechtbasteln, wie ich das brauch.
Gruss
Andreas

Forumthread: Textbox mit Datum

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread