Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro em tempo de Execução...

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Erro em tempo de Execução...

Mensagem por CROVADOR »

Bom dia amigos, neste código abaixo esta dando a mensagem de erro, vou anexar uma imagem para vcs darem uma olhada...abraços
Deus abençoe.

Private Sub txtProduto_Change()
txtProduto = UCase(txtProduto)
'On Error Resume Next

SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Me.txtProduto.Text & "%'"
Set rsOrçDettres = New ADODB.Recordset

'rsOrçDettres.Close

rsOrçDettres.Open SqlOrçDettres, cn, adOpenKeyset, adLockOptimistic
txtCusUnit = rsOrçDettres("Telefone")
txt_und_medida = rsOrçDettres("Observaçoes")
txtPreUnit_Cod_Produto = rsOrçDettres("Nro_Orçamento")
txtQtde.SetFocus
End Sub
Anexos
erro!.PNG
erro!.PNG (9.96 KiB) Exibido 2646 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro em tempo de Execução...

Mensagem por webmaster »

Crovador,


Primeiro, erro em tempo de execução é qualquer erro no VBA. A mensagem que vem logo depois é mais importante.
Segundo, apóstrofes são o problema no SQL. Se você tentar rodar a query direto no access, vai gerar o mesmo erro. Para corrigir, você vai precisar duplicar a mesma (caracter de escape). O código abaixo deve resolver:

Código: Selecionar todos

SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Replace(Trim(Me.txtProduto.Text), "'", "''") & "%'"


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Erro em tempo de Execução...[Resolvido]

Mensagem por CROVADOR »

webmaster, muito obrigado pela dica ficou show, funcionou certinho...
Vocês sempre nos salvando, que Deus abençoe...


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder