Access Combo box

I need to be able enter a phone number and have Access find the record and fill in the name and address info.  I would like to use a combo box.  
teincnjAsked:
Who is Participating?
 
MasseyMConnect With a Mentor Commented:
Private Sub cmbNameFind_AfterUpdate()
    On Error GoTo cmbNameFind_AfterUpdate_Err

    '   Purpose:    To change the current record displayed
    '   Called By:  cboFind_AfterUpdate
    '   Updated:    98/02/19 by PLD

    Dim rstParticipants As Recordset
    Dim strCriteria  As String
    Dim strBookmark  As String
   
    Set rstParticipants = Forms![frmStudentInfoMain].RecordsetClone
    strCriteria = "ParticipantID = " & cmbNameFind.Column(0)
    rstParticipants.FindFirst strCriteria
    ' cmbNameFind is the combo box that lists the phone number
    If Not rstParticipants.NoMatch Then 'If it matches
        strBookmark = rstParticipants.Bookmark
        Me.Bookmark = strBookmark
        cmbNameFind = Null
    End If

cmbNameFind_AfterUpdate_Exit:

    Exit Sub

cmbNameFind_AfterUpdate_Err:
    MsgBox "Error locating Participant: " & CStr(cmbNameFind.Column(1))
    GoTo cmbNameFind_AfterUpdate_Exit

End Sub

0
 
teincnjAuthor Commented:
I wish there was an easier solution.  
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.