Hola!
Te explico la sistemática de cómo podría hacerse:
1.- Te creas una tabla auxiliar con un solo campo, que sea un campo tipo entero largo. Supongamos que lo llamamos [FechEnvio]
2.- En algún formulario que se te cargue siempre, en su evento "Al abrir" o "Al cargar", generas este código:
...
Private Sub...
'Declaramos las variables
Dim laFecha As Variant
Dim fechaYaEnviado As Variant
Dim miSql As String
'Cogemos la fecha del sistema
laFecha = Date
'Convertimos la fecha a entero largo
laFecha = CLng(laFecha)
'Comprobamos si es lunes. Si lo es...
If Weekday(Date) = vbMonday Then
'Miramos si ya existe la fecha en la tabla auxiliar
fechaYaEnviado = DLookup("FechEnvio", "TAux", "FechEnvio=" & laFecha)
'Si no se ha enviado...
If IsNull(fechaYaEnviado) Then
'Aquí iría el código para enviar los informes
End If
Else
Exit Sub
End If
'Escribimos la fecha en la tabla auxiliar
miSql = "INSERT INTO TAux (FechEnvio) VALUES (" & laFecha & ")"
DoCmd.SetWarnings False
DoCmd.RunSQL (miSql)
DoCmd.SetWarnings True
End sub
...
Saludos,
http://neckkito.siliconproject.com.ar
