[Resolvido]Listbox Formulário Desacoplado

lumoquenco 18/2/2023, 21:32

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº1

[Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 18/2/2023, 21:32

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

Lu Zaramella gosta desta mensagem

**Alexandre Neves** 19/2/2023, 12:13

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009

Mensagem nº2

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Alexandre Neves 19/2/2023, 12:13

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)

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

lumoquenco 19/2/2023, 20:13

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº3

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 19/2/2023, 20:13

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?

**Alexandre Neves** 19/2/2023, 21:11

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009

Mensagem nº4

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Alexandre Neves 19/2/2023, 21:11

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)?

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

lumoquenco 19/2/2023, 21:25

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº5

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 19/2/2023, 21:25

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.

Anexos

Listbox Desacoplada.zip: Você não tem permissão para fazer download dos arquivos anexados.; (60 Kb) Baixado 14 vez(es)

**Alexandre Fim** 19/2/2023, 22:25

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº6

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Alexandre Fim 19/2/2023, 22:25

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

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Listbox Formulário Desacoplado Setinf11

Sistemas e Tecnologia Ltda

lumoquenco 19/2/2023, 22:45

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº7

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 19/2/2023, 22:45

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?

**Alexandre Fim** 19/2/2023, 22:49

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº8

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Alexandre Fim 19/2/2023, 22:49

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.

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Listbox Formulário Desacoplado Setinf11

Sistemas e Tecnologia Ltda

Lu Zaramella gosta desta mensagem

lumoquenco 19/2/2023, 22:57

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº9

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 19/2/2023, 22:57

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?

**Alexandre Fim** 19/2/2023, 23:19

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº10

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Alexandre Fim 19/2/2023, 23:19

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

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Listbox Formulário Desacoplado Setinf11

Sistemas e Tecnologia Ltda

lumoquenco 19/2/2023, 23:22

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº11

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 19/2/2023, 23:22

Nossa Alexandre!! Agradeço muitoooo!!

**Alexandre Fim** 20/2/2023, 02:52

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº12

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Alexandre Fim 20/2/2023, 02:52

Olá Lucimara,

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

1 - Inicialização do formulário

[Resolvido]Listbox Formulário Desacoplado Prod0010

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

[Resolvido]Listbox Formulário Desacoplado Prod0011

2 - Ao clicar em "Novo":

[Resolvido]Listbox Formulário Desacoplado Prod0012

- 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:

[Resolvido]Listbox Formulário Desacoplado Prod0013

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

Anexos

Listbox Desacoplada_v2.zip: Você não tem permissão para fazer download dos arquivos anexados.; (52 Kb) Baixado 36 vez(es)

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Listbox Formulário Desacoplado Setinf11

Sistemas e Tecnologia Ltda

lumoquenco 20/2/2023, 03:38

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº13

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 20/2/2023, 03:38

Maravilhoso!

Obrigada Alexandre!!

lumoquenco 27/2/2023, 23:52

lumoquenco

lumoquenco: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 30
Registrado : 07/01/2014

Mensagem nº14

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem lumoquenco 27/2/2023, 23:52

[Resolvido]Listbox Formulário Desacoplado 1f609

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº15

Re: [Resolvido]Listbox Formulário Desacoplado

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Listbox Formulário Desacoplado

[Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Re: [Resolvido]Listbox Formulário Desacoplado

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada