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

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Ismael Silva 19/3/2021, 02:21

    Boa noite,


    Num formulário desvinculado da Tabela, como posso fazer para ao clicar duas vezes na caixa de listagem, carregar os valores no campos


    Estava tentanto usar esse comando abaixo, e dá certo, porém eu vou precisar programar todos os campos,

    Me.Id_Ent_2 = Me!Lista21.Column(0)
        Me.Data_Ent = Me!Lista21.Column(1)


    Já num formulário que está vinculado com a tabela, consigo facilmente com o comando abaixo, mas não é o caso, então não estou sabendo como resolver.

           DoCmd.GoToControl "Id_Ent_2"
    Me.Filter = "Id_Ent_2=" & Me.[Lista21]
    Me.FilterOn = True

    Obrigado.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Ismael Silva 20/3/2021, 03:47

    Alguma sugestão?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Alexandre Neves 20/3/2021, 10:37

    Bom dia
    Não entendi o que pretende fazer. Primeiro, sugere a atribuição dum valor; depois, sugere um filtro.


    .................................................................................
    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
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Ismael Silva 20/3/2021, 14:35

    Bom dia,

    Bom, vamos lá, explico...

    O que eu quero é dar dois cliques na minha caixa de listagem e carregar todos os valores nos campos do meu formulário, mas isso com campos DESVINCULADOS DA TABELA.

    Atualmente estou usando este comando abaixo, e funciona certo, porém os campos estão VINUCULADOS A TABELA.

    DoCmd.GoToControl "Id_Ent_2"
    Me.Filter = "Id_Ent_2=" & Me.[Lista21]
    Me.FilterOn = True

    Não consegui fazer funcionar o mesmo comando com os campos DESVINCULADOS.

    E já com esse comando abaixo até dá certo, mas eu precisarei programar todos os campos, diferente do citado acima, que faz referência apenas a chave primária e já carrega todos os demais campos.


    Me.Id_Ent_2 = Me!Lista21.Column(0)
    Me.Data_Ent = Me!Lista21.Column(1)


    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Alexandre Fim 20/3/2021, 16:38

    Olá Ismael,

    Desta forma vc está transferindo os valores da tua lista para os campos da tela.
    Se a lista possuir todas as colunas referentes aos campos, funciona também.
    Na minha opinião o melhor seria criar uma rotina para carregar os campos da tela, utilizando como critério de pesquisa, 1 ou mais campos da linha que vc selecionou.

    Esta rotina consiste em criar um recordset e carrega-lo através de uma instrução SQL.

    Dim strSel as string
    Dim rs as Dao. Recordset

    StrSel = " Select * from tabela where id = id da lista...."

    Set RS = Currentdb.openrecordset(StrSel)

    Campo1 = Rs ("campo1")
    ...
    ..
    RS.close
    Set RS= nothing


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Ismael Silva 21/3/2021, 02:51

    Alexandre Fim,

    Fiz o teste com a sua sugestão, porém está apresentando um erro.

    Poderia verificar o que está errado, visto que a ideia é ao clicar na caixa de listagem carregar os dados nos campos acima para posterior editar se for o caso.

    Coloquei o código no evento ao clicar duas vezes na caixa de listagem.
    Anexos
    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem AttachmentTabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Alexandre Fim 21/3/2021, 03:40

    Imael,

    Estou ajustando o seu formulário e daqui a pouco eu disponibilizo nova versão.

    Aguarde.

    Fim


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Alexandre Fim 21/3/2021, 04:37

    Ismael,

    Segue versão do seu projeto com as devidas alterações.

    Observe os comentário no código para vc entender o que cada procedimento faz.

    Espero ter ajudado.

    Abraço


    Fim
    Anexos
    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem AttachmentTabela_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 10 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Ismael Silva 21/3/2021, 04:54


    Isso mesmo Alexandre, Obrigado pela a ajuda.

    Resolvido.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem Empty Re: [Resolvido]Ao Clicar Duas Vezes Caixa de Listagem

    Mensagem  Alexandre Fim 21/3/2021, 04:55

    Valeu Ismael.
    O fórum agradece.
    Sucesso !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 14/6/2021, 05:47