Como paso este codigo a una funcion?

[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

[herniiiiiiii]

Private Sub NombreDeLaFuncion(Ns as integer)
Dim rs As Recordset
Set rs = cn.Execute("SELECT n_acceso FROM usuario WHERE nomuser='" & Text1.text & "'")
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
'Y aca por ej pones, If Ns=2 Then....blablabla
End Sub

La Funcion se la llama de la siguiente manera: NombreDeLaFuncion(Valor de Ns)
siendo NombreDeLaFuncion, valga la redundancia, el nombre de la funcion y el valor que toma NS entre ()

[Gakex]

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.

[zxs23]

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

[jmiguel85]

Private Function 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
Mi_funcion = Ns
End Sub

Tendrias que declararla como function y no como Sub que es un procedimiento, para retornar el valor solo sería:
Mi_funcion = Ns
Saludos.

[zxs23]

si funciono pero tengo otra consulta es posible pasarle como parametro otra funcion por ejemplo para ejecutar hago esto

Código:

Private Sub cmdUpdate_Click()
If Mi_funcion  = 1 Then 
   MsgBox "Consulta SQL realizada satisfactoriamente"
   'Llamo a otra funcion
Else
   MsgBox "No puede realizar la consulta SQL, no tiene permiso"
End If
End Sub

Se puede pasar un parametro que ejecute otra funcion de esta manera
call Mi_funcion(Otra_funcion) y el parametro de esta manera Private Function Mi_funcion(f as function), lo hize asi pero me sale error en el parametro.

Por otro lado si no se puede eso, como haria que la condicion If Mi_funcion = 1 Then ... quede dentro de la funcion por eso se me ocurrio pasarle un parametro as function.
El motivo de esto es tratar de reducir la redundancia de codigo para que sea mas facil de entender