SOMENTE NUMEROS
Bom dia, como faço para validar uma string somente com números.
Exemplo: Na tabela de clientes no campo Insc. Est. tem inscrição com letras no dÃgito.
Preciso fazer uma crÃtica para esses cadastros, como faço isso?
Exemplo: Na tabela de clientes no campo Insc. Est. tem inscrição com letras no dÃgito.
Preciso fazer uma crÃtica para esses cadastros, como faço isso?
Segue a Function
Function SomenteNumeros(Campo As String) As Boolean
[ô]Luiz Comino 26/06/2012
Dim i, x As Integer
Dim sNumeros As String
Dim Aux As Boolean
sNumeros = [Ô]0123456789[Ô]
For i = 1 To Len(Campo)
For x = 1 To Len(sNumeros)
If Mid(Campo, i, 1) = Mid(sNumeros, x, 1) Then
Aux = True
End If
Next
If Aux = True Then
Aux = False
Else
Exit Function
End If
Next
SomenteNumeros = True
End Function
para usar
if SomenteNumeros([Ô]125454fe54,[Ô]) =True then
msgbox [Ô]Somente Numeros[Ô]
else
msgbox [Ô]Existem outros caracteres[Ô]
end if
Tópico encerrado , respostas não são mais permitidas