Form Name As Sub Parameter

[Breezwell]

Hello everyone,

This seems like a simple thing to do, however no matter what I try I cannot manage to pass a form name to a function in order to open that form. The name of the form is DisplayUI_CoreSearch_UniqueGroupCode_Count. The function is stored in a module called modUniqueCounts.

I keep getting a ByRef argument type mismatch error.
Procedure
************

Public Sub UniqueCountFormDisplay(FName As Form)
 
    DoCmd.OpenForm FName, acNormal
 
End Sub

Event That Calls the Function
**********************************

Private Sub txtUniqueFlavorCount_Selling_Click()
 
Call UniqueCountFormDisplay(DisplayUI_CoreSearch_UniqueGroupCode_Count)
 
End Sub

Thanks for any insight.

[missinglinq]

Change these two lines as indicated:

Call UniqueCountFormDisplay("DisplayUI_CoreSearch_Unique GroupCode_Count")

Notice the quotes around the form name.

Public Sub UniqueCountFormDisplay(FName As String)

Linq ;0)>

[NeoPa]

Linq's solution is the more sensible, but in case you need to know how to pass forms (rather than simply their names) to procedures, here is what you need :
Procedure

Public Sub UniqueCountFormDisplay(ByRef FName As Form)
 
    DoCmd.OpenForm FName.Name, acNormal
 
End Sub

Event That Calls the Function

Private Sub txtUniqueFlavorCount_Selling_Click()
 
    Call UniqueCountFormDisplay(Form_DisplayUI_CoreSearch_UniqueGroupCode_Count)
    'Or, if you know the form is open already
    Call UniqueCountFormDisplay(Forms!DisplayUI_CoreSearch_UniqueGroupCode_Count)
 
End Sub

[Breezwell]

Thanks for the feedback guys.

I utilized passing the form name as a string, however both solutions have taught me something new.

Again, thanks for the great help!

[NeoPa]

You'r very welcome :)

I think I'd have used Linq's solution in your position too ;)