[Resolvido]Impedir escrever texto em campo numérico de um form

Boas,

Como se faz isto?

Obrigado antecipadamente

Private Sub SeuCampo_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 46, 48 To 57 ' {Backspace}, {,}, {0} a {9}, aceita estes caracteres. ' Continua
Case 44 ' {.}, troca ponto por virgula.
KeyAscii = 46 ' {,}
Case Else
KeyAscii = 0 ' Demais teclas, não aceita.
End Select
End Sub

se procurar encontra

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Só permite Numeros em caixa de texto

Assis obrigado,

Esse código é colocado em qual evento?

Cptos

Caro usuário VLCORDEIRO, como não é a primeira vez que o chama-mos à atenção.

Leia as regras por favor.

Não se referencie diretamente a um só usuário, ignorando os outros que estão tentando ajudar.

Este fórum é de todos e todos têm o direito de ajudar.

Não abra tópicos sucessivos, na sala Off-Topic, abra na sala correspondente à sua duvida.

Admin

Esta a vermelho

Peço desculpa pela minha ignorância.

Obrigado
Cptos