Cannot pass a form object to a module

[rlntemp-gng]

I have one module where I would like to launch 2 different forms (that
do exist), based on a form object and string that is passed into it.
(prmTable is a string, not a table object simply because prmTable is
only used in the form's caption)
(I know I could put this code behind a form object, but my goal is to
modularize this code somewhat and get this technique down so that I
can import this code to other applications in the future where I need
to use one code module to pass in different forms)

I have the following code in a VBA module object called mod_UTIL:

<begin code>
Private Sub ViewOutputData(prmForm As Form, prmTable As String)
DoCmd.OpenForm prmForm, acFormDS 'open the form in Datasheet view
prmForm.Caption = "Data Output from " & prmTable
End Sub
<end code>

Here, is where the above module is called:
<begin code>
Private Sub cmdW1Data_Click()
ViewOutputData Forms!frmW1DataOut, "tblW1DataOut"
End Sub
<end code>

....in another module:
Private Sub cmdW2Data_Click()
ViewOutputData Forms!frmW2DataOut, "tblW2Dataout"
End Sub

To try and pass in the form object, I have tried various flavors for
this trying to get this to work:

ViewOutputData Forms!frmW1DataOut, "tblW1Dataout" yields:
"Access cannot find the form frmW2DataOut"

ViewOutputData "Forms!frmW1DataOut", "tblW1Dataout" yields:
"type mismatch error"

ViewOutputData [Forms!frmW1DataOut], "tblW1Dataout" yields:
"access can't find the field "|" referred in your expression."

ViewOutputData frmW1DataOut, "tblW1Dataout" yields:
"By Ref Argumant type mismatch'

What is still not correct with my code? Any assistance is very much
appreciated.

Thank you.

[Tom van Stiphout]

On Mon, 16 Jul 2007 08:07:44 -0700, rl*********@yahoo.com wrote:

See comments in-line.
-Tom.

>I have one module where I would like to launch 2 different forms (that
do exist), based on a form object and string that is passed into it.
(prmTable is a string, not a table object simply because prmTable is
only used in the form's caption)
(I know I could put this code behind a form object, but my goal is to
modularize this code somewhat and get this technique down so that I
can import this code to other applications in the future where I need
to use one code module to pass in different forms)

I have the following code in a VBA module object called mod_UTIL:

<begin code>
Private Sub ViewOutputData(prmForm As Form, prmTable As String)
DoCmd.OpenForm prmForm, acFormDS 'open the form in Datasheet view
prmForm.Caption = "Data Output from " & prmTable
End Sub
<end code>

Here, is where the above module is called:
<begin code>
Private Sub cmdW1Data_Click()
ViewOutputData Forms!frmW1DataOut, "tblW1DataOut"
End Sub
<end code>

...in another module:
Private Sub cmdW2Data_Click()
ViewOutputData Forms!frmW2DataOut, "tblW2Dataout"
End Sub

To try and pass in the form object, I have tried various flavors for
this trying to get this to work:

ViewOutputData Forms!frmW1DataOut, "tblW1Dataout" yields:
"Access cannot find the form frmW2DataOut"

No, that is illogical. Check your code.
This is a correct calling syntax.
Alternative: ViewOutputData Me, Me.Caption
Of course the referenced form must be open, otherwise it is not part
of the Forms collection.

>
ViewOutputData "Forms!frmW1DataOut", "tblW1Dataout" yields:
"type mismatch error"

Of course. If your sub expects a form object, you can't pass a string
variable.

>
ViewOutputData [Forms!frmW1DataOut], "tblW1Dataout" yields:
"access can't find the field "|" referred in your expression."

Illegal syntax.

>
ViewOutputData frmW1DataOut, "tblW1Dataout" yields:
"By Ref Argumant type mismatch'

This works in my test db. You *may* be able to fix this by changing
to:
Private Sub ViewOutputData(ByVal prmForm As Form, ByVal prmTable As
String)

>
What is still not correct with my code? Any assistance is very much
appreciated.

Thank you.

[Bobort]

Hi there,

The problem is with this function:

Private Sub ViewOutputData(prmForm As Form, prmTable As String)
DoCmd.OpenForm prmForm, acFormDS 'open the form in Datasheet
view
prmForm.Caption = "Data Output from " & prmTable
End Sub

More specifically, it is with DoCmd.OpenForm. The first argument to
this method is the NAME of the form (as a string) to open, not a form
object. Here is the corrected version:

<begin code>
Private Sub ViewOutputData(strForm As String, prmTable As String)
DoCmd.OpenForm strForm, acFormDS 'open the form in Datasheet
view
Forms(strForm).Caption = "Data Output from " & prmTable
End Sub
<end code>

You would call it as such:
Private Sub cmdW2Data_Click()
ViewOutputData "frmW2DataOut", "tblW2Dataout"
End Sub

You can only reference the form object if the form is already open.

I hope this helps!

[rlntemp-gng]

Tom,
This worked in a test db...thank you. I appreciate it.

[rlntemp-gng]

This worked great...thanks! ...very helpful here.
I do get confused sometimes when passing strings vs actual object
names.
Your example here provided clarification.