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

    Ao clicar, abrir form de edição

    Compartilhe

    Edgar Massa
    Novato
    Novato

    Respeito às Regras 100%

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

    Ao clicar, abrir form de edição

    Mensagem  Edgar Massa em Qui 11 Jan - 7: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.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Ao clicar, abrir form de edição

    Mensagem  good guy em Qui 11 Jan - 8: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

      Data/hora atual: Sex 23 Fev - 19:31