Access - Cómo ejecutar consulta semanalmente

   
Vista:

Cómo ejecutar consulta semanalmente

Publicado por Roberto Tapia titus@tutopia.com (12 intervenciones) el 16/04/2013 14:19:58
Tengo una consulta que gatilla mensajes con unos informes. Deseo que esos informes sean enviado por mail pero solamente los lunes de cada semana. ¿Se puede hacer?
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
Imágen de perfil de Neckkito

Cómo ejecutar consulta semanalmente

Publicado por Neckkito (1104 intervenciones) el 16/04/2013 20:59:26
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
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

Cómo ejecutar consulta semanalmente

Publicado por ROBERTO titus@tutopia.com (12 intervenciones) el 17/04/2013 01:23:34
Muchísimas Gracias
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