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]Ocultar subformulario

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Ocultar subformulario Empty [Resolvido]Ocultar subformulario

    Mensagem  Assis em 31/10/2019, 23:23

    Boa noite

    Formulario "Encomenda" com subformuário "Pes"

    Os dois tem o campo "Cliente", quando o nome do cliente é igual nos dois formulário

    Onde estou a errar

    Após atualizar o campo "Cliente"

    If Me!Cliente = Forms!Encomenda.PES.Form!cliente Then

    Forms!Encomenda!PES.Form.Visible = True

    Else

    Forms!Encomenda!PES.Form.Visible = False

    End If

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2179
    Registrado : 22/11/2016

    [Resolvido]Ocultar subformulario Empty Re: [Resolvido]Ocultar subformulario

    Mensagem  DamascenoJr. em 1/11/2019, 00:43

    Código:
    Forms!Encomenda!PES.Visible = Me!Cliente = Forms!Encomenda.PES.Form!cliente


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 08/09/2012

    [Resolvido]Ocultar subformulario Empty Tente mais ou menos isso :

    Mensagem  Maicon em 1/11/2019, 01:45

    Código:
    With CodeContextObject
           
            If Me.Texto0 = 1 Then
            DoCmd.SetProperty "Texto1", acPropertyVisible, "0"
           
           
       
         
            Else
                DoCmd.SetProperty "Texto1", acPropertyVisible, "-1"
           
            End If
            End With


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Ocultar subformulario Empty Re: [Resolvido]Ocultar subformulario

    Mensagem  Assis em 1/11/2019, 11:00

    Bom dia Ivan

    a sua dica não funcionou, nem chega a abrir o subformulário quando deve.

    O subformulário PES é um formulário continuo com cabeçalho.

    O melhor que consigo é com o código abaixo, mas mesmo assim quando não deve ser visível o subformulário PES, mostra o cabeçalho.  

    Mas se não usar o "On Error Rsume Next", dá erro.
    ___________________________________________________________________
    On Error Resume Next

    If Me!Cliente = Forms!Encomenda!PES.Form!Cliente Then
      Forms!Encomenda!PES.Form.Visible = True
    End If
    _________________________________________________________________________

    Não devia mostrar
    [Resolvido]Ocultar subformulario Errado10

    Correto
    [Resolvido]Ocultar subformulario Certo11


    Obrigado

    Maicon

    Não percebi o seu código
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2179
    Registrado : 22/11/2016

    [Resolvido]Ocultar subformulario Empty Re: [Resolvido]Ocultar subformulario

    Mensagem  DamascenoJr. em 2/11/2019, 03:41

    Veja e adapte ao seu cenário.

    Se não der certo, anexe seu projeto com as partes envolvidas.
    Anexos
    [Resolvido]Ocultar subformulario AttachmentOcultando.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 13 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Ocultar subformulario Empty Re: [Resolvido]Ocultar subformulario

    Mensagem  Assis em 2/11/2019, 22:00

    Obrigado Ivan

    Bom domingo .


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2179
    Registrado : 22/11/2016

    [Resolvido]Ocultar subformulario Empty Re: [Resolvido]Ocultar subformulario

    Mensagem  DamascenoJr. em 3/11/2019, 13:38

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 18/9/2020, 15:52