[Resolvido]Validação de Campos no Formulário

Olá Galerinha...

Estou precisando de uma função no qual o Access irá verificar o que o usuário digitou e retirar as palavras que não poderão ser guardadas em uma tabela do Banco. Exemplo, no cadastro de Endereços de Clientes, na minha empresa não é permitido que o usuário coloque no campo Rua Augusta ou Avenida Paulista, pois estes dados são filtrados através de uma outra tabela. Então eu gostaria que quando o usuário colocasse isso: Rua Augusta ou Avenida Paulista o access deixasse apenas Augusta ou Paulista.

Cumprimentos!

Use um If com a função Replace.

Boas...
Veja para Rua....

Private Sub txtRua_AfterUpdate()
Dim StrEnd As String
StrEnd = Me.txtRua
If LTrim(Left(StrEnd, 3)) = "Rua" Then
    StrEnd = Right(StrEnd, InStrRev(StrEnd, "") - 3)
    Me.txtRua = StrEnd
End If
End Sub

Cumprimentos.

Boas JP.... acho que to meio sonolento hoje... heheh

Havia me esquecido do replace...

Cumprimentos.

Eis:


Private Sub txtRua_AfterUpdate()
Dim StrEnd As String
StrEnd = Me.txtRua
If LTrim(Left(StrEnd, 3)) = "Rua" Then
    'StrEnd = Right(StrEnd, InStrRev(StrEnd, "") - 3)
    StrEnd = Replace(StrEnd, "Rua", "")
    Me.txtRua = LTrim(StrEnd)
End If
End Sub

Cara melhor que isso é só uma sonequinha para combinar com o frio... Deu certíssimo, valeu pela ajuda ae JPaulo e PILOTO... mas só tem uma coisinha que gostaria de saber a mais não tem nada a ver com isso aqui... Para eu validar um e-mail como por exemplo, para conter o "@" e o .com/.com.br/.net etc... como eu faço isso?

A esqueci de falar também é o seguinte, eu tenho uma tabela com todos os Tipos de Logradouros: Rua, Avenida, Rodovia... como faço para ele comparar os dados nesta tabela? Tentei usar o DLookup mas não consegui alguma ideia?

Código:

Private Sub EnderecoDoCliente_LostFocus()
Dim StrEnd As String
Dim TipoLogradouro

StrEnd = Me.Endereco
TipoLogradouro = DLookup ("[Tipo]", "[tblTipoDeLogradouros]", "[Tipo]")

    If LTrim(Left(StrEnd, 3)) = TipoLogradouro Then
        StrEnd = Replace(StrEnd, TipoLogradouro, "")
        Me.Endereco = LTrim(StrEnd)
    End If
End Sub

Cumprimentos!

Como assim comparar?

cumprimentos.

Uma caixa de combinação... e o seguinte código

Dim StrSQL As String, Filtro As String
StrSQL = "SELECT tblBase_Endereços.LOG_NOME FROM tblBase_Endereços" _
        & " WHERE LOG_NOME Like '*" & Me.cboEndereco.Text & "*'"
Me.cboEndereco.RowSource = StrSQL

Cumprimentos.

Então PILOTO seria no caso comparar os dados que a tabela (tblTipoDeLogradouros) possui (Rua, Avenida, Travessa, Rodovia...) com o que o usuário digitar a esquerda (Avenida Paulista).

Então o endereço é inserido em um campo txt...

Transforme ela em uma combo então...

Veja

https://dl.dropboxusercontent.com/u/26441349/CarregaCboFiltrada.zip

Cumprimentos.

Valeu pela ajuda PILOTO!

O Fórum agradece o retorno.