Help on on key up event

[abprules]

Here's what I'm trying to do: I want to type in a combo box (search for
a Contact) and if that contact is not in the list, pop up a message box
asking the user if they want to add the contact. I've been told to put
the following code on the "on key up event" and that should work.
However, that pops up the box after only one key stroke. I type in a
"k" and it says, "K" is not an existing contact...do you want to add
them?

Is this correct code or should this be on the OnNotInList event and if
so,what would need to change?

Thanks in advance!!

Here's the code:

Private Sub cboSearchName_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode <vbKeyReturn And KeyCode <vbKeyBack Then
If DCount("NWContactID", "tblNWContact", "NWNameLast & ' ' &
NWNameFirst LIKE '" & Me.cboSearchName.Text & "*'") = 0 Then
If MsgBox("There is no existing contact whose name begins
with """ & Me.cboSearchName.Text & """." & _
vbCr & vbCr & "Would you like to add a new
contact?", vbQuestion + vbYesNo, _
"Contact Not Found") = vbYes Then
Me.cboSearchName = ""
Me.cmdAddContact.SetFocus
Call cmdAddContact_Click
Else
SendKeys Chr(vbKeyBack)
End If
End If
End If
End Sub

[chris.nebinger]

Ummm, I would stick to the OnNotInList event. One of the developer's
handbooks has the good code for it, but it's pretty self explanatory,
and the online help is decent.

The code you have there checks every key press to see if there is a
contact that starts with the characters typed. While this would
probably work, it would get very slow with alot of contacts.
Chris
abprules wrote:

Here's what I'm trying to do: I want to type in a combo box (search for
a Contact) and if that contact is not in the list, pop up a message box
asking the user if they want to add the contact. I've been told to put
the following code on the "on key up event" and that should work.
However, that pops up the box after only one key stroke. I type in a
"k" and it says, "K" is not an existing contact...do you want to add
them?

Is this correct code or should this be on the OnNotInList event and if
so,what would need to change?

Thanks in advance!!

Here's the code:

Private Sub cboSearchName_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode <vbKeyReturn And KeyCode <vbKeyBack Then
If DCount("NWContactID", "tblNWContact", "NWNameLast & ' ' &
NWNameFirst LIKE '" & Me.cboSearchName.Text & "*'") = 0 Then
If MsgBox("There is no existing contact whose name begins
with """ & Me.cboSearchName.Text & """." & _
vbCr & vbCr & "Would you like to add a new
contact?", vbQuestion + vbYesNo, _
"Contact Not Found") = vbYes Then
Me.cboSearchName = ""
Me.cmdAddContact.SetFocus
Call cmdAddContact_Click
Else
SendKeys Chr(vbKeyBack)
End If
End If
End If
End Sub