MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Listbox Formulário Desacoplado

    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty [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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    [Resolvido]Listbox Formulário Desacoplado AttachmentListbox Desacoplada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 12 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Listbox Formulário Desacoplado Empty 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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Listbox Formulário Desacoplado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Listbox Formulário Desacoplado Empty 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.


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Listbox Formulário Desacoplado Setinf11
    Sistemas e Tecnologia Ltda

    Lu Zaramella gosta desta mensagem

    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Listbox Formulário Desacoplado Empty 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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Listbox Formulário Desacoplado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty Re: [Resolvido]Listbox Formulário Desacoplado

    Mensagem  lumoquenco 19/2/2023, 23:22

    Nossa Alexandre!! Agradeço muitoooo!!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3213
    Registrado : 13/12/2016

    [Resolvido]Listbox Formulário Desacoplado Empty 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
    [Resolvido]Listbox Formulário Desacoplado AttachmentListbox Desacoplada_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 34 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Listbox Formulário Desacoplado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty Re: [Resolvido]Listbox Formulário Desacoplado

    Mensagem  lumoquenco 20/2/2023, 03:38

    Maravilhoso!

    Obrigada Alexandre!!
    avatar
    lumoquenco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Formulário Desacoplado Empty Re: [Resolvido]Listbox Formulário Desacoplado

    Mensagem  lumoquenco 27/2/2023, 23:52

    [Resolvido]Listbox Formulário Desacoplado 1f609

    Conteúdo patrocinado


    [Resolvido]Listbox Formulário Desacoplado Empty Re: [Resolvido]Listbox Formulário Desacoplado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/4/2024, 00:24