[Resolvido]Aceitar apenas numero na InputBox

Boa noite a todos,

Tenho abaixo codigo para abrir InputBox, onde e digitado NUMERO para abrir um formulario, o que preciso e que a (inputBox) aceite apenas Numeros e nao letras.

Agradeço desde ja.

Abraços


Case vbKeyF4
Dim resposta As Variant
resposta = InputBox("Informe o numero do recibo ", "Baixar Recibo")
If resposta <> "" Then
DoCmd.OpenForm "BaixaRecibo", , , "Cod=" & resposta

Bom dia Luiz;

Dim resposta As Variant
resposta = InputBox("Informe o numero do recibo ", "Baixar Recibo")
Do
If Not IsNumeric(resposta) And resposta <> "" Then
MsgBox "Não é permitido Letras, digite novamente...", vbCritical
resposta = InputBox("Informe o numero do recibo ", "Baixar Recibo")
Else
DoCmd.OpenForm "BaixaRecibo", , , "Cod=" & resposta
Exit Do
End If
Loop

Ola JPaulo, tudo bem.

Testei aqui e funcionou perfeitamente.

Mais uma vez grato pela ajuda.

Abraços.

Valew Luiz, precisando de novo dê um grito.

Bom dia JPaulo

Parabéns pelo exemplo, funciona.

E para aprimorar: como colocar nesta inputbox, uma máscara de introdução do tipo "123-456-789 "

NContribuinte = InputBox("Qual é o Nº de Contribuinte ?", "Contribuinte")


Obrigado


PS - Número de contribuinte informa que só são permitido números, mas se insistir acaba aceitando texto.

Up

Até onde eu sei InputBox não aceita máscara de entrada.
Uma solução seria criar um formulário para entrada da informação ao invés do utilizar um inputbox.

Nativo do MsAccess não existe mesmo.

Podemos usar a imaginação e ir para além dos limites do Access;

Veja se serve, ao digitar algo não existente na combobox "Cliente";
Download

Boa Noite JPaulo

O Nº de contribuinte só grava os 3 primeiros Nºs digitados, digitei 9.






Obrigado

Temos de usar a imaginação.

Utilize o Replace no insert tal como está acima.

Estou no smartphone, não dá para ver agora.

Obrigado JPaulo

Resolvi

+ 1 maneira de fazer Nestum.

Fico feliz.

Obrigado pelo retorno o forum agradece.