After setting the Record Source to the underling source table and using the CreateQueryDef definition to define and execute the query. The form opens up with no records from the query. The following is the code that I am using. What am I doing wrong?
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Dim qdfpass As QueryDef
Dim resource As String
Me.RecordSource = "dbo_tblDevsWithPartSpecs"
Set dbs = CurrentDb
'Create temporary query definition
Set qdfpass = dbs.CreateQueryDef("")
With qdfpass
.Connect = "ODBC;DRIVER=SQL Server;SERVER=opd-s-sql1;Trusted_Connection=Yes;DATABASE=OPD_ICE_DOTNET"
.sql = "Exec spDevsWithPartSpecs '" & Forms!frmiimain.cboJobNumber & "' "
.ReturnsRecords = True
'Open a Recordset based on the parameter query
Set rst = .OpenRecordset()
End With
Forms!frmiimain.Form.Requery
End Sub
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Dim qdfpass As QueryDef
Dim resource As String
Me.RecordSource = "dbo_tblDevsWithPartSpecs"
Set dbs = CurrentDb
'Create temporary query definition
Set qdfpass = dbs.CreateQueryDef("")
With qdfpass
.Connect = "ODBC;DRIVER=SQL Server;SERVER=opd-s-sql1;Trusted_Connection=Yes;DATABASE=OPD_ICE_DOTNET"
.sql = "Exec spDevsWithPartSpecs '" & Forms!frmiimain.cboJobNumber & "' "
.ReturnsRecords = True
'Open a Recordset based on the parameter query
Set rst = .OpenRecordset()
End With
Forms!frmiimain.Form.Requery
End Sub