Access - ayuda con codigo!

 
Vista:

ayuda con codigo!

Publicado por ayuda con codigo para envio de mail (25 intervenciones) el 14/05/2012 13:36:39
Hola a todos, nesecito una gran ayuda de UDs, les cuento mi caso, tengo una base de datos en la cual tengo una tabla (empleados) donde tiene los campos nombre;fecha_cumpleaños;mail.
Me encomendaron que debo enviar un mail a todos los que cumplen los años en ese dia ( por ejemplo hoy 09/05/2012 deberia filtrar solo esos y a su ves enviarle un mail de salutacion.
me podran ayudar a como crear una consulta por la cual, me muestre solo las personas que cumplen los años en el dia de la fecha, y esos seleccionados por medio de una macro enviarles a cada direccion de mail propia enviarle el mail de salutacion?
Muchisimas gracias a todos.!
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

ayuda con codigo!

Publicado por 2pl (461 intervenciones) el 15/05/2012 08:14:51
En la consulta debes tener dos campos MESCUMPLEÑOS:Mes([fecha_cumpleaños]) y en criterio Mes(date()) otro campo AÑOCUMPLEAÑOS:Year([fecha_cumpleaños]) y en criterio Year(date())
luego si quieres saber la edad pones otro campo EDAD:CalcularEdad([fecha_cumpleaños];date()) y en modulos metes la siguiente función

Public Function CalcularEdad(FechaNacimiento As Date, FECHADIA As Date) As Variant
Dim EDAD As Integer
If IsNull(FechaNacimiento) Then
EDAD = 0
Else
EDAD = DateDiff("yyyy", FechaNacimiento, FECHADIA)
If FECHATOPE < DateSerial(Year(Date), Month(FechaNacimiento), Day(FechaNacimiento)) Then
EDAD = EDAD - 1
End If
CalcularEdad = EDAD
End If
End Function

Luego te creas un informe personalizado de salutación basado en esta consulta
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