pass combobox as argment to procedure

[Guest]

I'm hungup trying to pass a combo box to a procedure with the 'Type Mismatch'
error. Here's a sample of what I'm trying to do. I think I'm passing the
string title of the cbox instead of the object.

Private Sub UserForm_Initialize()
Debug.Print "txtBox1 Name = " & Me.txtBox1.Name
Call PassTxtBox(txtBox1)
End Sub

Private Sub PassTxtBox(ByRef itxtBox As TextBox)
Debug.Print "Passed Text Box Name = " & itxtBox.Name
End Sub

 

[Bob O`Bob]

I'm hungup trying to pass a combo box to a procedure with the 'Type Mismatch'
error. Here's a sample of what I'm trying to do. I think I'm passing the
string title of the cbox instead of the object.

Private Sub UserForm_Initialize()
Debug.Print "txtBox1 Name = " & Me.txtBox1.Name
Call PassTxtBox(txtBox1)
End Sub

Private Sub PassTxtBox(ByRef itxtBox As TextBox)
Debug.Print "Passed Text Box Name = " & itxtBox.Name
End Sub

Excel VBA may be a little different, but in vb6 your syntax seems to work just fine:

Option Explicit

Private Sub Form_Load()
Debug.Print "text1 Name = " & Me.Text1.Name
Call PassTxtBox(Text1)
End Sub

Private Sub PassTxtBox(ByRef itxtBox As TextBox)
Debug.Print "Passed Text Box Name = " & itxtBox.Name
Debug.Print "Passed Text Box Text = " & itxtBox.Text
End Sub

[result]
text1 Name = Text1
Passed Text Box Name = Text1
Passed Text Box Text = my text



Though personally I might leave off both the "Call" keyword and the parentheses
from that line (optional syntax)

Maybe the problem isn't the call, but in /when/ you're making it.
Is the control really fully instantiated by the time of the UserForm_Initialize event?



Bob
--

 

[Bob Phillips]

Private Sub UserForm_Initialize()
Debug.Print "txtBox1 Name = " & Me.txtBox1.Name
Call PassTxtBox(txtBox1)
End Sub

Private Sub PassTxtBox(ByRef itxtBox As msforms.TextBox)
Debug.Print "Passed Text Box Name = " & itxtBox.Name
End Sub



--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[Guest]

Thanks Bobs! Figured it was something simple like that

Ryan

 

[Bob Phillips]

Excel and the MSForms libraries both have "TextBox" objects. Therefore,
TextBox is an ambiguous reference. In this instance, VBA uses the library
with a higher priority. Because the Excel library is at a higher priority,
the object from this library is used. A textbox user form is not an
Excel.TextBox, it is an MSForms.TextBox, so it must be qualified as such.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[Bob O`Bob]

Private Sub PassTxtBox(ByRef itxtBox As msforms.TextBox)

Cool!
I'm just "browsing" here lately, mostly to learn more about Excel's capabilities.
My VB expertise can sometimes help in VBA, but in this case it was something else.

Thanks! You already helped more than just the OP.



Bob
(MS-MVP VB, 2000-2006)
--

 

[Bob Phillips]

Bob,

See my follow-up to Hokievandal for more detail.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)