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


2 participantes

    [Resolvido]Abrir Formulário Não Filtrado

    alantaru
    alantaru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  alantaru 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 : Respeito às Regras 100%

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

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

    Mensagem  ricardoo 2/1/2019, 18:34

    Coloque antes de abrir o formulário.

    DoCmd.ShowAllRecords

    alantaru
    alantaru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  alantaru 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 : Respeito às Regras 100%

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

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

    Mensagem  alantaru 3/1/2019, 12:17

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 14:54