Datum wisselt automatisch (VBA)

[toverkamp]

Ik heb een probleem met een VBA formulier. Ik moet een datum invullen bij de melding van storing, en datum van reparatie. Wanneer ik dit doe dan draait het bestand de datum automatisch om, dus:
er komt dan te staan bijvoorbeeld 9-11-2006 ipv 11-9-2006. Ik heb drie keuzelijsten naast elkaar voor de datum (dag, maand en jaar). De volgende code gebruik ik:

'dagen melding
dagmel = 1
Do While dagmel < 32
Storingsformulier.dagmel.AddItem "" & dagmel
dagmel = dagmel + 1
Loop

'maanden melding
maandmel = 1
Do While maandmel < 13
Storingsformulier.maandmel.AddItem "" & maandmel
maandmel = maandmel + 1
Loop

'jaren melding
Storingsformulier.Jaarmel.AddItem "2005"
Storingsformulier.Jaarmel.AddItem "2006"
Storingsformulier.Jaarmel.AddItem "2007"
Storingsformulier.Jaarmel.AddItem "2008"
Storingsformulier.Jaarmel.AddItem "2009"
Storingsformulier.Jaarmel.AddItem "2010"

dagnu = Day(Date)
maandnu = Month(Date)
jaarnu = Year(Date)

Storingsformulier.dagmel.Value = dagnu
Storingsformulier.maandmel.Value = maandnu
Storingsformulier.Jaarmel.Value = jaarnu

 

[Wigi]

Lees les 5 eens op de site van Luc Heyndrickx.

Wigi

 

[toverkamp]

Lees les 5 eens op de site van Luc Heyndrickx.

Wigi

Ik heb nu de volgende code toegevoegd, maar het probleem doet zich nog steeds voor:
datummelding = Format(datummelding, "dd-mm-yyyy")

 

[toverkamp]

Weet iemand wat er aan de code veranderd moet worden?

 

[toverkamp]

Ik heb het opgelost door de Format om te draaien:

datummelding = Format(datummelding, "mm-dd-yy")

i.p.v.:
datummelding = Format(datummelding, "dd-mm-yy")

 

[Wigi]

Als ik mij niet vergis, dat stond dus ook al (impliciet) op de site van Luc.

Als ik mij vergis, excuses dan. Ik heb het niet gecheckt uit tijdsgebrek.

Lees les 5 eens op de site van Luc Heyndrickx.

Wigi