naamdag in datumveld

[schuurma]

IN Word dmv van VBA heb ik een formulier gemaakt met een datumveld met vaste notatie.

"Private Sub TxtDatumRetour_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Formaat Datum vast
If IsDate(TxtDatumRetour.Value) = False Then TxtDatumRetour = ""
TxtDatumRetour = Format(TxtDatumRetour, "d mmmm yyyy")
End Sub"

Nu wil ik ook de dag naam erbij dus invullen in datumveld 26-8-2011 met als resultaat vrijdag 26 augustus 2011.

Alvast bedankt voor het meedenken.

Pieter

 

[old Hippy]

probeer dit
TxtDatumRetour = Format(TxtDatumRetour, "dddd mmmm yyyy")

 

[schuurma]

Jammer,

Er veranderd niets ik wil echt de vrijdag hebben.
Maar toch bedankt..

 

[old Hippy]

Mischien is de notatie niet goed probeer dit

TxtDatumRetour = Format(TxtDatumRetour, "dddd:mm:jjjj")

Of Format(Now, "dddddd")

 

[schuurma]

Jammer,
Dit werk ook niet volgens mij is de uitgangspunt voor datumnotatie goed alleen wil ik er nog een naamdag voor de datum hebben. Dus Maandag 29 augustus 2011 als ik 29-8-2011 invul. Wat ik al probeer ik krijg alleen 29 augustus 2011 te zien.

 

[old Hippy]

Hi gek als ik een textbox maak en een button
en ik set dit in de button Click TxtDatumRetour = Format(TxtDatumRetour, "dddd dd mmmm yyyy")

en ik vul in de Textbox 29-08-2011 Dan werkt hewt bij mij goed.

Dit werkt bij mij

Private Sub TxtDatumRetour_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Formaat Datum vast
If IsDate(TxtDatumRetour.Value) = False Then TxtDatumRetour = ""
TxtDatumRetour = Format(TxtDatumRetour, "dddd dd mmmm yyyy")
End Sub

 

[schuurma]

het werkt, ik was zo stom om bij het invulveld niet met een tab naar het volgende veld te gaan. En dan werkt het niet.

Heel erg bedankt..

 

[old Hippy]

Top