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