Cita:
Iniciado por zxs23 
Necesito realizar el mismo procedimiento en varios formularios, lo unico que cambia es cuando el If Ns = 1 se llamara a un funcion diferente dependiendo el caso.
ó quizas deberia convertirlo en una clase
Código:
Private Sub cmdUpdate_Click()
Dim rs As Recordset
Set rs = cn.Execute("SELECT n_acceso FROM usuario WHERE nomuser='" & Text1.text & "'")
Dim Ns As Integer
If rs(0) = FALSO Then Ns = 0 Else Ns = 1
If Ns = 1 Then 'Si el boolean esta activo
MsgBox "Consulta SQL realizada satisfactoriamente"
'###Ejecuto una funcion de mantenimiento###
Else
MsgBox "No puede realizar la consulta SQL, no tiene permiso"
End If
End Sub
Hola creo que puedes poner tu funcion en un modulo y usarla en los formularios que quieras, pero tengo una duda la funcion se refiere a un control "cmd_update" en el evento click?
tambien veo que dentro la fude ncion haces referencia al contenido de un textbox, si quieres utilizar la funcion en otros formularios posiblemente los controles no se llamen igual y te de un error.