Hello, can anabody help?
in the following part i cannot pass de desired default value
In the module of the mbd i declared:
Global datum_Glo As String
in a form (Dossier_FRM)i did
Private Sub Fact_CMD_Click()
On Error Resume Next
datum_Glo = Me.[SubContact_FRM]![datum]
DoCmd.OpenForm "Facturatie_FRM", acNormal, , , acFormEdit
End Sub
([datum] is a date field in the table/query)
when facturatie_FRM opens i stated
Private Sub Form_Load()
Me.Datum_TXT.DefaultValue = "#" & datum_Glo & "#"
DoCmd.RunCommand acCmdRecordsGoToNew
End Sub
(the source of Datum_TXT is a date field)
this gives in the textfield the corect value EXECPT with dates with
day() below the 13th: e.g. 1/04/2004 does not give first april but 4th
januari or 12/04/2004 return 4th of december, while 13/04/2004 the
13th of april correctly.
when datum_Glo was declared as date each date-value of
Me.[SubContact_FRM]![datum] results in the default value 31/12/1988;
so this does not solve the problem.
thanks for help
Marc Delatere