No encuentro el fallo...
Publicado por JYM72 (39 intervenciones) el 16/12/2007 00:39:11
Private Sub Asistencia_Semanal_Click()
If Me.Asistencia_Semanal.Value = True Then
Me.Asistencia_Diaria.Form!.Semana_Número = Me.Semana_Número
Else
Me.Asistencia_Diaria.Form!.Semana_Número = 0
End If
End Sub
...................................
Formulario: Asistencias
Campo1: Fecha Asistencia
Casilla 1: Si/No
Un Subformulario: Asistencia Diaria
CampoSb1:Fecha Asistencia
++++++++++++++++++++++
He de dar valor a "CampoSb1:Fecha Asistencia" cuando marque "Casilla 1: Si/No"; en "Si" su valor a de ser "Campo1: Fecha Asistencia" y en "No" su valor es "0"
Algo hago mal. Gracias de antemano por la ayuda.
If Me.Asistencia_Semanal.Value = True Then
Me.Asistencia_Diaria.Form!.Semana_Número = Me.Semana_Número
Else
Me.Asistencia_Diaria.Form!.Semana_Número = 0
End If
End Sub
...................................
Formulario: Asistencias
Campo1: Fecha Asistencia
Casilla 1: Si/No
Un Subformulario: Asistencia Diaria
CampoSb1:Fecha Asistencia
++++++++++++++++++++++
He de dar valor a "CampoSb1:Fecha Asistencia" cuando marque "Casilla 1: Si/No"; en "Si" su valor a de ser "Campo1: Fecha Asistencia" y en "No" su valor es "0"
Algo hago mal. Gracias de antemano por la ayuda.
Valora esta pregunta
0