how to pass a form as parameter

[ofilha]

I am trying to pass a form as a parameter in a function. How can i do that?

I have tried function( frm as Form) then on the calling routing i try to use
private sub callingRoutine()
Dim frm1 as Form
set frm = Me
callFunction(frm)
end sub

This fails either on the calling routine or when i get into the function that needs to use the form. I get various errors depending on how i am hacking the code.

Thanks

[ChipR]

I know you can do this:

callFunction(Me.Name)
-----------------------------------------
Public callFunction(strFormName as String)
Forms(strFormName).Visible = True
'or whatever you want to do on the form.

Hope that helps.

[FishVal]

Hello, ofilha.

Actually your approach is quite right.
However, it seems to me you have a syntax problems.
Could you post the code exactly as it looks?

[ADezii]

As stated by FishVal, your approach is correct, but your Syntax is not!

Private Sub CallingRoutine()
Dim frm1 As Form
 
Set frm1 = Me
 
'*** Either Call Routine will work ***
Call fTestFormParameter(frm1)
Call fTestFormParameter(Me)
'*************************************
End Sub

Public Function fTestFormParameter(frmForm As Form)
  MsgBox "The Caption of the passed Form is " & frmForm.Caption
End Function

P.S. - CallingRoutine() is Private to the Form while fTestFormParameter() is a Public Function in a Standard Code Module. fTestFormParameter() can also be Private within the context of the Form where CallingRoutine() resides.