VERIFICAR SE HA NUMEROS NO CAMPO ENDERECO
Ola Pessoal preciso verificar se no campo endereco gravado na minha base de dados exite o numero
tipo
rua a 345
estou fazendo um programa e nao pode conter o numero juntamento com o nome da rua
Obrigado
Joao
tipo
rua a 345
estou fazendo um programa e nao pode conter o numero juntamento com o nome da rua
Obrigado
Joao
If IsNumeric(SuaVariavel) = True Then
MsgBox [Ô]O endereço não deve conter números![Ô]
End If
MsgBox [Ô]O endereço não deve conter números![Ô]
End If
Retorna true caso encontre algum numero na string recebida como parametro.
Function RetornaNumero(VarArg As String) As Boolean
Dim VarPos As Integer
RetornaSoNumero = False
For VarPos = 1 To Len(VarArg)
If IsNumeric(Mid(VarArg, VarPos, 1)) Then
RetornaSoNumero = True
Exit for
End If
Next
End Function
Abraços
Function RetornaNumero(VarArg As String) As Boolean
Dim VarPos As Integer
RetornaSoNumero = False
For VarPos = 1 To Len(VarArg)
If IsNumeric(Mid(VarArg, VarPos, 1)) Then
RetornaSoNumero = True
Exit for
End If
Next
End Function
Abraços
só existe um porém não sei se será um problema pra vc, mas vou explicar, em muitos lugares no brasil existem ruas que não possuem nome e sim numero, ex: Rua 15 casa 2, ou um problema de digitação tipo Rua 23 de maio, quando poderi ser Rua XXIII de maio, e assim por diante.
analise isto,pois pode ser um problema para seu sistema.
analise isto,pois pode ser um problema para seu sistema.
Tópico encerrado , respostas não são mais permitidas