ник: Lipatov
Dim Dbs As DAO.Database
Dim RstОстатки As DAO.Recordset
Dim StrSQL As String
Dim Kol As Integer
Set Dbs = CurrentDb()
Set Kol = Forms![Список ведомостей списания]![Ведомости на списание подчиненная форма].Form![Кол]
StrSQL = "SELECT Остатки.* FROM Остатки " & _
"WHERE ((Остатки.Имя_Мат) = " & Kol & ");" ' Запрос для числового значения
StrSQL = "SELECT Остатки.* FROM Остатки " & _
"WHERE ((Остатки.Имя_Мат) = '" & Kol & "');" ' Запрос для текстового значения
Set RstОстатки = Dbs.OpenRecordset(StrSQL)
Данный код универсален и для встроенных таблиц