Setting the default value of a control via VBA

[MissyEd]

Hi all

I have a form which I open either as a form to add new records or edit. Some key fields are locked on the form to prevent the user entering incorrect details. Instead, I would like to set them via VBA. My code below works for the branch number, but the date comes up as #Div/0! - any ideas ?

Public Function f_AddingRecords_Cash_Payments(dateCashSheet As Date, iBranchNo As Integer)
'
' Opens the CASH_PAYMENTS form for adding a record
'
' Create
Dim frmTemp As Form
Debug.Print dateCashSheet

' Set form properties
DoCmd.OpenForm "CASH_PAYMENTS", acNormal, , , acFormAdd, acWindowNormal
Set frmTemp = Forms("CASH_PAYMENTS&quot
frmTemp.Tag = "Add"
frmTemp.Controls("CASH_SHEET_DATE&quot.DefaultValue = dateCashSheet
frmTemp.Controls("BRANCH_NUMBER&quot.DefaultValue = iBranchNo
frmTemp.Refresh

' Destroy
Set frmTemp = Nothing
End Function
Missy Ed
Looking to exchange ideas and tips on VB and MS Access development as well as office 97 development. Drop me a line: msedbbw@hotmail.com

 

[dsi]

If the control requires a date format, then you need to validate the value you want to display.
Maybe you can try something like this:

If IsDate(dateCashSheet) = True Then
     frmTemp.Controls("CASH_SHEET_DATE").DefaultValue = dateCashSheet
Else
     frmTemp.Controls("CASH_SHEET_DATE").DefaultValue = ""
End If

or, to display as a string:

frmTemp.Controls("CASH_SHEET_DATE").DefaultValue = CStr(dateCashSheet)

 

[MissyEd]

Thanks for the tip tclere, but it didnt work, still giving me the same error inside the field Missy Ed
Looking to exchange ideas and tips on VB and MS Access development as well as office 97 development. Drop me a line: msedbbw@hotmail.com