COMO O FORM NAO ACEITAR LETRA, SIMBOLO
form so aceitar numeros inteiros
If TxtMovimentacao(6) = 0 Then
MsgBox "Digite a quantidade a registrar!", vbCritical, "Operação invalida"
TxtMovimentacao(6).SetFocus
Exit Sub
End If
Quero usar estas linhas acima
se for letra ele diz digite a quentidade a registar
Valeu
Obrigado
If TxtMovimentacao(6) = 0 Then
MsgBox "Digite a quantidade a registrar!", vbCritical, "Operação invalida"
TxtMovimentacao(6).SetFocus
Exit Sub
End If
Quero usar estas linhas acima
se for letra ele diz digite a quentidade a registar
Valeu
Obrigado
No evento ao validar coloque
if Not Isnumeric(seucampo)then
MsgBox "Digite a quantidade a registrar!", vbCritical, "Operação invalida"
cancel=true
end if
if Not Isnumeric(seucampo)then
MsgBox "Digite a quantidade a registrar!", vbCritical, "Operação invalida"
cancel=true
end if
Tópico encerrado , respostas não são mais permitidas