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


3 participantes

    [Resolvido]Desabilitar subformulário...

    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desabilitar subformulário... Empty [Resolvido]Desabilitar subformulário...

    Mensagem  MPS 28/10/2014, 00: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
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desabilitar subformulário... Empty Desabilitar subformulário...

    Mensagem  toyebom 28/10/2014, 01: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
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 28/10/2014, 11:16

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 28/10/2014, 12: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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desabilitar subformulário... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desabilitar subformulário... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desabilitar subformulário... Folder_announce_new Instruções SQL como utilizar...
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 28/10/2014, 13: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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 28/10/2014, 14: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 = ""



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desabilitar subformulário... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desabilitar subformulário... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desabilitar subformulário... Folder_announce_new Instruções SQL como utilizar...
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 28/10/2014, 16: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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 28/10/2014, 17:08

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

    Pode anexar parte do BD ?



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desabilitar subformulário... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desabilitar subformulário... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desabilitar subformulário... Folder_announce_new Instruções SQL como utilizar...
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 28/10/2014, 23: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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 29/10/2014, 10:08

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desabilitar subformulário... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desabilitar subformulário... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desabilitar subformulário... Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 09:14