MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Desabilitar subformulário...

    Compartilhe

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    [Resolvido]Desabilitar subformulário...

    Mensagem  MPS em Seg 27 Out 2014, 21:59

    Caros colegas, tenho um formulário com dois subformulários: A e B.
    Dependendo do usuário logado os subformulários A ou B ficarão visíveis.
    Mesmo colocando o comando subformulárioA.visible = false, ele carrega ocasionando um erro já que não obtém a variável necessária.
    Já coloquei também subformulárioA.enable = false, mas sem sucesso.
    Existe algum comando para que o subformulárioA não seja carregado quando apenas o B o deve ser?
    Agradeço desde já!
    At
    MPS

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Desabilitar subformulário...

    Mensagem  toyebom em Seg 27 Out 2014, 22:37

    tenta ao contrário coloca-o nas propriedades como visivel Não e codifica o vba ao contrário apenas para o user que queres.

    subformulárioA.visible = True


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  MPS em Ter 28 Out 2014, 08:16

    Toyebom, obrigado.
    Mas, mesmo estando invisível o subformulário carrega.
    At
    MPS

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  JPaulo em Ter 28 Out 2014, 09:30

    Olá bom dia !

    A instrução deve estar ao carregar do seu formulario e não ao abrir;

    É mais ou menos isto;

    Forms!SeuFormulario!SeuSubFormulario.Form!CampoNoSubForm.SetFocus
    Forms!SeuFormulario!SeuSubFormulario.Form.Visible = False


    Exemplo;

    Private Sub Form_Load()
    Dim x As Integer
    x = InputBox("numero")
    Select Case x
    Case 1
    Forms!form1!frm001.Form!ID.SetFocus
    Forms!form1!frm001.Form.Visible = False
    Case 2
    Forms!form1!frm002.Form!ID.SetFocus
    Forms!form1!frm002.Form.Visible = False
    End Select
    End Sub


    Ou ainda...

    Private Sub Form_Load()
    Dim x As Integer
    x = InputBox("numero")

    Select Case x
    Case 1
       With Me![frm001].Form
           .Visible = False
       End With
    Case 2
       With Me![frm002].Form
           .Visible = False
       End With
    End Select
    End Sub


    Na duvida dê um grito.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  MPS em Ter 28 Out 2014, 10:29

    Caro Mestre JPaulo, quanto tempo!
    Tudo bem?
    Coloquei desta forma:
    Forms!frmtlmktusuario!FrmTLMKTTotaisOpe.Form!TLNome.SetFocus
    Forms!frmtlmktusuario!FrmTLMKTTotaisOpe.Visible = False
    Mas deu erro: 2467 A expressão que você inseriu refere-se a um objeto que foi fechado ou não existe.
    Consigo fazer o subformulário "FrmTLMKTTotaisOpe" ficar invisível (Me.FrmTLMKTTotaisOpe.visible = false), contudo quando executo um Me.refresh no formulário principal o ACCESS tenta calcular este subformulário.
    Posso até criar um formulário para cada usuário, mas será mais um objeto.
    Agradeço desde já!
    At
    MPS

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  JPaulo em Ter 28 Out 2014, 11:28

    Ola Luiz, tudo joia ?

    Desligue o seu subform, antes de ficar oculto;

    Forms!frmtlmktusuario!FrmTLMKTTotaisOpe.LinkMasterFields = ""
    Forms!frmtlmktusuario!FrmTLMKTTotaisOpe.LinkChildFields = ""
    Forms!frmtlmktusuario!FrmTLMKTTotaisOpe.Form.RecordSource = ""



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  MPS em Ter 28 Out 2014, 13:31

    Mestre, obrigado, mas deu erro:
    2101 A configuração que você inseriu não é válida para esta propriedade.
    Tentei
    Me.frmtlmkttotaisope.LinkMasterFields = "" , mas também deu erro.
    At
    MPS

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  JPaulo em Ter 28 Out 2014, 14:08

    Luiz só vendo mesmo.
    Reproduzi aqui e funcionou pleno.

    Pode anexar parte do BD ?



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  MPS em Ter 28 Out 2014, 20:53

    Mestre, resolvi da seguinte forma:
    Private Sub TxtMesTLMKT_AfterUpdate()
    Me.FrmTLMKTTotais.Requery
    'Me.Refresh
    End Sub
    Anulei o refresh que dava problema e faço o Requery somente no subformulário que interessa.
    Obrigado mais uma vez!
    At
    MPS


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Desabilitar subformulário...

    Mensagem  JPaulo em Qua 29 Out 2014, 07:08

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 05 Dez 2016, 13:29