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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3964
    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 ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 : 200
    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 : 3964
    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 ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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 8 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 : 3964
    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 ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. 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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/12/2019, 06:24