OK I am having trbl with this code
Private Sub ocxCalendar_Click()
mystring = Me.OpenArgs
myarray = Split(mystring)
'myarray(0)
'myarray(1)
[Forms]!["myarray(1)"]![txtDate].Value = Me.ocxCalendar.Value
DoCmd.Close
End Sub
keeps saying unable to find form myarray(1) even though when you highlight it gives you myarray(1) = "Inbound"
Private Sub ocxCalendar_Click()
mystring = Me.OpenArgs
myarray = Split(mystring)
'myarray(0)
'myarray(1)
[Forms]!["myarray(1)"]![txtDate].Value = Me.ocxCalendar.Value
DoCmd.Close
End Sub
keeps saying unable to find form myarray(1) even though when you highlight it gives you myarray(1) = "Inbound"