TRATAMENTO DE ERRO
Meus amigos, conforme mostra a imagem acima, estou fazendo uma busca no banco de dados Access no evento Change da textbox, o problema é que se o usuário digitar um caractere inválido como por exemplo uma aspa simples, o programa mostra a imagem de erro.
Tentei fazer um:
mas funcionou, também tentei um:
Mas também não deu certo.
Essa é a busca que faço no BD:
Agradeço a todos que possam ajudar.
Tentei fazer um:
On error goto Erro
[ô]Aqui entra o código
Erro:
Exit Submas funcionou, também tentei um:
If Err.Number = 2147217900 Then Exit SubMas também não deu certo.
Essa é a busca que faço no BD:
rs.Open [Ô]select *from TBContratos where NomeLocador like [ô][Ô] & txtNomeLocador.Text & [Ô]%[ô][Ô], db, 3, 3Agradeço a todos que possam ajudar.
Esse caracter é confundido em uma sql.
altere para:
rs.Open [Ô]select *from TBContratos where NomeLocador like [ô][Ô] & Replace(txtNomeLocador.Text, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô][Ô], db, 3, 3
Reveja Todas as consultas feitas em seu sistema, principalmente em consultas tipo: cadastro de clientes, você vai ter por exemplo,
nome do cliente=Empresa Nom[ô]e.
Vira uma festa de tanto erro.
altere para:
rs.Open [Ô]select *from TBContratos where NomeLocador like [ô][Ô] & Replace(txtNomeLocador.Text, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô][Ô], db, 3, 3
Reveja Todas as consultas feitas em seu sistema, principalmente em consultas tipo: cadastro de clientes, você vai ter por exemplo,
nome do cliente=Empresa Nom[ô]e.
Vira uma festa de tanto erro.
Valeu Nilson, funcionou certinho, vc só colocou um parêntese a mais, o código funcionou assim:
rs.Open [Ô]select *from TBContratos where NomeLocador like [ô][Ô] & Replace(txtNomeLocador.Text, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô]%[ô][Ô], db, 3, 3
Tópico encerrado , respostas não são mais permitidas