Code:
Dim varBookmark As Variant
Private Sub Form_Open(Cancel As Integer)
'*=*=*=*=*=*=*=*=*=*=*=*=( OPEN OPEN OPEN OPEN OPEN )=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
lngRecID = Me.OpenArgs
Me.RecordsetClone.FindFirst "RegistryID = " & lngRecID 'lngRecID
varBookmark = Me.RecordsetClone.Bookmark
End Sub
Then in the code that adds the new record to the pets table................
Code:
Private Sub lblAddPets_Click()
If Nz(DLookup("AptNum", "QPets", "AptNum = " & intAptNum)) = 0 Then
InitPets (intAptNum)
Me.Requery
Me.Bookmark = varBookmark
End If
Me.lblAddPets.Caption = "Pet(s)"
Me.tbsp1.Visible = True
Me.tbPet1.Visible = True
Me.tbSp2.Visible = True
Me.tbPet2.Visible = True
Me.tbsp1.Requery
Me.tbPet1.Requery
Me.tbSp2.Requery
Me.tbPet2.Requery
End Sub
The above changes puts me back into the error conditions of the OP