Hola Aquí estoy de nuevo, lo que te puedo decir es que lo quiero mostrar en un listbox cuando entren a la base de datos para eso hago con el ejecutable de dicho formulario. Aquí pongo el Código Y TE MANDO EL ENLACE DE LA BASE DE DATOS. Muchas Gracias te lo agradezco
ENLACE: https://www.dropbox.com/s/z0ax8ym1npvy2lq/Recordatorio%20_Cumplea%C3%B1os.accdb?dl=0
del modulo
Public Function Cumpleaños()
Dim RsCumple As Recordset
Dim Consulta, Nombre As String
Dim FDiaNace, FMesNace, Dia, Mes, PCumple, CumpleHoy As Integer
Dim Hoy As Date
Set RsCumple = CurrentDb.OpenRecordset("SELECT Personal2017.[Apellido_y_Nombre], Personal2017.año,Personal2017.edad FROM Personal2017;")
Do Until RsCumple.EOF
Nombre = RsCumple![Apellido_y_Nombre]
' Extraigo de entre dos fecha los días y meses para después concatenarlos por separados y luego los comparo
Consulta = RsCumple!Año ' de la base de datos
FDiaNace = DatePart("d", Consulta, Hoy)
FMesNace = DatePart("m", Consulta, Hoy)
PCumple = FDiaNace & FMesNace
Año = Consulta
Hoy = Now ' fecha actual
Dia = DatePart("D", Hoy)
Mes = DatePart("M", Hoy)
CumpleHoy = Dia & Mes
' Cuando ya estan concatenados los comparo ente si, y si son iguales
If CumpleHoy = PCumple Then ' si se cumple es el CUMPLEAÑO
Form_Cumpleaños.Lista6.AddItem RsCumple![Apellido_y_Nombre] & ";" & RsCumple!Año & ";" & RsCumple!edad
If Form_Cumpleaños.Lista6.ListCount = 0 Then
Form_Cumpleaños.Texto41 = "0"
Else
Form_Cumpleaños.Texto41 = Form_Cumpleaños.Lista6.ListCount - 1
End If
End If
RsCumple.MoveNext
Loop
Form_Cumpleaños.Lista6.Requery
RsCumple.Close
Set RsCumple = Nothing
End Function