[Resolvido]Listbox Formulário Desacoplado

Pessoal, alguém pode ver pra mim o que está errado neste código?

Private Sub subCrgListaProducao()

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT tbl_Producao.Id_Producao, tbl_Producao.Id_Produto, tbl_Producao.Dt_Producao, tbl_Producao.Qt_Producao, tbl_Producao.Hist_Producao, tbl_Produto.Id_Produto," _
& "tbl_Produto.Id_TipoProduto, tbl_Produto.Desc_Produto " _
& "FROM tbl_Producao, tbl_Produto " _
& "WHERE tbl_Producao.IdProduto = tbl_Produto.Id_Produto = " & Me.lstProducao.Column(0)

Set rs = CurrentDb.OpenRecordset(strSQL, , 4)

Me.lstProducao.RowSource = ""
Me.lstProducao.AddItem ";DATA; TIPO PRODUTO; DESCRIÇÃO; QUANT; HISTÓRICO"

Do Until rs.EOF
Me.lstProducao.AddItem rs!Id_Producao & ";" & rs!Dt_Producao & ";" & rs!Id_TipoProduto & ";" & rs!Desc_Produto & ";" & rs!Qt_Producao & ";" & rs!Hist_Producao
rs.MoveNext

Loop
rs.Close
Set rs = Nothing

Bom dia
devia ter indicado qual erro dá ou que parte do código não funciona mas veja se resolve

Código:

strSQL = "SELECT tbl_Producao.Id_Producao, tbl_Producao.Id_Produto, tbl_Producao.Dt_Producao, tbl_Producao.Qt_Producao, tbl_Producao.Hist_Producao, tbl_Produto.Id_Produto," _
& "tbl_Produto.Id_TipoProduto, tbl_Produto.Desc_Produto " _
& "FROM tbl_Producao LEFT JOIN tbl_Produto ON tbl_Producao.IdProduto = tbl_Produto.Id_Produto " _
& "WHERE tbl_Produto.Id_Produto = " & Me.lstProducao.Column(0)

Desculpe Alexandre!

Mancada minha!

Deixa eu explicar, estou inserindo uma listbox no meu formulário desacoplado, coloquei do jeito que vc me indicou, só alterei na clausula where, na verdade minha tbl_producao.id_Producao ligado a minha listbox através do id_Produção, mas continua dando o mesmo erro:

strSQL = "SELECT tbl_Producao.Id_Producao, tbl_Producao.Id_Produto, tbl_Producao.Dt_Producao, tbl_Producao.Qt_Producao, tbl_Producao.Hist_Producao, tbl_Produto.Id_Produto," _
& "tbl_Produto.Id_TipoProduto, tbl_Produto.Desc_Produto " _
& "FROM tbl_Producao LEFT JOIN tbl_Produto ON tbl_Producao.IdProduto = tbl_Produto.Id_Produto " _
& "WHERE tbl_Producao.Id_Producao = " & Me.lstProducao.Column(0)


"Erro de sintaxe (operador faltando) na expressão de consulta 'tbl_Producao.Id_Producao ='.

Consegue me ajudar?

Boa noite
Não entendo
Para carregar uma listbox (ainda vazia) tem, na origem dos registos, uma comparação com a primeira linha da listbox (ainda vazia)?

Alexandre, eu ainda estou apreendendo, não entendo muito, mas se vc puder me ajudar, vou ser eternamente grata! Segue o BD.
Eu quero que ao inserir o registro ele me mostre na listbox.

Olá Lucimara,

O nome da coluna está errada.

   strSQL = "SELECT tbl_producao.id_producao,"
   strSQL = strSQL & "      tbl_producao.id_produto,"
   strSQL = strSQL & "      tbl_producao.dt_producao,"
   strSQL = strSQL & "      tbl_producao.qt_producao,"
   strSQL = strSQL & "      tbl_producao.hist_producao,"
   strSQL = strSQL & "      tbl_produto.id_produto,"
   strSQL = strSQL & "      tbl_produto.id_tipoproduto,"
   strSQL = strSQL & "      tbl_produto.desc_produto"
   strSQL = strSQL & " FROM tbl_producao"
   strSQL = strSQL & "      LEFT JOIN tbl_produto"
   strSQL = strSQL & "             ON tbl_producao.id_produto = tbl_produto.id_produto"
   strSQL = strSQL & " WHERE tbl_produto.Id_Produto = " & Nz(Me.lstProducao.Column(0), 0) & ""

Na instrução SQL está como tbl_producao.idproduto

OBS: Também fiz o tratamento de valor Nulo, usando a função "Nz" para não dar erro também.

Mas esta rotina não faz sentido porque ela carrega a listbox com condição (WHERE) em que o Id_Produto é dela mesmo...é isso?

Mesmo assim, o erro foi solucionado.
Copie e cole o código no procedimento.


Boa sorte

Att,

Alexandre Fim

Na verdade, a condição WHERE é para ela carregar a listbox com os ítens cadastrados na tbl_Produção.

E a listbox não carregou, o que estou fazendo de errado?

Neste caso, teria que mudar a condição para Id_producao, mas mesmo assim está errado, pq o Id_produção é autonumérico e na verdade teria que ser apenas numérico, onde vc teria condições de cadastrar N produtos para uma mesma produção.

Alexandre, estava tudo funcionando bem, antes de eu acrescentar a tbl_Produto e fazer a relação. Eu fiz isso porque queria que mostrasse na listbox o Tipo de Produto que consta na tabela produto e eu não sabia como mostrar na listbox. O Id_TipoProduto está na tbl_Produto e na tbl_Producao está o Id_Produto que chama também o Id_TipoProduto.
kkkk
Será que vc consegue entender o que quero explicar?

Sim, eu entendi o que vc precisa, mas eu fiz uma breve análise no sistema, e algumas rotinas estão equivocadas.
Vou fazer os ajustes necessários e em seguida te disponibilizo a nova versão, ok...

Até +

Alexandre Fim

Nossa Alexandre!! Agradeço muitoooo!!

Olá Lucimara,

Fiz algumas alterações para garantir que os registros sejam salvos corretamente.

1 - Inicialização do formulário


Habilita somente o Código para pesquisa e carregar a listbox.



2 - Ao clicar em "Novo":


- Desabilita listbox (pois, ao clicar na linha, carrega os campos acima)
- Habilita somente os campos pertinentes à ação de Incluir. Neste caso, o usuário salva o registro, ou desfaz os dados informados (tanto novo quanto edição), ou sai dor formulário sem salvar.

3 - Na tabela tbl_Producao, criei uma chave primária composta:


Neste caso, o sistema permite cadastrar N produto para uma mesma produção, porém, também não deixa cadastrar ID de produção e ID  de produto já cadastrados, tornando sua tabela segura.
Essa verificação o sistema também faz no código.

Espero ter ajudado

OBS: Verifique o código, pois eu fiz os comentários em cada rotina sobre sua funcionalidade.

Segue versão.

Att,

Alexandre Fim

Maravilhoso!

Obrigada Alexandre!!