Bom dia a todos,
como faço para maximizar um formulario ( que esta com o nome "Menu")
ele pede login e senha e depois abre o menu, so que ele não abre maximizado.
gostaria tb que sabe como faço para controla cada usuario por permissão.
tipo usuario a acessa tal e usuario b tal coisa.
obrigado
Private Sub BotaoLogin_Click()
Static tentativas As Byte 'Apos tentar mais de tres vezes o sistema é encerrado
tentativas = tentativas + 1
If tentativas > 3 Then
MsgBox "Foram Esgotadas as Tentativas de Acesso!" & Chr(13) & "O Programa Será Fechado.", _
vbCritical, " Administrador do Sistema!"
Application.Quit
Exit Sub
End If
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "Menu"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
Me.CaixaSenha = ""
Me.CaixaSenha.SetFocus
End If
End If
End Sub
como faço para maximizar um formulario ( que esta com o nome "Menu")
ele pede login e senha e depois abre o menu, so que ele não abre maximizado.
gostaria tb que sabe como faço para controla cada usuario por permissão.
tipo usuario a acessa tal e usuario b tal coisa.
obrigado
Private Sub BotaoLogin_Click()
Static tentativas As Byte 'Apos tentar mais de tres vezes o sistema é encerrado
tentativas = tentativas + 1
If tentativas > 3 Then
MsgBox "Foram Esgotadas as Tentativas de Acesso!" & Chr(13) & "O Programa Será Fechado.", _
vbCritical, " Administrador do Sistema!"
Application.Quit
Exit Sub
End If
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "Menu"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
Me.CaixaSenha = ""
Me.CaixaSenha.SetFocus
End If
End If
End Sub