Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » ayuda urgente (Panel de control)

Access - ayuda urgente (Panel de control)

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

ayuda urgente (Panel de control)

Publicado por Percy (38 intervenciones) el 19/05/2007 04:22:32
Amigos en un boton de un form, tengo el siguiente codigo.

Private Sub Aceptar_Click()
On Error GoTo Err_Aceptar_Click

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Modulo Supervisor"

If password = "xxxx" Or password = "xxxx" Then
password.SetFocus
password = ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
password = ""
Me.Visible = False
End If
End Sub

---xxxx es la contraseña que al ser true se ira al form "Modulo Supervisor"; pero lo que deseo hacer esque enves de abrir un form, abra un pagina del panel de control llamada "zzzz".
pliss denme una mano en este tema.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Abrir una página del Panel de Control en lugar de un formulario desde un botón

Publicado por Alejandro (4142 intervenciones) el 10/08/2023 19:39:31
Si deseas abrir una página del Panel de Control en lugar de un formulario desde un botón en tu aplicación de Access, puedes utilizar el siguiente código para abrir la página correspondiente utilizando el comando `Shell` de Windows:

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
Private Sub Aceptar_Click()
    On Error GoTo Err_Aceptar_Click
 
    Dim password As String
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    password = ' Coloca aquí el valor de la variable 'password'
 
    ' Comprobar la contraseña
    If password = "xxxx" Or password = "xxxx" Then
        ' Abrir la página del Panel de Control
        Shell "control.exe zzzz", vbNormalFocus
        password = ""
        Me.Visible = False
    Else
        ' Aquí puedes manejar la lógica en caso de contraseña incorrecta
        MsgBox "Contraseña incorrecta", vbExclamation, "Error"
        password = ""
    End If
 
Exit_Aceptar_Click:
    Exit Sub
 
Err_Aceptar_Click:
    MsgBox Err.Description, vbCritical, "Error"
    Resume Exit_Aceptar_Click
End Sub

Reemplaza `' Coloca aquí el valor de la variable 'password'` con el valor actual de la variable `password` en tu código.

En este ejemplo, el comando `Shell` se utiliza para abrir el Panel de Control y pasarle el argumento `"zzzz"` para abrir la página específica que deseas. Asegúrate de que `"zzzz"` sea el nombre o el comando correcto para abrir la página que necesitas en tu Panel de Control.

Nota que el uso de `"control.exe zzzz"` puede variar dependiendo de la configuración de tu sistema operativo y la versión de Windows. Asegúrate de ajustar el código según tus necesidades y la ubicación de la página en el Panel de Control.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar