i dont see what this code is supposed to do..
dont use .findfirst, instead you should really use
me.filter = "[field]='" & me.textbox & "'"
me.filterOn =true
but the code you sent:
Code:
Public Sub test()
If IsNull([PhoneExist]) Then
Message = "Please enter a phone #!"
Else
With rstParents
.MoveFirst
.FindFirst "[Phone] = Me![Phone]"
If Not .NoMatch Then
Me![Mother's Name] = ![Mother's Name]
Me![Mother's Name] = ![Father's Name]
rstStudents!ParentID = rstParents![ID]
End If
End With
End If
End Sub