Private Sub Form_Load()
'F1 чтоб самому не запутаться в Ваших пояснениях!
F1="Select * FROM Reestr WHERE (((Reestr.ID_delo)='" & Forms![Titul]![ID_delo] & "'))"
Me.RecordSource = F1
For Each ctl In Me.Controls
    Select Case ctl.Properties("ControlType")
    Case acComboBox, acListBox
        ctl.RowSource = ctl.Tag
    Case acSubform
        ctl.Form.RecordSource = ctl.Form.Tag
    Case Else
        'do nothing
    End Select
    Next ctl

    Set ctl = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim ctl As Control

    Me.RecordSource = ""

    For Each ctl In Me.Controls
        Select Case ctl.Properties("ControlType")
        Case acComboBox, acListBox
            ctl.RowSource = ""
        Case acSubform
            ctl.Form.RecordSource = ""
        Case Else
            'do nothing
        End Select
    Next ctl

    Set ctl = Nothing
End Sub

Владимир Саныч 
Member 

Откуда: Израиль (причем это  1  человек, а не  2  => прошу на ты)
Сообщений:  10011  	
Интересно. Я этого не знал.

Насчет по-русски - есть Гетц, которого здесь очень почитают. Придут знатоки, расскажут.	
 23  май  04 ,  16 : 02     [ 695180 ]

У меня есть форма, которая брала 85 секунд, чтобы сохранять. После 
применения техники ниже это уменьшило сохраняемое время к точному пара 
секунд. Это также уменьшило мою уплотненную базу данных размера из 5Meg 
до 4Meg после применения этой техники.

Это - конец: Загрузите форму, subform, combobox и listbox рекордные 
источники во времени прогона. Это это. Вы достигнете драматического 
улучшения исполнения и сокращенной базы данных размера.

Results	          Before	              After	
Form Open Time	   2-35sec	              1-2sec	
Form Save Time	   85sec	              1-2sec	
FE Compacted Siz    5092Kb	              4040Kb

For Each ctl In Me.Controls

For Each ctl In Me.Controls
    Select Case ctl.Properties("ControlType")

Private Sub Form_Unload(Cancel As Integer)