Using FindFirst code

[saltydawg617]

I would like to make a function that will check the [SSN] field in the "Members_tbl" table for an existing entry.

 
Public Function FindMember(ByVal FindSSN As String) 
 
Dim dbMembers As DAO.Database
Dim dbPath As String
 
dbPath = CurrentProject.FullName
Set dbMembers = OpenDatabase(dbPath)
 
Dim rsSSN As DAO.Recordset
 
Set rsSSN = dbMembers.OpenRecordset("Members_tbl", dbOpenTable)
With rsSSN.FindFirst(FindSSN)
If .NoMatch Then
MsgBox ("Not Found")
Else
MsgBox ("Found " & FindSSN)
End If
End With
End Function

[boblarson]

You can use DCount:

If DCount("*", "Members_tbl", "[SSNFieldNameHere]=" & Chr(34) & FindSSN & Chr(34))> 0 Then
   ' it was there
Else
   ' it wasn't
End If

I assumed it was text and I didn't know your exact field name so replace with your real one. The "*" in the DCount is on purpose, so leave it as is.

[saltydawg617]

Thanks for your help. I'm learning as I go.