Ocultar Janelas dos Formulários (VBA)

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.

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

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

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

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.

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

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.

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.

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.

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.

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.

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?

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.

www.usandoaccess.com.br

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.