Abrir formulario según tipo de usuario
Publicado por Damian (8 intervenciones) el 28/07/2015 20:51:52
Buenas tardes,
Tengo el siguiente código que lo programé en su momento para Access 2003 y funcionaba perfecto. Tengo mi base de datos con todos los usuarios cargados y cada uno tiene su perfil según un checkbox en la base. Ahora bien, dependiendo el tipo de usuario que sea el form que quiero abrir al cliquear el botón.
En access 2003 no tuve problema, pero en 2007 simplemente el código no responde. Alguien sabe que puede ser diferente?
Dejo el código a continuación:
Gracias!
Tengo el siguiente código que lo programé en su momento para Access 2003 y funcionaba perfecto. Tengo mi base de datos con todos los usuarios cargados y cada uno tiene su perfil según un checkbox en la base. Ahora bien, dependiendo el tipo de usuario que sea el form que quiero abrir al cliquear el botón.
En access 2003 no tuve problema, pero en 2007 simplemente el código no responde. Alguien sabe que puede ser diferente?
Dejo el código a continuación:
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
Private Sub btn_volver_Click()
Dim rst As New ADODB.RecordsetDim stDocName As String
Dim stLinkCriteria As String
If Not IsNull(Me.txt_usuario) Then
rst.Open "SELECT * FROM [Gestores]" & _
"WHERE [Usuario] ='" & Me.txt_usuario & "' ORDER BY [usuario]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText
If rst.RecordCount > 0 Then
If CBool(rst![Gestor]) Then
DoCmd.CloseDoCmd.OpenForm "Login", , , stLinkCriteria, , acDialog
End If
If CBool(rst![Recepción]) Then
DoCmd.CloseDoCmd.OpenForm "Login", , , stLinkCriteria, , acDialog
End If
If CBool(rst![Supervisor]) Then
DoCmd.CloseDoCmd.OpenForm "Supervisor", , , stLinkCriteria, , acDialog
End If
If CBool(rst![Administrador]) Then
DoCmd.CloseDoCmd.OpenForm "Administrador", , , stLinkCriteria, , acDialog
End If
Else
MsgBox "Usuario y contraseña invalidos", vbCritical, "Mensaje de Error"
End If
rst.Close Set rst = NothingElse
MsgBox "Debe colocar el usuario y la contraseña", vbCritical, "Mensaje de Error"
End If
End Sub
Gracias!
Valora esta pregunta
0
