Private Sub Cuadro_combinado247_Change()
DoCmd.ApplyFilter , "[semana]=#" & Cuadro_combinado247 & "# And [nombre]=fncUsuario()"
Private Sub Cuadro_combinado247_AfterUpdate()
Me.RecordSource = "select * from Personal where [semana]=#" & Cuadro_combinado247 & "# And [nombre]='" & Me.Texto38 & "'"
Private Sub Cuadro_combinado247_AfterUpdate()
Me.RecordSource = "select * from Personal where [semana]=#" & _
Format(Cuadro_combinado247, "mm/dd/yyyy") & _
"# And [nombre]='" & Me.Texto38 & "'"