Using same variable to refer to multiple forms

[RobertSF]

I have a form with a button that, when clicked and depending on a separate value, will launch one of two possible forms.

dim frm as UserForm

'later
If theValue = "edit" then
    Set frm = frmEdit
ElseIf theValue = "delete" then
    Set frm = frmDelete
End If

frm.Show 'Run time error 438: Object doesn't support this property or method

Indeed, I can access no properties of frm. Even ?frm.name gives an error. Both frmEdit and frmDelete are valid forms.

Any idea if this is possible?

 

[Fluff]

Try

Dim frm As [COLOR=#ff0000]Object[/COLOR]

 

[PatOBrien198]

Perhaps neither condition is true....

try:

If LCase(theValue) = "edit" then
set frm = frmEdit

'and

ElseIf LCase(theValue) = "delete" then
set frm = frmDelete
'also, add an else condition....

Else
msgbox "frm not set"
exit sub
end if

 

[JLGWhiz]

Try

Dim frm As [COLOR=#ff0000]Object[/COLOR]

This has always amazed me. The pop up selection menu lists UserForm as an option, but it errors if used. I think MS should fix that.

 

[Fluff]

Must admit I've never figured out when you would dim as Userform, That's assuming that there would be a scenario when you'd use it.
I either Dim as object, or Dim as Userform1

 

[JLGWhiz]

Must admit I've never figured out when you would dim as Userform, That's assuming that there would be a scenario when you'd use it.
I either Dim as object, or Dim as Userform1

I don't believe I have ever declared a variable for a userform. I just refer to the names in most cases, but this code has been written to use a variable so it should be declared.

 

[RobertSF]

Thanks, Pat. I've fallen into that trap before! But it's not the case in this situation.

 

[RobertSF]

Thanks everyone for the suggestion to declare the variable an Object instead of a UserForm.

I'll try it.