Primer y último día de la semana en Visual Basic para Access 2003

El caso es el siguiente, tenemos un formulario de Microsoft Access 2003 con dos campos de fecha Desde/Hasta. Queremos que cuando se abra el formulario automáticamente se visualicen en los campos Desde y Hasta el primer y último día de la semana o del mes según la fecha en que lo hacemos para poder obtener informes en curso.

Deberíamos poner el siguiente código en el evento Form_Load()


txtDesdeFecha = Date - Weekday(Date, vbUseSystemDayOfWeek) + 1
txtHastaFecha = Date - Weekday(Date, vbUseSystemDayOfWeek) + 7