Visual Basic for Applications

[Rockman]

Any VBA experts out there that know the right syntax to pass a control as a parameter of a subroutine?

For example:

Private Sub ChangeEnabled(Generic as Textbox)
   Generic.Enabled = not(Generic.Enabled)
End Sub

Private Sub Main
   Call ChangeEnabled(Me!myTextbox)   'This doesn't work
End Sub

Thanks for any help,
Jeff

[Ed Lampman]

Private Sub Main
Call ChangeEnabled(Me.myTextbox)
End Sub

[cafeenman]

I don't know about VBA, but in VB you can declare a control as a generic control if you need to. For example, if you wanted to populate a list, you would want to be able to pass a listbox or a combobox:

Sub PopulateList (lst As Control)
 
If TypeName(ctl) <> "ListBox" And TypeName(ctl) <> "ComboBox" Then
  Exit Sub
End If
 
' Do something with control here
 
End Sub

[Rockman]

Thanks for the responses.

You are both right.

My problem was that I had imported an MSFlexGrid and yet my subroutine would not accept:

Private Sub SetupFlex(myFlex as MSFlexGrid)

I changed it to:

Private Sub SetupFlex(myFlex as control)

and it works great now.

Thanks for the help,
Jeff