[Resolvido]Campos em Form - Exigir somente números

Senhores,

Fiz a importação de uma tabela, onde existe o campo "conta" que está com o formato de texto mas só possui números com zero a esquerda e como não posso mudar o formato do campo para não perder os zeros a esquerda.

Deste modo gostaria de incluir um código para validação no campo "conta" acoplado no form, de modo que somente permite que o usuário adicione números e caso contrário o access exiba uma mensagem dizendo "campo somente permitido para inserção de números".

Como devo proceder?

Dê uma olhada no Repositório de Exemplos. Tem um exemplo disso por lá.

Mais precisamente aqui.

Criquio,

Só não consegui ajustar para que a mensagem não apareça quando pressionar tecla enter para mudar de campo, pois como são quatro campos que valido no form, não ficou muito bom.

Como ajustar?

Tente:

If KeyCode = vbKeyReturn Then
Else
Sua Função
End If

Ficou conforme abaixo, porém continua com a mensagem ao pressionar enter:

If KeyCode = vbKeyReturn Then
Else
Select Case KeyAscii

' 48 para 57: determina os números 0 a 9
' 8 Backspace , 9 Tab Key , 32 Space Key

Case 48 To 57, 8, 9, 32

Case Else

KeyAscii = 0
MsgBox "Só são permitidos números, letras não são permitidas" 'opcional

End Select
End If

Tente então acrescentar o código da tecla Enter junto aos outros:

Select Case KeyAscii

' 48 para 57: determina os números 0 a 9
' 8 Backspace , 9 Tab Key , 32 Space Key , 13 Tecla Enter

Case 48 To 57, 8, 9, 32, 13

Case Else

KeyAscii = 0
MsgBox "Só são permitidos números, letras não são permitidas" 'opcional

End Select

obrigado, agora ficou ótimo.