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]Como dar um "refresh" em um subformulário?

    avatar
    Fabio Sevence
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 03/08/2020

    [Resolvido]Como dar um "refresh" em um subformulário? Empty [Resolvido]Como dar um "refresh" em um subformulário?

    Mensagem  Fabio Sevence Qui 23 Set 2021, 11:26 pm

    Boa tarde pessoal...

    Novato de novo... hehehehehehehe

    Tenho um form (Agenda) e um subform (Agenda-Reservada) dentro desse form (Agenda).
    Estou fazendo uma consulta dentro do subform (Agenda-Reservada) que é basicamente consulta nas Reservas a data q o usuário quer ver a agenda. Nessa consulta uso o DLookup e funciona blz.
    A minha dúvida é como dar um "Refresh" no subform (Agenda-Reservada) mostrando o resultado da consulta feita com o DLookup.
    Espero ter explicado minha dificuldade.

    Segue abaixo o código e desde já agradeço a todos pela ajuda.

    [Data] = DLookup("[Reserva_Data]", "[Agenda]", "[Reserva_Data]=forms![Agenda-Frm]![Agenda-SubFrm]![Data]")

    abrir = "Agenda-SubFrm"
    CRIT = "Reserva_Data=forms![Agenda-SubFrm]!Data"
    Rem DoCmd.OpenForm abrir, , , CRIT "assim funciona, mas ele abre uma tela nova com o subform

    Rem Me.Refresh "assim ele dá Refresh só no form principal"
    Rem Forms![agenda-frm]![agenda-subfrm].Refresh "deu erro
    Rem Forms![agenda-subfrm].Refresh "deu erro

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3428
    Registrado : 21/04/2011

    [Resolvido]Como dar um "refresh" em um subformulário? Empty Re: [Resolvido]Como dar um "refresh" em um subformulário?

    Mensagem  Marcelo David Qui 23 Set 2021, 11:32 pm

    Boa tarde,
    faça assim:

    Me!agenda-subfrm.Form.Refresh


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como dar um "refresh" em um subformulário? Marcel11
    avatar
    Fabio Sevence
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 03/08/2020

    [Resolvido]Como dar um "refresh" em um subformulário? Empty Re: [Resolvido]Como dar um "refresh" em um subformulário?

    Mensagem  Fabio Sevence Sex 24 Set 2021, 12:40 am

    Boa tarde Marcelo...

    obg pela dica...

    fiz conforme sua dica, mas deu o erro:

    "O Micrsoft Access não pode localizar o campo "Agenda_SubForm" referida na sua expressão"

    Fiz algumas variações da sua dica tb, tais como:
    Me!Agenda_SubFrm.Refresh
    Me!Form.Agenda_SubFrm.Refresh

    mas tb deu a mesma msg de erro acima...
    avatar
    Fabio Sevence
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 03/08/2020

    [Resolvido]Como dar um "refresh" em um subformulário? Empty Re: [Resolvido]Como dar um "refresh" em um subformulário?

    Mensagem  Fabio Sevence Sex 24 Set 2021, 5:03 am

    Consegui resolver...
    Smile

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3428
    Registrado : 21/04/2011

    [Resolvido]Como dar um "refresh" em um subformulário? Empty Re: [Resolvido]Como dar um "refresh" em um subformulário?

    Mensagem  Marcelo David Sex 24 Set 2021, 3:56 pm

    Bom dia!
    Ótimo que resolveu!

    Me!agenda-subfrm.Form.Refresh

    O código que passei acima, estou considerando que o nome do objeto do subformulario é agenda-subfrm,
    pois é assim que está nas suas tentativas. Mas por fim você mostrou o nome de outro subformulário.

    No entanto, se resolveu, resolvido está! cheers

    Poste aqui o código para que outros possam se beneficiar de sua solução também.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como dar um "refresh" em um subformulário? Marcel11

      Data/hora atual: Dom 17 Out 2021, 3:44 am