Restringir acceso a funciones especificas?

[franko1809]

Que tal, quiero restringir el acceso a ciertos botonesque ejecutan funciones
Cree esta funcion de ejemplo en un modulo

Código:

Public Sub Acceso_system()
If not frmAcceso.txtUser = "admin" Then
MsgBox "No puede acceder a esta opcion"
Exit Sub
End If
End Sub

Pero no ejecuta el exit sub al llamarla desde cualquier form, solo envia el mensaje y continua, no detiene su ejecucion

Si pongo todo el codigo antes de ejecutar cualquier otra funcion si ejecuta el exit sub por ejemplo

Código:

   Case 1
     'Eliminar registro
     If not frmAcceso.txtUser = "admin" Then
        MsgBox "No puede acceder a esta opcion"
        Exit Sub
     End If
     F_eliminar
   Case 2
     'Modificar registro
     F_modificar

[David]

Es raro .

¿Has probado ejecutar paso a paso para saber qué está pasando?

[franko1809]

Se me ocurre que vb6.0 no acepta este tipo de accion desde un modulo por que probe sin los case's y sigue igual no reconoce el exit sub

Si tienen alguna sugerencia sobre como bloquear acceso a ciertos botones, lo mencionan

Esta raro seguire intentando quizas algo va mal y no me doy cuenta

saludos

[David]

¿Probaste lo que te comenté? ¿Ejecutar el código paso a paso para ver dónde está el fallo? Si es necesario coloca un punto de interrupción en el Exit Sub.

Porque, que yo recuerde es válido el uso de Exit Sub en ese contexto. ¿Has comprobado que la condición en el if sea realmente verdadera?

[franko1809]

Bueno tio me sigue sin reconocer el exit sub, cree un proyecto aparte y sigue en lo mismo
modulo

Código:

Public Sub Acceso_system()
If Not Form1.txtuser = "admin" Then
MsgBox "No puede acceder a esta opcion"
Exit Sub
Else
MsgBox "Acceso total"
End If
End Sub

formulario

Código:

Private Sub Command1_Click()
Acceso_system
Text1 = "Se realizo el proceso"
End Sub

Los MsgBox si se muestrar dependiendo de cada caso, pero siempre se ejecuta el Text1 = "Se realizo el proceso" en cualquiera de los 2 casos, si tienes el visual a la mano puedes comprobarlo, ejecutar el codigo paso a paso?
Bueno si en lugar de llamar a la funcion copio y pego el mismo codigo del modulo antes del Text1 = "se realizo el proceso", es decir no utilizo el modulo todo funciona bien

[David]

No sabía que eso era lo que tratabas de hacer :.

Tu planteamiento del problema es incorrecto en ese caso, Exit Sub en el contexto en que lo colocas saldrá del Sub Acceso_system, pero no del Sub Command1_Click.

[franko1809]

Tio tienes razon el problema es ese entonces no puedo insertar el f_eliminar u otras funciones dentro del sub Acceso_system para que funciones desde el modulo.
Tendre que hacer esto por ahora
If Not Form1.txtuser = "admin" Then MsgBox "No puede acceder a esta opcion" : Exit Sub antes de llamar a cada funcion pero si alguien tiene una sugerencia, estare esperando

[David]

Puedes convertir Acceso_system en una función. Y en cualquier llamada a ella compruebas el valor de retorno para realizar las acciones correspondientes (aunque no me parece un buen planteamiento, en tu caso, es la opción que tienes)

[franko1809]

gracias por el dato tio reacomodare la idea para un mejor planteamiento.
De que manera se hace esta tarea generalmente por q lo que quiero parece que no va

saludos