[Resolvido]Login e Senha para abrir o formulário

Saudações

01 tabela com os seguntes campos:

Usuário Senha Permissão
Adm 123456 Cadastro
Claudio 121212 Leitura

e uma consulta com os seguintes critérios

Usuário Senha
[Forms]![frm_Login]![ComboBoxUsuario] [Forms]![frm_Login]![Senha]

um formulário de login

com um botão

Private Sub Comando19_Click()
DoCmd.OpenForm "frm_Apresentacao_Arquivo_Central", acNormal, "", "", , acNormal
End Sub

e no formulário frm_Apresentacao_Arquivo_Central

no evento ao abrir

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "A senha digitada não confere", vbExclamation, "Atenção"
DoCmd.Close acForm, "frm_Login"
DoCmd.OpenForm "frm_Login", acNormal, "", "", , acNormal
DoCmd.Close acForm, "frm_Apresentacao_Arquivo_Central"
End If
End Sub

e no evento Carregar

DoCmd.Close acForm, "frm_Login"

se a senha for correta o frm_Apresentacao_Arquivo_Central abre normalmente

o que posso fazer para quando o usuário for de adm permissão cadastro abra o formulário frm_Apresentacao_Arquivo_Central
e quando for Claudio permissão leitura abra o formulário frm_Apresentacao_Arquivo_Central_Leitura ao invés do formualário frm_Apresentacao_Arquivo_Central

OLá Victor


Se esse botão abaixo for no formulário Login, então:

Private Sub Comando19_Click()
If me.ComboBoxUsuario = "Adm" then
DoCmd.OpenForm "frm_Apresentacao_Arquivo_Central", acNormal, "", "", , acNormal
Else if me.ComboBoxUsuario = "Claudio" then
DoCmd.Close acForm, "frm_Apresentacao_Arquivo_Central"

End If
End Sub

Creio que você saiba sobre combobox:
me.ComboBoxUsuario.Column(0) se usar o código (primeira coluna da combo)
me.ComboBoxUsuario.Column(1) se for a coluna do Nome do Usuário (segunda coluna)

Para testar esse código, desative os códigos do Evento AoAbrir do formulário frm_Apresentacao_Arquivo_Central.

Abraços