I'm wanting to have a phone # field on a user form, which users type in a contacts phone #. Next to it would be a listbox, that would display contacts whose phone # matches the phone number (or partial Phone #) that has been entered.

my contacts file contains around 3000 entries, and my first attempt to do this which cycled through each contact, took over a minute to run, which made the form useless.

Basically the LookUpClientPhone field's onchange action triggered the re population of the listbox, by checking each contact in the contacts folder.




Me.Listbox_Clients.Clear ' clear old values from list box

If Len(LookUpClientPhone.Value) 4 Then 're populate if user has typed at least 5 digits of a phone number

Debug.Print "updating lookup list"
For X = 1 To ContactCount
comparePhone = iCloudContacts.Items.Item(X).BusinessTelephoneNumb er
comparePhone = Replace(comparePhone, "(", "")
comparePhone = Replace(comparePhone, ")", "")
comparePhone = Replace(comparePhone, "-", "")
comparePhone = Replace(comparePhone, "", "")

If InStr(comparePhone, LookUpClientPhone) 0 Then
' add this client to the list
' Debug.Print "Client " & iCloudContacts.Items.Item(X).FullName & " will be added to the list"


' End If
' Next X



Paul