- 15 Jan 2021 às 19:15
#61532
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
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
Você não está autorizado a ver ou baixar esse anexo.
