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

    avatar
    ViniciusGUjanski
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Abrir formulário de edição por meio de informações contidas na caixa de listagem

    Mensagem  ViniciusGUjanski 17/1/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!
    avatar
    ViniciusGUjanski
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Abrir formulário de edição por meio de informações contidas na caixa de listagem

    Mensagem  ViniciusGUjanski 17/1/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: 28/3/2024, 10:33