Aniversários [Resolvido]

[progster]

Estive a trabalhar com o seguinte código:

Private Sub cmdAniversarios_Click()
Dim rst As Recordset
Dim Nomes As String
Dim Data As Date

Data = DateSerial(Year(Date) - 50, Month(Date), Day(Date))
Set rst = Application.CurrentDb.OpenRecordset( _
"SELECT [Nome] FROM [Funcionarios] WHERE [Data_Nascimento]=#" _
& Format(Data, "mm-dd-yyyy") & "#")
If rst.EOF Then
MsgBox "Hoje Não Há Aniversariantes com 50 Anos!"
Else
S = ""
Do Until rst.EOF
S = S & vbCrLf & rst!Nome
rst.MoveNext
Loop
MsgBox "Hoje Fazem 50 Anos:" & S
End If
End Sub

Depois de o adaptar. Retorna aquilo que preciso. Só que agora o futuro utilizador da BD, pediu-me o seguinte critério:

Para os funcionários que fazem 50 anos quer saber quantos, ou se todos, foram a uma consulta médica obrigatória enviados pelo serviço.

Não sei se me fiz entender. Qualquer coisa é só dizer.

Obrigado pela ajuda prestada, e agradeço qualquer ajuda que ainda me possam prestar.

Cumprimentos.