Se me minimiza formulario al abrir la base de datos
Publicado por Francisco (6 intervenciones) el 31/05/2017 18:06:56
Hola, tengo una base de datos en access, la cual cuando ingreso usuario y contraseña se me esconde la ventana de access, pero también se me minimiza el formulario que tengo de menú principal, me gustaría que se quedara fijo en la pantalla y no se donde esta el error,
copio el código a ver si alguien me ayuda.
este lo tengo en el form menu principal
este en el form login
copio el código a ver si alguien me ayuda.
este lo tengo en el form menu principal
1
2
3
Private Sub Form_Load()
Me.lbl_UsuarioActivo.Caption = UCase(LogedUser)
End Sub
este en el form login
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (0)
End Sub
Private Sub Comando1_Click()
Dim OnOfRibbon As Integer
Dim OnOfShift As Integer
If IsNull(Me.txtUsuario) Then
MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
Me.txtUsuario.SetFocus
ElseIf IsNull(Me.txtPass) Then
MsgBox "Por favor, ingrese su Contraseña", vbInformation, "Contraseña requerida"
Me.txtPass.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Usuarios", "[Usuario] ='" & Me.txtUsuario.Value & _
"' And Pass = '" & Me.txtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"Else
OnOfShift = DLookup("Activar_Shift", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
OnOfRibbon = DLookup("Mostrar_Cinta_Opciones", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
UserLevel = DLookup("Admin", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
'Validación para Desactivar/Activar tecla Shift
If OnOfShift = -1 Then
TeclaShift "AllowBypassKey", dbBoolean, True
Else
TeclaShift "AllowBypassKey", dbBoolean, False
End If
'Validación para Mostrar/Ocultar la Cinta de Opciones
If OnOfRibbon = -1 Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End If
'Validación para identificar al Administrador
If UserLevel = -1 Then
LogedUser = Me.txtUsuario.Value
DoCmd.CloseDoCmd.OpenForm "MENU_PRINCIPAL"
Else
LogedUser = Me.txtUsuario.Value
DoCmd.CloseDoCmd.OpenForm "MENU_PRINCIPAL"
End If
End If
End If
End Sub
Valora esta pregunta
0