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 : 11
    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 23/9/2021, 18:56

    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 : 3948
    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 23/9/2021, 19:02

    Boa tarde,
    faça assim:

    Me!agenda-subfrm.Form.Refresh


    .................................................................................
    [Resolvido]Como dar um "refresh" em um subformulário? Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Como dar um "refresh" em um subformulário? Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Como dar um "refresh" em um subformulário? Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [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 : 11
    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 23/9/2021, 20:10

    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 : 11
    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 24/9/2021, 00:33

    Consegui resolver...
    Smile

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    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 24/9/2021, 11:26

    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.


    .................................................................................
    [Resolvido]Como dar um "refresh" em um subformulário? Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Como dar um "refresh" em um subformulário? Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Como dar um "refresh" em um subformulário? Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Como dar um "refresh" em um subformulário? Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 15:59