arama butonunun olay koduna "dim" satırlarının altına  aşağıdakine benzer mesajlar girebilirsiniz

If IsNull(cboMusteriTipi.Value) Then

MsgBox ("müşteri tipi boş bırakılamaz")

Me.cboMusteriTipi.SetFocus

Exit Sub

End If