Passing object as parameter

[augustus]

Hi,

in excel, i can pass object as parameter by simply:

Dim objCbx As ComboBox
Set objCbx = Sheet3.cbxMainData
Call Module1.Test(objCbx)

but in word, I can't
Dim objCbx As ComboBox
Set objCbx = ThisDocument.cbxMainData
Call Module1.Test(objCbx)

the objCbx under word will be empty.

Please tell me how to pass object in word.

Thanks.

 

[Tony Jollans]

I can do it in Word so what error do you get?

 

[Jezebel]

Word VBA is syntactically identical to Excel's ... so the problem lies
elsewhere in your code.

 

[augustus]

Thanks Tony & Jezebel.

That's what I thought too. (Excel & Word syntact are the same)

THe following is my code:

Private Sub Document_Open()
Dim strSQL As String, strColumnLocation As String
Dim objCbx As ComboBox

strSQL = "SELECT * FROM [JobNo_JobName$]"
Set objCbx = Me.cbxJob
Call Module1.LoadDatabase(Me.cbxJob, "JobNo", strSQL)
End Sub

But when I run the code under debug mode (ie, F8 button), or query objCBx
inside Immediate mode, I get nothing. WHy?

I have also checked the Tools/Reference, anad ensure that it is identical to
Excel (of course replaced Excel Object with Word Object), but this didn't
help.