Ik gebruik een keuzelijst met invoervak (id-naam-voornaam-geboortedatum) om een persoon te vinden, al zijn gegevens worden na selectie weergegeven in het zelfde formulier. Mijn code werkt perfect voor één achternaam. Zodra er meerdere personen zijn met dezelfde achternaam (andere voornaam-geboortedatum), wordt steeds het jongste record weergegeven.
Hoe kan ik dit het beste oplossen?
Grtn - Frank
Code:
Private Sub cboOpzoekenSollicitant_AfterUpdate()
Dim rsClone As DAO.Recordset
Dim strSollicitant As String
If Not IsNull(Me.cboOpzoekenSollicitant) Then
Set rsClone = Me.Form.RecordsetClone
strSollicitant = Me.cboOpzoekenSollicitant.Value
rsClone.FindFirst ("NAAM_SOLLICITANT = '" & strSollicitant & "'")
Me.Form.Form.Bookmark = rsClone.Bookmark
End If
End Sub
Hoe kan ik dit het beste oplossen?
Grtn - Frank