The Following is the code iam using to populate the text box tsOrigin
Public Sub repPopulate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim orig As String
Dim countrec As Integer
Set db = CurrentDb
Set qdf = db.QueryDefs("qryControllerDue")
For Each prm In qdf.Parameters
prm = Eval(prm.Name)
Next prm
Set rs = qdf.OpenRecordset(dbOpenDynaset)
With rs
rs.MoveFirst
Do Until rs.EOF
tSOrigin.Value = rs![InvNo]
rs.MoveNext
countrec = countrec + 1
Loop
End With
End Sub
i get the error at the line
tSOrigin.Value = rs![InvNo]
Public Sub repPopulate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim orig As String
Dim countrec As Integer
Set db = CurrentDb
Set qdf = db.QueryDefs("qryControllerDue")
For Each prm In qdf.Parameters
prm = Eval(prm.Name)
Next prm
Set rs = qdf.OpenRecordset(dbOpenDynaset)
With rs
rs.MoveFirst
Do Until rs.EOF
tSOrigin.Value = rs![InvNo]
rs.MoveNext
countrec = countrec + 1
Loop
End With
End Sub
i get the error at the line
tSOrigin.Value = rs![InvNo]