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