Access - Condicionar un formulario

   
Vista:
sin imagen de perfil

Condicionar un formulario

Publicado por Sandra (9 intervenciones) el 11/01/2019 19:25:11
Hola y de antemano gracias por su tiempo

Tengo un formulario con dos campos. "Responsable" y "Fecha de inicio", desde otro formulario alguien crea una nueva tarea y como valor predeterminado se pone "sin asignar", lo que quiero haces es que desde este formulario cuando el registro de "responsable" se cambie de "sin asignar" y se le asigne a un empleado, la fecha de inicio se ponga en automático la fecha del sistema, ya que desde que se le asigna al empleado, la tarea inicia.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Pos: 181
Val: 15
Ha aumentado su posición en 235 puestos en Access (en relación al último mes)

Condicionar un formulario

Publicado por Pedro Vicente (4 intervenciones) el 11/01/2019 20:41:09
si los cuadros de texto se llaman "responsable" y "fechadeinicio"

En el evento "después de actualizar" del campo "responsable" pon el código:

1
2
3
4
5
6
If me.responsable <> "sin asignar" then
me.fechadeinicio = fecha()
else
isnull (me.fechadeinicio)
 
end if



Suerte!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Condicionar un formulario

Publicado por Sandra (9 intervenciones) el 14/01/2019 17:27:25
Gracias pero no me ha funcionado, al momento de probar el programa, se abre la ventana de VBA y aparece un recuadro de "Error de compilación: no se ha definido Sub o Function" y la función de Fecha() de colorea de azul. Cambié el código de acuerdo a los nombres de mi base, como la casilla de responsable se selecciona de otra tabla, el id de "sin asignar" es el 13

1
2
3
4
5
6
7
8
Private Sub Responsable_AfterUpdate()
If Me.Responsable <> 13 Then
Me.[Fecha de inicio] = Fecha()
Else
IsNull (Me.[Fecha de inicio])
 
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Condicionar un formulario

Publicado por Sandra (9 intervenciones) el 14/01/2019 19:04:20
Por si a alguien alguna vez le sirve, ya me ha dado el resultado. Solo he cambiado el comando por su nombre en ingles: Fecha(), por Date


1
2
3
4
5
6
7
8
Private Sub Responsable_AfterUpdate()
If Me.Responsable <> 13 Then
Me.[Fecha de inicio] = Date
Else
IsNull (Me.[Fecha de inicio])
 
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad