OLE Object Erros on subforms

[dgirl1010]

I have a calendar button that the user can select to choose a date on several of my forms. I'm using VBA to tell the calendar form which date to default to, as well as whcih field to send the selected date to. It works perfectly in all spots except one, where the button is on a subform. I have another form with this same button on a subform there and it works correctly. I'm not sure what I'm missing here.

The error I'm getting on clicking the button is "The object you referenced in the Visual Basic procedure as an OLE object isn't an OLE object."

The code that works:
[Global Code].stSelectDate = "DueDate"

If (Eval("[Forms]![OpsProject]![OpsTask].Form!txtDueDate Is Not Null")) Then
DoCmd.Echo False, "Visual Basic Code is running."
DoCmd.OpenForm "Calendar", acNormal, "", "", , acNormal
Forms!Calendar!OleCalendar.Value = [Forms]![OpsProject]![OpsTask].Form!txtDueDate
DoCmd.Echo True
Else
DoCmd.Echo False, "Visual Basic Code is running."
DoCmd.OpenForm "Calendar", acNormal, "", "", , acNormal
Forms!Calendar!OleCalendar.Value = Now()
DoCmd.Echo True
End If

The code that doesn't work:
[Global Code].stSelectDate = "ConfigDtlsEffDate"

If (Eval("[Forms]![Config_frm]![ConfigDetailsSub_frm].Form!txtEffectiveDate Is Not Null")) Then
DoCmd.Echo False, "Visual Basic Code is running."
DoCmd.OpenForm "Calendar", acNormal, "", "", , acNormal
Forms!Calendar!OleCalendar.Value = [Forms]![Config_frm]![ConfigDetailsSub_frm].Form!txtDueDate
DoCmd.Echo True
Else
DoCmd.Echo False, "Visual Basic Code is running."
DoCmd.OpenForm "Calendar", acNormal, "", "", , acNormal
Forms!Calendar!OleCalendar.Value = Now()
DoCmd.Echo True
End If

 

[dgirl1010]

I posted this late Friday, hoping someone can help me today. Thanks!

 

[PHV]

Perhaps this ?
Forms!Calendar!OleCalendar.Value = [Forms]![Config_frm]![ConfigDetailsSub_frm].Form![!]txtEffectiveDate[/!]

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[PHV]

BTW, which line of code highlighted when in Debug mode ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[dgirl1010]

I caught that too (typo, sorry). I actually have it as that already and no luck.

This is the line that is highlighted when I debug:
If (Eval("[Forms]![Config_frm]![ConfigDetailsSub_frm].txtEffectiveDate Is Not Null")) Then

I've also tried pulling out the [Config_frm] portion and just opening the subform (stand alone) and the code works fine then. It's only when it's open in the main form that it gets hosed. I'm stumped.

 

[dgirl1010]

Just tried this too, with no luck:

If (Eval("[Forms]![Config_frm]![ConfigDetailsSub_frm].Form!txtEffectiveDate Is Not Null")) Then

 

[dgirl1010]

I got it! I knew it was something simple, and it was. I had to change the name of the form to ConfigDetailsSub_frm. I still had it as the default name (DOH!). Changed that and this works like a charm. Thanks for the help!

 

[PHV]

Have a look here:

http://support.microsoft.com/?kbid=209099

You may try to play with the expression builder (loaded forms) to discover the proper syntax.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886