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
