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]Abrir formulário de edição por meio de informações contidas na caixa de listagem

    Compartilhe

    ViniciusGUjanski
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 17/01/2018

    [Resolvido]Abrir formulário de edição por meio de informações contidas na caixa de listagem

    Mensagem  ViniciusGUjanski em Qua 17 Jan 2018, 11:11

    Bom dia.

    Primeiramente queria agradecer pela parceria e colaboração dos membros.

    Sou novo no Access.

    Bem eu criei um formulário de consulta por meio de uma caixa de listagem, de vários atendimentos que realizo no meu trabalho, e estou tentando após filtra por uma caixa de texto, ao dar um clique no item da caixa de listagem, abrir o referido formulário de cadastro do mesmo atendimento.

    Eu vi um tutorial no youtube no entanto quando seleciono, o formulário de cadastro abre em branco.

    Espero que tenha conseguido me expressar devidamente.

    Segue o código que estou utilizando:

    Private Sub Lista_Atendimentos_Click()

    DoCmd.OpenForm "F_CadAtendimento", acNormal, , "[Código]=[Forms]![Consulta_Atendimento_Nome]![Lista_Atendimentos]", acFormPropertySettings, acWindowNormal

    End Sub

    É como se [Forms]![Consulta_Atendimento_Nome]![Lista_Atendimentos] estivesse nulo, e ao passar no código do formulário, ale abrisse um novo para cadastro.

    Muito Obrigado!

    ViniciusGUjanski
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 17/01/2018

    Re: [Resolvido]Abrir formulário de edição por meio de informações contidas na caixa de listagem

    Mensagem  ViniciusGUjanski em Qua 17 Jan 2018, 17:31

    Pessoal Encontrei a resposta.

    Segue o código para as pessoas que tiverem algum problema.


    Private Sub Lista_Atendimentos_Click()

    Dim strCriterio
    strCriterio = "[Código]=" & Me.Lista_Atendimentos.Column(0)

    DoCmd.OpenForm "F_CadAtendimento", , , strCriterio

    End Sub

    Abraço a todos

      Data/hora atual: Qua 25 Abr 2018, 04:08