Login e Senha para abrir o formulário

[Victor.Zero]

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

[MrMALJ]

Fera aqui no forum existem alguns exemplos de sistemas de login, use a busca da seção que você irá encontra-los. Dai você os analisa e adequa-os a sua necessidade.