SELECT Заказы.ФИО, Заказы.[Дата рождения], IIf((Month(Now())>Month([Дата Рождения]) Or 
(Month(Now())=Month([Дата Рождения])) And (Day(Now())>Day([Дата Рождения]) Or 
Day(Now())=Day([Дата Рождения]))),Year(Now())-Year([Дата Рождения]),Year(Now())-Year([Дата Рождения])-1) AS Возраст
FROM Заказы
WHERE (((Format([Дата рождения],"mmdd"))=Format(Date(),"mmdd")));

SELECT Заказы.ФИО, Заказы.[Дата рождения], Year(Date())-Year([Дата Рождения]) AS Возраст
FROM Заказы
WHERE (((Format([Дата рождения],"mmdd"))=Format(Date(),"mmdd")));

...
    Dim stDocName As String
    Dim stDocName2 As String
    Dim stLinkCriteria As String

    stDocName = "fAnalitika"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
    'Запуск запроса/сообщения, если сегодня есть дни рождения
    stDocName2 = "зДеньРожденияСегодня"           'запрос
    If DCount("[ФИО]", stDocName2) > 0 Then
            'DoCmd.OpenQuery stDocName2, acNormal, acEdit  'выполнить запрос и показать
            MsgBox "Сегодня у нас день рождения!", 48, "Внимание!"
    End If
...