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

    Compartilhe
    alantaru
    alantaru
    Novato
    Novato

    Respeito às Regras 100%

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

    [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 : 10
    Registrado : 05/05/2015

    exibir todos antes

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

    Coloque antes de abrir o formulário.

    DoCmd.ShowAllRecords

    alantaru
    alantaru
    Novato
    Novato

    Respeito às Regras 100%

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

    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
    Novato
    Novato

    Respeito às Regras 100%

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

    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: 18/3/2019, 22:28