Добрый день,

Подскажите пожалуйста, как сделать источник записей поля со списком фильтруемый для каждой записи отдельно на основе значения другого поля этой же записи. То есть если в текущей записи в одном поле со списком выбран Материал1, то в другом поле со списком будут выбиратся только куски материалла, код которого соответствует коду Материала1.
Пробовал поставить приведенный ниже код на событие вход в поле со списком, но при в ходе в поле со списком - список пустой.

<sub>Private Sub BusinessPcsId_Enter()

Dim dbCurrent As Database
Dim sq As String
Dim iMatId As Integer
Dim rstBPfiltered As Recordset

On Error GoTo lerr
iMatId = Me.MatID

sq = "SELECT [Material].[MaterName] FROM Material INNER JOIN " & _
"BusinessPieces ON Material.IDMater=BusinessPieces.MaterID " & _
"WHERE BusinessPieces.MaterID = " & iMatId & _
" ORDER BY Material.Thikness, Material.MaterName "
Set dbCurrent = CurrentDb
Set rstBPfiltered = dbCurrent.OpenRecordset(sq)
If Not rstBPfiltered.EOF Then
Set Me.BusinessPcsId.Recordset = rstBPfiltered
End If



End Sub</sub>

https://www.sql.ru/forum/1314431/istochnik-zapisey-polya-so-spiskom-filtruemyy-dlya-kazhdoy-zapisi-otdelno