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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro em tempo de Execução...
Moderador: joseA
Re: Erro em tempo de Execução...
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:
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), "'", "''") & "%'"
Re: Erro em tempo de Execução...[Resolvido]
webmaster, muito obrigado pela dica ficou show, funcionou certinho...
Vocês sempre nos salvando, que Deus abençoe...
Vocês sempre nos salvando, que Deus abençoe...