[Resolvido]Dúvida com Login

Gostei da pronta resposta!
Duas dúvidas:
- Como adequar nesse meu código:
Private Sub cmdOK_Click()
On Error Resume Next
Dim strCritério As String
Dim varCRM As Variant
Dim strMsg As String
Dim strTitle As String

strCritério = "CRM = '" & Me.txtCRM & _
"' AND Senha = '" & Me.txtSenha & "'"
varCRM = DLookup("crm", "Usuario", strCritério)
'A variável "varNome" pesquisa o nome do usuário na tabela "tblUsuario" e estabelece este critério de validação para acesso ao formulário que estiver protegendo.

If IsNull(varCRM) Then 'Se estiver em branco ou o nome não corresponder ao existente na tabela tblUsuario uma mensagem de erro surge.

strMsg = "Usuário atual ou senha inválidos"
strTitle = "Senha?"
MsgBox strMsg, vbQuestion, strTitle
Me.txtCRM.SetFocus
Else
Cancelou = False
UsuárioAtual = Me.txtCRM
DoCmd.Close A_FORM, Me.Name
Exit Sub
End If
End Sub
Private Sub Form_Load()
Cancelou = True
End Sub
Private Sub Form_Open(Cancel As Integer)
Cancel = (DCount("*", "Usuario") = 0)
End Sub

- Como fazer para que meu banco de dados ao abrir, abra com as tabelas "ocultas" como as do JPaulo?

Amigo César, este é o local para tirar dúvidas.

A primeira dúvida você terá que detalhar o que pretende, adequar?? O que seria exatamente?

A segunda siga este link:
102 Códigos VBA para Access

Procure no tópico o item: Esconde Tabelas (Contribuíção do Assis)


Evite duas dúvidas por tópico OK. Salvo se tiverem co-relação.

Seria "fecha formulários" ou "esconde tabelas"?
Desculpem quanto ao código,como então deveria expor minha dúvida?

César, é assim:

Deves trazer uma dúvida por tópico.

Precisa expor o que necessita, precisa também informar o que já vem tentando fazer e não consegue.

Exemplo:

Preciso fechar um formulário ao clicar do botão, como isso seria possível?

Os membros que lerem algo dessa forma saberá que não tentaste nada e que eventualmente não tem a mínima idéia de como começar. As pessoas terão uma forma de ajudar.

Agora outro exemplo:

Pessoal, venho tentando fazer com que um código que coloco num botão, feche o formulário atual, mas, não dá certo, informa erro 404, onde será que estou errando, abaixo o código que estou aplicando:

DoCmd.Klose

As pessoas terão outra maneira de lhe ajudar, pois sabem do que tentou fazer e estão apreciando o código usado por você.

---

Agora, nos diga a sua primeira dúvida.

O que acho mais interessante nesse fórum é a pronta resposta.Muito Bom!
Tentei inserir o código (Select Case) existente no exemplo de "Login com nível de permissão" cedido por Jpaulo nesse código que escrevi acima, logo após a condicional If, colocando o comando DoCmd.OpenForm stDocName após o comando DoCmd.Close A_Form e não surtiu nenhum efeito no banco de dados. O que devo estar errando?

Olá Cesar, bom dia,

Não vejo a instrução "select case" no código acima. Continua confuso o que pretende (falou em níveis, depois em ocultar tabelas, select case depois do if)

Poste o código com a instrução e dê detalhes de como quer que o código funcione, exemplo:

Se X estiver selecionado quero que abra o form A
Se for Y quero que não faça nada ou envie uma mensagem de crítica.

Você precisa expressar o que deseja do código, a ação que espera que aconteça ao acionar a rotina.

Private Sub cmdOK_Click()
On Error Resume Next
Dim strCritério As String
Dim varCRM As Variant
Dim strMsg As String
Dim strTitle As String
Dim stDocName As String
Dim Ident As String

Ident = DLookup("crm","Usuario","CRM= '"&Me.txtCRM")
strCritério = "CRM = '" & Me.txtCRM & _
"' AND Senha = '" & Me.txtSenha & "'"
varCRM = DLookup("crm", "Usuario", strCritério)
'A variável "varNome" pesquisa o nome do usuário na tabela "tblUsuario" e estabelece este critério de validação para acesso ao formulário que estiver protegendo.

If IsNull(varCRM) Then 'Se estiver em branco ou o nome não corresponder ao existente na tabela tblUsuario uma mensagem de erro surge.
Select Case Ident
Case "Tudo"
stDocName = "Basica"
Case "Pacientes"
stDocName = "Reduzida"
End Select
strMsg = "Usuário atual ou senha inválidos"
strTitle = "Senha?"
MsgBox strMsg, vbQuestion, strTitle
Me.txtCRM.SetFocus

Else
Cancelou = False
UsuárioAtual = Me.txtCRM
DoCmd.Close A_FORM, Me.Name
DoCmd.OpenForm stDocName
Exit Sub
End If
End Sub
Private Sub Form_Load()
Cancelou = True
End Sub
Private Sub Form_Open(Cancel As Integer)
Cancel = (DCount("*", "Usuario") = 0)
End Sub

Bem vou tentar:O código original, que está funcionando bem é o que está escrito em preto, eu o coloco em um botão de login para que ele possa verificar se o usuário está cadastrado, dando acesso a um outro formulário. Contudo está simples porque ou tem-se acesso ou não. Gostaria de aplicar o seguinte, caso fosse um usuário a que fosse permitido "Tudo", abrisse um formulário("Basica"), caso fosse um usuário a que fosse permitido apenas cadastrar pacientes, abrisse o formulário "Pacientes". Na forma que tentei,código em vermelho, não alterou nada no resultado final.

Amigo, coloquei a parte do Select após o Else e o CmdOpen antes do Cmd.Close.
Gostaria de saber agora como fazer para ficar com os elementos do banco de dados ocultos, revelando-os apenas se pressionar a tecla shift ao abrir o banco de dados?

César Qual a versão do Access que utilizas?
Se for a 2007, siga as informações abaixo:

1 - Abra o Access 2007 normalmente
2 - Vá no botão com símbolo do Office - lado esquerdo superior
3 - Clique nele
4 - Vai abrir um formulário abaixo do lado direito a 1ª opção é opções do Access
5 - Clique nela
6 - Vai abrir outro formulário, do lado esquerdo tem algumas opções como:
mais usado / banco de dados atual e etc.....
7 - Clique banco de dados atual vai abrir formulário com opções do aplicativo, a
4ª opção é exibir formulário. É neste campo que você vai escolher o formulário
que pretende exibir quando abrir este aplicativo
8 - de Ok feche o aplicativo e abra novamente.

9 - Abaixo tem Navegação, desmarque o exibir o painel de navegação
Creio que é isto que você esta querendo saber.

César,

Quando falas: "coloquei a parte do Select após o Else e o CmdOpen antes do Cmd.Close."

Queres dizer com isso, que o código funcionou como desejava?

E que o que lhe falta agora é saber ocultar os elementos do banco?

Deu certo,sim, amigo.
Falta saber onde aplicar aquele código do EscondeTabela do Assis:em um módulo?em cada formulário?

Ok,

Para sempre aprimorar a ferramenta de busca do Fórum, damos este tópico como resolvido e encerrado.

César, abra um novo tópico para saber do bloqueio da tecla shift e ocultar tabelas

Escreva o nome do titulo como está em negrito, que logo em seguida lhe darei as respostas devidas de solução OK.

Cumprimentos.