El valor de Ns no puede ser parametro por que se recupera de la consula sql es decir del campo n_acceso con esta linea de codigo
Dim Ns As Integer
If rs(0) = FALSO Then Ns = 0 Else Ns = 1
El cmdUpdate_Click() es un command
En todos los formularios existira el Text1 asi que no es necesario utilizarlo como parametro.
Como recuperaria el valor de Ns al ejecutar esta funcion?
Código:
Private Sub Mi_funcion()
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
'Aqui como hago para que al llamar a la funcion se recupere el valor de Ns?
End Sub
Private Sub cmdUpdate_Click()
'Aqui haria la comprobacion dependiendo del valor que puede ser 1 ó 0
If Mi_funcion = 1 Then
MsgBox "Consulta SQL realizada satisfactoriamente"
Else
MsgBox "No puede realizar la consulta SQL, no tiene permiso"
End If
End Sub