G
Guest
I need to pull a query up from SQL through access --- WITHOUT --- using the
form rowsouce property. What am I doing wrong?
Private Sub cboCompany_Click()
Set db = DBEngine.Workspaces(0).Databases(0)
Me.RecordSource = ("Select distinct Company_Name from dbo_Tbl_Quarterly")
Set qdf = db.CreateQueryDef("")
qdf.Connect = _
"ODBC;DSN=New Trusco;Description=Copany SQL 2000
TCP/IP;DATABASE=db_Database;LANGUAGE=us_english;Network=Network;TRUSTED_CONNECTION=Yes"
qdf.ReturnsRecords = True
End Sub
form rowsouce property. What am I doing wrong?
Private Sub cboCompany_Click()
Set db = DBEngine.Workspaces(0).Databases(0)
Me.RecordSource = ("Select distinct Company_Name from dbo_Tbl_Quarterly")
Set qdf = db.CreateQueryDef("")
qdf.Connect = _
"ODBC;DSN=New Trusco;Description=Copany SQL 2000
TCP/IP;DATABASE=db_Database;LANGUAGE=us_english;Network=Network;TRUSTED_CONNECTION=Yes"
qdf.ReturnsRecords = True
End Sub