ник: час
Dim dbs As DAO.Database 'Объявляем базу данных
Dim rst As DAO.Recordset 'Объявляем рекордсет
Dim Familiya as string
Set dbs = CurrentDb 'Открываем базу
Set rst = dbs.OpenRecordset("Запрос")
Familiya =""
With rst
'MoveFirst 'Перемещаемся к первой записи
'MoveLast 'Перемещаемся к ппоследней записи
'MoveNext 'Перемещаемся к следующей записи
Do While Not .EOF 'Выполнять пока есть записи
if Familiya ="" then
if rst !галочка = -1 then Familiya = rst!Familii
else
if rst !галочка = -1 then Familiya =Familiya & "," & rst!Familii
end if
Loop
End With
'Закрываем рекордсет и базу данных
rst.Close
Set rst= Nothing'Очистка памяти
dbs.Close
Set dbs = Nothing 'Очистка памяти