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
|
|