MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Ao clicar, abrir form de edição

    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 08/01/2017

    [Resolvido]Ao clicar, abrir form de edição Empty [Resolvido]Ao clicar, abrir form de edição

    Mensagem  Edgar Massa em 11/1/2018, 12:41

    Bom dia senhores,

    Tenho um form onde tenho uma caixa de listagem, e preciso que no momento que eu der duplo clique, o registro vá para a tela onde eu cadastrei o mesmo.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1271
    Registrado : 05/02/2010

    [Resolvido]Ao clicar, abrir form de edição Empty Ao clicar, abrir form de edição

    Mensagem  good guy em 11/1/2018, 13:16

    Olá Edgar,

    Você pode fazer isso de 2(duas) maneiras ou com o comando DoCmd.OpenForm ou com a propriedade ItemsSelected e o laço FOR EACH...NEXT.

    Veja um exemplo de duplo-clique em uma caixa de listagem:

    (1) DoCmd.OpenForm "SeuForm", acNormal, "", "[CodNome]=[Forms]![frmPrincipal]![Lista2]", , acNormal

    À medida que você sai digitando o comando DoCmd.OpenForm... etc o VBA irá mostrar o que você deve digitar entre aspas (""), escolha Filter por aí. Pratique !!!

    (2) No evento duplo-clique da caixa de listagem:
    Código:

    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim varItm As Variant

          Set frm = Forms!Frm_PesquisaProduto
          Set ctl = frm!CaixaListaProdutos
            For Each varItm In ctl.ItemsSelected
              Me.txtPesquisaProd = ctl.Column(1, varItm)  '1 é a primeira coluna onde está o campo Descrição na listbox (0,1,2,3)
            Next varItm
    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 08/01/2017

    [Resolvido]Ao clicar, abrir form de edição Empty Re: [Resolvido]Ao clicar, abrir form de edição

    Mensagem  Edgar Massa em 16/9/2019, 22:00

    VALEU MAN!

    usei a primeira forma.
    deu certo

    (1) DoCmd.OpenForm "SeuForm", acNormal, "", "[CodNome]=[Forms]![frmPrincipal]![Lista2]", , acNormal
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1271
    Registrado : 05/02/2010

    [Resolvido]Ao clicar, abrir form de edição Empty Ao clicar, abrir form de edição

    Mensagem  good guy em 17/9/2019, 15:24

    Olá Edgar,

    Se você desejar aprofundar-se mais em Access VBA, adquira os meus dois livros (1) DOMINE O ACCESS VBA para iniciantes em programação e (2) TÉCNICAS ESPECIAIS DE ACCESS VBA pelos links abaixo:

    (1) http://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

    (2) http://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy


    Lembre-se que o "O temor (obediência) ao Senhor é o princípio de todo o conhecimento." (Pv 1.7 ou Pv 9.10)

    Conteúdo patrocinado

    [Resolvido]Ao clicar, abrir form de edição Empty Re: [Resolvido]Ao clicar, abrir form de edição

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/10/2019, 03:08