-
Hi, I'm new to VB so please be patient with me. In my contact members program I'm using the following code to keep records on Form1 and Form2 together,
Private Sub datCocMembers_Reposition()
frmFamily.datFamily.Recordset.MoveFirst
Do Until frmFamily.datFamily.Recordset("MemberID") = datCocMembers.Recordset("MemberID")
frmFamily.datFamily.Recordset.MoveNext
Loop
End Sub
This works great except now when I go to AddNew record I get the following error message,
Runtime 3021, no current record.
My code to AddNew records is, data1.recordset.AddNew
Please help,
newvbr
-
I think it might be because you are using data1.recordset.addnew, but you have datFamily and datCocMembers.
Try datFamily.Recordset.AddNew, or datCocFamily.Recordset.AddNew
