CARREGAR TEXTBOX

ADHEL 16/10/2009 13:36:27
#325474
Boa tarde pessoal.
A minha dúvida é em relação ao carregar textbox
Qdo eu coloco um combobox chamado de cboProduto ele é carregado com os códigos do produto e os textbox
de nome,valor e quantidade no estoque é preenchido corretamente com as caracteristicas do produto.

Agora qdo eu carrego um combobox chamado de cboNome com o nome dos produtos ele carrega, só que os textbox
de código,valor e quantidade não são carregados.

Vou postar os dois jeitos aqui abaixo
Desde já agradeço a todos

CARREGANDO O COMOBOX COM O CÓDIGO



Dim rsprodutos As ADODB.Recordset
Set rsprodutos = cnn.Execute([Ô]SELECT * FROM Produtos WHERE Código = [Ô] & CboCódigo)

If Not rsprodutos.EOF Then
txtPreçoVenda = rsprodutos!Preçovenda
txtPreçoVenda = Format(rsprodutos!Preçovenda, [Ô] #,##0.00[Ô])

txtQuantidade = rsprodutos!quantidade
txtQuantidadePedido.SetFocus
End If



Carregando o Combobox com NOME

Dim rsprodutos As ADODB.Recordset
Set rsprodutos = cnn.Execute([Ô]SELECT * FROM Produtos WHERE [ô]Nome = & CboNome[ô][Ô])

If Not rsprodutos.EOF Then
txtPreçoVenda = rsprodutos!Preçovenda
txtPreçoVenda = Format(rsprodutos!Preçovenda, [Ô] #,##0.00[Ô])

txtQuantidade = rsprodutos!quantidade
txtQuantidadePedido.SetFocus
End If
TECLA 16/10/2009 13:40:20
#325475 Resposta escolhida
Tente assim:

Dim rsprodutos As ADODB.Recordset
Set rsprodutos = cnn.Execute([Ô]SELECT * FROM Produtos WHERE Nome LIKE [ô]%[Ô] & CboNome & [Ô][ô]%[Ô])

If Not rsprodutos.EOF Then
        txtPreçoVenda = rsprodutos!Preçovenda
        txtPreçoVenda = Format(rsprodutos!Preçovenda, [Ô] #,##0.00[Ô])
      
        txtQuantidade = rsprodutos!quantidade
        txtQuantidadePedido.SetFocus
End If
ADHEL 16/10/2009 13:50:03
#325476
Tecla boa tarde
Fiz o q vc me passou e apareceu essa msg



Erro de sintaxe na expressão de consulta [ô]Nome LIKE [ô]%Porta[ô]%[Ô]

Onde porta é o nome do produto
TECLA 16/10/2009 14:00:22
#325478
Citação:

ADHEL escreveu:
Tecla boa tarde
Fiz o q vc me passou e apareceu essa msg



Erro de sintaxe na expressão de consulta [ô]Nome LIKE [ô]%Porta[ô]%[Ô]

Onde porta é o nome do produto



Tem razão. Segue corrigido.

Dim rsprodutos As ADODB.Recordset
Set rsprodutos = cnn.Execute([Ô]SELECT * FROM Produtos WHERE Nome LIKE [ô]%[Ô] & CboNome & [Ô]%[ô][Ô])

If Not rsprodutos.EOF Then
        txtPreçoVenda = rsprodutos!Preçovenda
        txtPreçoVenda = Format(rsprodutos!Preçovenda, [Ô] #,##0.00[Ô])
      
        txtQuantidade = rsprodutos!quantidade
        txtQuantidadePedido.SetFocus
End If
ADHEL 16/10/2009 14:04:20
#325480
Tecla
Perfeito
Certo
Valeu, muito obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar