MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 Não Filtrado

    alantaru
    alantaru
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 04/10/2018

    [Resolvido]Abrir Formulário Não Filtrado Empty [Resolvido]Abrir Formulário Não Filtrado

    Mensagem  alantaru em 2/1/2019, 17:58

    Boa tarde.
    Estou com um erro ao abrir um formulário a partir de um subform.
    Possuo um SubForm tabAnotacoesSubform, e um botão cmdEditar, com o seguinte código:

    Código:
    Private Sub cmdEditar_Click()
    DoCmd.OpenForm "frmAddAnotacao", acNormal, , "Codigo =" & tabAnotacoesSubform.Form!Codigo
    DoCmd.MoveSize 800, 800
    End Sub

    Porém, ao invés de abrir o form frmAddAnotacao exibindo o registro a ser editado, esse form aparece com aquele filtro na parte de baixo e com todos os campos vazios, sendo que eu preciso ir manualmente naquele painel de registros padrão e clicar em "Filtrado" para remover o filtro dos registros e exibir o registro a ser editado.
    Como faço para exibir automaticamente este registro sem precisar limpar o filtro?
    Desde já obrigado!


    Última edição por alantaru em 3/1/2019, 12:18, editado 1 vez(es)
    avatar
    ricardoo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 05/05/2015

    [Resolvido]Abrir Formulário Não Filtrado Empty exibir todos antes

    Mensagem  ricardoo em 2/1/2019, 18:34

    Coloque antes de abrir o formulário.

    DoCmd.ShowAllRecords

    alantaru
    alantaru
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 04/10/2018

    [Resolvido]Abrir Formulário Não Filtrado Empty Re: [Resolvido]Abrir Formulário Não Filtrado

    Mensagem  alantaru em 2/1/2019, 18:40

    Fiz isso, não funcionou:
    Código:
    Private Sub cmdEditar_Click()
    DoCmd.ShowAllRecords
    DoCmd.OpenForm "frmAddAnotacao", acNormal, , "Codigo =" & tabAnotacoesSubform.Form!Codigo
    DoCmd.MoveSize 800, 800
    End Sub
    alantaru
    alantaru
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 04/10/2018

    [Resolvido]Abrir Formulário Não Filtrado Empty Re: [Resolvido]Abrir Formulário Não Filtrado

    Mensagem  alantaru em 3/1/2019, 12:17

    Consegui!
    Coloquei este código que você me passou no evento carregar do formulário e deu certo!
    Obrigado!

      Data/hora atual: 8/7/2020, 04:22