ник: Cerber
Помогите пожалуйста!
имеется запрос
SELECT Veteran_Un.Surname AS Фамилия, Veteran_Un.Name_s AS Имя, Veteran_Un.Patronumic_Name AS Отчество, Veteran_Un.Date_Birthday AS [День рождения]
FROM Veteran_Un
WHERE ((Veteran_Un.Surname) Like '*' & [Введите фамилию] & '*');
Необходимо запускать этот запрос из VBA
по типу
Dim qd As DAO.QueryDef
Set qd = CurrentDb.CreateQueryDef("")
qd.SQL = "SELECT DISTINCT Veteran.Area FROM Veteran;"
qd.OpenRecordset
Set qd = Nothing
Благодарю всех за помощь