Phone Search Video - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Phone Search Video

Bradley Neumann

4 hours ago

Hi All,
Can someone help me find the video that showed how to add a customer by phone number? I know Richard did a video where you typed a phone number an if it was already in the customer database it opened that customer. If not, it took you to a new customer form with the phone number filled in and you added the rest. I can't find the video but wanted to try to make it search 2 phone number fields. I already have the version from the video working. I just can't find the video to review it to try to refresh my memory.

Thanks,
Brad

	Kevin Robertson @Reply 3 hours ago
Is this the one you meant? Search, Open, Add

	Bradley Neumann OP @Reply 2 hours ago
Hi Kevin, Yes that was it now I just need to figure out how to make it search 2 fields instead of one. Thanks, Brad

Kevin Robertson @Reply

65 minutes ago

You could do something like this:

Details

Private Sub PhoneSearch_AfterUpdate()



    Dim Criteria As String



    Criteria = "HomePhone=""" & PhoneSearch & """ OR WorkPhone=""" & PhoneSearch & """"



    If DCount("*", "CustomerT", Criteria) = 0 Then

        If MsgBox("Phone number does NOT exist. Add as new customer?", _

            vbYesNoCancel + vbQuestion, "Add New?") = vbYes Then

            

            DoCmd.OpenForm "CustomerF", , , , acFormAdd

            Forms!CustomerF!HomePhone = PhoneSearch

            PhoneSearch = ""

        End If

    Else

        DoCmd.OpenForm "CustomerF"

        Forms!CustomerF.Filter = Criteria

        Forms!CustomerF.FilterOn = True

        PhoneSearch = ""

    End If



End Sub

This will search both HomePhone and WorkPhone and filter the Form for records that match the criteria.

Next Unseen

New Feature: Comment Live View