[Base] Initialiser le controle de date d'un formulaire

[reginacoco]

Bonjour,
J’ai assigné la macro ci-dessous à l’évènement “Lors du chargement” de mon formulaire.
Tout fonctionne correctement sauf pour le contrôle de date que j’aimerai initialiser avec la date du jour.

> Blockquote
Sub initForm(oEvt As Object)
Dim oForm As Object
’ Initialisationd des champs
oForm=oEvt.Source

oForm.numEcr.DefaultValue=0
oForm.txtPiece.String= “”
oForm.txtLibel.String=""
oForm.numDebit.Value=0
oForm.numCredit.Value=0
oForm.numEcrSolde.Value=0
oForm.Filter="(Ecriture.ecrnum =‘0’ )"
oForm.lstCptnum.SelectedValue=""
oForm.lstJournal.SelectedValue=""
oForm.dteDate.Text=" "
oForm.dteDate.Text=Date
oForm.dteDate.commit()
oForm.reload

End Sub

`Preformatted text

Je me suis inspiré d’une solution de Pierre Yves Samin, mais ça ne marche pas.
Avez-vous une idée?

[reginacoco]

Non désolé ça marche très bien.
J’avais une erreur ailleurs
J’avais donné une valeur à la propriété .DefaultDate. Dans le cas de cette routine on ne peut pas la modifier on obtient toujours l’erreur “Propriété invalide…”