[Resolvido]Valor invalido para o campo

Boas galera,

Estou tendo problemas com um campo de tipo numero.
Nele posso acrescentar apenas números mas caso alguém tente digitar uma letra gera um erro pois ele é de relação com chave primaria: O valor que você inseriu não é valido para este campo.

Tentei colocar um tratamento de erro mas ainda apresenta a mensagem, por fim tentei adicionar um IsNumeric() mas não resolveu também. Segue caso alguém saiba como resolver agradeço.

Código:

Dim Msg As String
On Error GoTo 1

If IsNumeric(txtIdCardapio) Then
    Call txtIdentCardapio_AfterUpdate
        Me.txtQuant.SetFocus

Else
    MsgBox "Informe a identificação do cardápio ou selecione o produto"
        Me.txtIdCardapio.Value = ""
End If

Exit_1:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Exit Sub

1 a:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
        & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
        & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
    MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
    Resume Exit_1

Veja aqui amigo:
https://www.maximoaccess.com/t13260-fazer-campo-txt-aceitar-so-numeros-no-access-e-vb#181502

Fabio grato pela ajuda, procurei mas não achei ¬¬.
Funcionou perfeitamente.

Grato pelo retorno amigo, ate a proxima se Deus quiser!