24. Если у вас в форме используется несколько таблиц, то связать их можно с помощью этого программного кода
Public Sub Form_Current()
On Error GoTo 999
With Me.Parent.Пример_24_2.Form
.Filter = "Код=" Me.Код
.FilterOn = True
End With
Exit Sub
999:
Err.Clear
End Sub