Ramon dos S. Veloso

Ai, Primeiro cria um modulo desse jeito aki... Option Explicit Public Cod_novo As String 'usado pelo btn de teste Public Inc As Integer 'Flag de inclusão Public Exc As Integer 'Flag de exclusão Public Alt As Integer 'Flag de Alteração Public ManUser As Integer 'Flag de Inclusão de Usuário Public NUser As String 'Nome do usuário Public vsen As String 'usada pelo form CadSenha Depois... Um form. de apresentação com isso aki... Private Sub Form_Open(Cancel As Integer) Inc = 0 Exc = 0 Alt = 0 ManUser = 0 End Sub Private Sub Imagem1_Click() DoCmd.OpenForm "Message" End Sub Private Sub Prosseguir_Click() If IsNull(User) Then If MsgBox("Usuário inválido !", vbOKOnly, "Atenção !") = vbOK Then Exit Sub End If End If Me.RecordsetClone.FindFirst "[Usuario] = '" & Me![User] & "'" Me.Bookmark = Me.RecordsetClone.Bookmark If Me![Usuario] <> Me![User] Then If MsgBox("Usuário não cadastrado, chame o administrador.", vbOKOnly, "Atenção !") = vbOK Then Exit Sub End If End If If IsNull(Me![Senha]) Then DoCmd.OpenForm "CadSenha", , , , , acDialog If vsen = "" Then If MsgBox("Senha inválida !", vbOKOnly, "Atenção !") = vbOK Then Exit Sub End If End If Me![Senha] = vsen ElseIf IsNull(Me![Sen]) Or Me![Senha] <> Me![Sen] Then If MsgBox("Senha não confere, chame o administrador.", vbOKOnly, "Atenção !") = vbOK Then Exit Sub End If End If NUser = Me![Usuario] Inc = Me![Inclui] Exc = Me![Exclui] Alt = Me![Altera] ManUser = Me![IncUser] DoCmd.OpenForm "Documentos" End Sub Private Sub Sair_Click() DoCmd.Close DoCmd.Quit acQuitPrompt End Sub Até ai beleza? Agora... Um Form. Cad. de senha com isso aki... Private Sub BtnOK_Click() If IsNull(Edt_Sen) Then Edt_Sen = "" End If vsen = Edt_Sen DoCmd.Close End Sub e... esse cod aki você coloca nos Form Q você precisar desabilitar acessos... If Inc = 0 Then Me!Comando15.Enabled = False End If If Exc = 0 Then Me!Comando14.Enabled = False End If If Alt = 0 Then Me.AllowEdits = False End If Lógico esse cód eu que montei... EoO só colei aki... Então por favor... Não me pergunte: "Os nomes dos formulários tem que ser esses aki?" Espero ter ajudado... Qualquer coisa tamo aew! Abs By Onix...