
Comparar campos mediante funcion
Publicado por Pepe (1 intervención) el 16/04/2018 19:06:44
Buenos días.
Tengo una BD donde cada usuario que ingresa se le asigna una TempVars "IdUsuarioActual".
Esta BD consta de tareas. Cada vez que un usuario crea una tarea, el campo "Propietario" toma el valor de la variable temporal "IdUsuarioActual".
Entonces, para cada tarea, quisiera que algunos campos sólo los pueda modificar en el formulario el "Propietario", para lo que quiero comparar los dos valores: el campo "Propietario", con la variable temporal "IdUsuarioTemporal". Para ello, en cada txt que quiera "restringir", quiero colocar un If del tipo
Si escribo este código en el txt no tengo problema, pero si declaro una función no consigo que funcione por algún motivo que se escapa de mis limitados conocimientos:
Gracias por vuestros comentarios.
Tengo una BD donde cada usuario que ingresa se le asigna una TempVars "IdUsuarioActual".
Esta BD consta de tareas. Cada vez que un usuario crea una tarea, el campo "Propietario" toma el valor de la variable temporal "IdUsuarioActual".
Entonces, para cada tarea, quisiera que algunos campos sólo los pueda modificar en el formulario el "Propietario", para lo que quiero comparar los dos valores: el campo "Propietario", con la variable temporal "IdUsuarioTemporal". Para ello, en cada txt que quiera "restringir", quiero colocar un If del tipo
1
2
3
4
5
If TempVars!IdUsuarioActual <> Propietario Then
MsgBox "No tiene permisos para modificar este elemento", vbExclamation, ""
Else
' Lo que sea para continuar con el cambio.
End If
Si escribo este código en el txt no tengo problema, pero si declaro una función no consigo que funcione por algún motivo que se escapa de mis limitados conocimientos:
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function PermisosEdicion()
On Error GoTo PermisosEdicion_Err
If TempVars!IdUsuarioActual <> Propietario Then
MsgBox "No tiene permisos para modificar este elemento", vbExclamation, ""
Else
MsgBox "OK", vbExclamation, ""
End If
PermisosEdicion_Exit:
Exit Function
PermisosEdicion_Err:
MsgBox Error$
Resume PermisosEdicion_Exit
End Function
Gracias por vuestros comentarios.
Valora esta pregunta


0