RUN TIME ERROR 424

[villica]

I am getting the above error. The help is not very clear as to what this error means. I am getting this error on this line

Do Until rstpno.EOF = True Or rstpno!pno Is Not Null

rstpno is my recordset
pno is a field on my table.





Private Sub Command0_Click()
Dim dbs As Database, rstpno As Recordset
Set dbs = CurrentDb
Set rstpno = dbs.OpenRecordset("table1", dbOpenDynaset)

rstpno.MoveFirst
Do Until rstpno.EOF = True Or rstpno!pno Is Not Null

' Do Until (rstpno!pno Is Not Null)


DoCmd.OpenQuery "getpno", acViewNormal
DoCmd.OpenQuery "updpno", acViewNormal

Loop

End Sub villica

 

[villica]

sorry I figure it out. I found help on another thread posted here. villica