Running a nested sub form's code

[Peter Kinross]

How do I run code from a sub form within a sub form from another module?
I tried:
Run Forms![frmClientsPolicies]![frmsubPoliciesForThisClient]![Policy Details].txtFunds_DblClick
but got an error

[HansV]

Have you made txtFunds_DblClick a Public procedure? By default, event procedures are always Private. So:

Public Sub txtFunds_DblClick(Cancel As Integer)

[HansV]

Oh, and call it like this:

Dim intCancel As Integer
Call Forms![frmClientsPolicies]![frmsubPoliciesForThisClient]![Policy Details].txtFunds_DblClick(intCancel)

Not Run!

[Peter Kinross]

Made the sub a Public one.
dimmed intCancel As Integer
But I get a compile error on the Call line. Tried brackets before Forms! and at end, but still error.

[HansV]

Let me see - I'll have to experiment.

[HansV]

I'll be away from my computer for several hours. I'll look at your problem when I get back.

[Peter Kinross]

If I remove the 'Call', the procedure compiles. But when it runs I get an error at that line:
"Object doesn't support this property or method"

[HansV]

Try this version:

Code: Select all

    Dim intCancel As Integer
    Forms!frmClientsPolicies!frmsubPoliciesForThisClient![Policy Details].Form.txtFunds_DblClick intCancel

[Peter Kinross]

Yep, that worked!

ThanksHansStamp.gif

My stamp's ink is running out from over use.