msgbox go to new record

[khayward]

Hi all,
I have a combo that searches for a record. I get a standard Access message box when the entry in the combo box gets no match and I'd like to somehow modify that so that the user has the option of going back and trying again or going to a new record. The code that's in there at the moment is below. I'm completely new at this part of access so any direction is welcome even if it's only to tell me I'm asking the wrong question or am in the wrong forum section.



Private Sub Combo47_AfterUpdate()
On Error GoTo Combo47_AfterUpdate_Err


DoCmd.SearchForRecord acForm, "Form_part-vnd", acFirst, "[PartID] = " & Str(Nz(Screen.ActiveControl, 0))




Combo47_AfterUpdate_Exit:
Exit Sub


Combo47_AfterUpdate_Err:
MsgBox Error$
Resume Combo47_AfterUpdate_Exit

[ranman256]

make a continuous form with all records,
put an unbound combo box in the header to find the item. (or text box)
the afterupdate will then filter (search) for your matches:

sub cboBox_Afterupdate()
If IsNull(cboBox) Then
  Me.FilterOn = False
Else
  Me.Filter = "[panel]='" & cboBox & "'"
  Me.FilterOn = True
End If
end sub

[June7]

Combobox LimitToList is set to yes? You might want to explore the NotInList event.