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

    Ocultar Janelas dos Formulários (VBA)

    Compartilhe
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Seg 14 Jul 2014, 15:20

    Ola Pessoal,
    Gostaria da ajuda de vocês.
    Vocês conseguem me informar um código em VBA para ocultar a janela do formulário?
    Sei que eu tenho o possibilidade de inativa-las na opção de "Janelas Sobrepostas" nas Opções do Access, mas gostaria de fazer isso por usuário e não geral.
    Fico grato se puderem me ajudar.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 986
    Registrado : 05/02/2010

    Ocultar Janelas dos Formulários (VBA)

    Mensagem  good guy em Seg 14 Jul 2014, 16:50

    Olá Sidnei,

    No evento form_Open()

    DoCmd.OpenForm "frmSenha"


    No evento Form_Open do formulário "frmSenha":
    Código:
    If Not IsNull(txtUsuario) And Not IsNull(txtSenha) Then
          If me.txtUsuario = "Fulano" Then
            Docmd.OpenForm "NomedoSeuForm",,,,,acHidden
         
          ElseIf me.txtUsuario = "Ciclano" Then
            Docmd.OpenForm "NomedoSeuForm", acNormal
          Else
          Exit Sub
    Else
        MsgBox "Preencha o campo com nome de usuário válido !!!",vbInformation,"NomedoForm"
    End If
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Seg 14 Jul 2014, 18:55

    Obrigado pela pronta ajuda Good Guy...

    Eu utilizei o seu modelo no meu código, porém acho que não seria este o código para o campo que estou precisando. veja abaixo como usei a sua dica;

    Código:

    Private Sub BotaoLogin_Click()
        If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
            If verificaLogin(CaixaLogin, CaixaSenha) Then
                DoCmd.Close
                DoCmd.OpenForm "MenuInicial", , , , , acHidden
            Else
                MsgBox "Senha inválida!", vbExclamation, "Login"
            End If
        End If
    End Sub

    Segue imagem do campo que gostaria que ficasse oculto, se um determinado usuário logasse.

    Obrigado novamente
    Anexos
    Guia de Formulário.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 12 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 986
    Registrado : 05/02/2010

    Ocultar Janelas dos Formulários (VBA)

    Mensagem  good guy em Seg 14 Jul 2014, 21:14

    Olá Sidnei,

    O código apresenta um erro. Não sei como está a função que vc está usando, mas se for uma função que criei para logar, fica assim:

    Código:
    Private Sub BotaoLogin_Click()   
    If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then       
    If verificaLogin(CaixaLogin, CaixaSenha) = True Then           
    DoCmd.Close acForm, "frmSenha"         
    DoCmd.OpenForm "MenuInicial", , , , , acHidden       
    Else           
    MsgBox "Senha inválida!", vbExclamation, "Login"       
    End If   
    End If
    End Sub
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Seg 14 Jul 2014, 21:27

    O código que postei esta funcionando perfeitamente no meu BD...

    Agora, o código que você descreveu, deveria ocultar a guia do formulário conforme imagem que enviei?

    abraços.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 986
    Registrado : 05/02/2010

    Ocultar Janelas dos Formulários (VBA)

    Mensagem  good guy em Seg 14 Jul 2014, 22:19

    Olá Sidnei,

    Vá em Opções, Configurações do formulário e tira do formato de Guias para janelas sobrepostas e tenta de novo. Cheque o código novamente e altere para:

    DoCmd.Close acForm,"frmSenha" 'Ou o nome correto do formulário de senha
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Seg 14 Jul 2014, 23:49

    Meu amigo Guy, obrigado por dar atenção para um novato como eu. Mas eu não estou com problema no meu forme de login, acho que o meu problema é bem mais simples, porém não encontro a solução em lugar nenhum.

    Como disse no primeiro post, eu não quero ocultar nas Opções do Access, mas ocultar para o usuário que não tiver permissão de visualizar. Outros poderão visualizar. quero dar esta permissão ao se logar.

    Vou dar mais uma explicações, talvez consiga passar a minha necessidade.

    Quando um usuário se locar no sistema eu executo o código abaixo para ocultar a Ribbon.

    DoCmd.ShowToolbar "ribbon", acToolbarNo

    Eu quero colocar uma linha abaixo desta ocultando as "abas" do Formulário. compreende?

    Segue outra imagem do meu banco "MenuInicial", note como esta estranho com a "aba" do formulário aparecendo.

    Mais uma vez, obrigado.
    Anexos
    Guia de Formulário.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 5 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 986
    Registrado : 05/02/2010

    Ocultar Janelas dos Formulários(VBA)

    Mensagem  good guy em Ter 15 Jul 2014, 14:42

    Olá Sidnei,

    Em nenhum momento estou afirmando que seu formulário de login está errado ou não está funcionando. Tente entender o que realmente quero dizer.
    O código

    DoCmd.Close acForm,"frmSenha"

    fecha o formulário de senha que estava aberto, caso o login esteja correto, isto é, usuário e senha existentes

    O código

    DoCmd.OpenForm "NomedoForm",,,,acHidden

    Abre o formulário de cadastro, mas não o exibe fica em oculto.

    Passando uma lógica de execução, fica assim:

    If me.txtUsuario = "Fulano" Then
    DoCmd.OpenForm "NomedoForm",,,,acHidden
    End If

    Teste o arquivo abaixo: Primeiro digite Sidnei para usuário e depois Eduardo e veja o que acontece. Para ambos existe um código para abrir o formulário Teste mas só um usuário poderá vê-lo.
    Anexos
    ForumTestes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (124 Kb) Baixado 12 vez(es)
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Ter 15 Jul 2014, 22:18

    Good Guy,

    Eu não quero ocultar o form do usuário.

    Eu quero ocultar as "abas" dos formulários. Veja a "Aba" na imagem anexo, usei o seu teste como exemplo.

    Uns chamam de "aba", outros de "guia", outros de "Janelas Sobrepostas"

    Lembre-se, não quero ocultar pela Opções do Access, e sim pelo código.

    Me ajude, por favor.
    Anexos
    Guia de Formulário.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (3 Kb) Baixado 5 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 986
    Registrado : 05/02/2010

    Ocultar Janelas dos Formulário(VBA)

    Mensagem  good guy em Ter 15 Jul 2014, 22:29

    Olá Sidnei,

    Quero ajudá-lo, mas vc precisa saber alguns conceitos que ainda estão turvos. Ou é Guia ou janelas sobrepostas. As duas coisas são completamente diferentes. Com Janelas sobrepostas selecionada, as guias desaparecem e ficam somente os formulários.
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Ter 15 Jul 2014, 22:32

    Good Guy.

    Segue mais duas imagens com as duas formas que preciso mostrar para os usuários

    Uma sem nenhuma "aba" e sem "Ribbon", para usuário Junior. Algo bem profissional.
    Outra com a aparência de desenvolvedor, com acesso a todas as ferramentas do Access.
    Anexos
    Sistema Com Usuário Junior.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 7 vez(es)
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Ter 15 Jul 2014, 22:35

    Guy,

    Isso mesmo...

    Acho que não estou conseguindo passar a minha necessidade corretamente.

    Eu preciso de um código que altere para "janelas sobrepostas" sem ser pela opções do access.

    Tem como?
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 986
    Registrado : 05/02/2010

    Ocultar Janelas dos Formulários(VBA)

    Mensagem  good guy em Qua 16 Jul 2014, 14:28

    Olá Sidnei,

    Tem. Entre no site do meste Avelino Sampaio e utilize o MontaRibbons. É aplicativo comercial, vc terá que adquiri-lo, mas poderá usá-lo alguns dias na versão demo. Você deverá, após selecionar o seu aplicativo, exportar a ribbon Access 2007 que deixa o aplicativo limpo de barras de ferramentas e acredito também sem guias.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    sidneinevess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/02/2013

    Re: Ocultar Janelas dos Formulários (VBA)

    Mensagem  sidneinevess em Qui 17 Jul 2014, 01:08

    Prezado Guy,

    Eu realmente não gostaria de adquirir um monta Ribbon, até porque, este aplicativo é para facilitar o meu dia-a-dia aqui na empresa com os colegas de trabalho.
    Mas fuçando na Net, encontrei os códigos que precisava. Com um porém; quando se altera as funções dentro das "Opções de Janela do Documento", elas só são aceitas quando reiniciamos o BD.

    Pergunto. Existe como efetuar as alterações sem reiniciar o banco?



    Eu não sou profissional, mas gosto de brincar com o access e fico muito feliz quando consigo fazer algo funcionar.
    Com isso, eu coloquei o BD para aqueles que gostariam de dar um ar "profissional" às suas aplicações. Espero que ajude alguém!!

    E se alguém conseguir fazer funcionar os botões das "Opções de Janela do Documento", eu agradeço. (Estão em Vermelho)

    Obrigado.
    Anexos
    TesteMinimizar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 10 vez(es)

      Data/hora atual: Ter 25 Jul 2017, 13:46