add new record

[jrb187]

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

[r0ach]

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