Subform in Procedure (1 Viewer)

[Joshann]

I know this has got to be a simple reference problem, but I just can't figure it out. I am trying to pass a nested subform to a procedure, but I keep getting a type mismatch error. Here's an example:

Call MyProcedure(Forms!MainForm.Form!Subform1.Form!Subform2)


Public Sub MyProcedure(frm as Form)
.
.
End Sub

 

[boblarson]

One, you shouldn't be trying to pass the FORM itself. What are you trying to do in the procedure? More than likely you need to pass something else, or do something else.

By the way your subform syntax is wrong too. The syntax is:


Forms!YourMainFormNameHere.YourSubformControlNameHere.Form.YourControlNameHere
(the space between the H and the e are from the forum doing weird things - it's not my typing)

 

[KeithG]

Can you explain what your procedure does? A subform is a control on a form not an actual form. It think this may be causing your error.

 

[Joshann]

Here is a sample of some of the code that illustrates why I need to use the Form object:

Call MyProcedure(Forms!MainForm.Form!Subform1.Form!Subform2)

Procedure MyProcedure(frm as Form)
[INDENT]If frm.NewRecord = True Then
[INDENT]For Each ctl In frm.Controls
[INDENT]rst.AddNew
rst!NewValue = ctl.Value
rst.Update[/INDENT]
Next ctl[/INDENT]
End If[/INDENT]
.
.
End Sub

There are many forms that use this procedure. It works fine when the procedure is called from a main form like this:

Call MyProcedure(Me)

It just doesn't work for a subform.