Botão de localizar registro no access

Boa Tarde

Pessoal, eu tenho um formulário que existe um campo de pesquisar id ,tenho dois problemas para resolver :

Como faço para colocar uma validação se não encontrar o registro aparecer uma mensagem na tela ( Id não existe)

E quando o usuario apertar o Tab , não mudar para outro registro.




Private Sub Combinação591_Click()

Dim pesquisar As String
Dim pesquisarid As String
Dim strSQL As String
Dim rs As Recordset
Dim DB As Recordset
Dim IDsEncontrados As Recordset


pesquisarid = Me.Combinação591

If Not IsNumeric(Combinação591) Then
MsgBox "apenas numeros"
SendKeys "{Home}+{end}"
Else

Me.RecordsetClone.FindFirst "[id] = " & Me![Combinação591] & ""

Me.Bookmark = Me.RecordsetClone.Bookmark



Me.id.SetFocus

Me.Combinação591 = Null



End If



End Sub

Bom dia,

Talvez seja mais fazer o simples:

Código:

If IsNumeric(me.Combinação591) = False Then
   MsgBox "Informe apenas números.", vbCritical, "Erro"
   SendKeys "{Home}+{end}"
ElseIf DCount("id", "[SUA TABELA]", "id = " & Me.Combinação591 & "") > 0 then
   'código caso o registro seja encontrado
Else
   MsgBox "ID não existe.", vbCritical, "ID inexistente"
   Me.Combinação591.setfocus
End if

Abraço.