ВС ты(ВЫ?) сказали интересно.
По тверждению сайта:
http://www.granite.ab.ca/access/performanceforms.htm
в данном формате скорость работы приложения увеличивается многократно
(2-35 против 1-2)!
Можно развить тему, т.к. разделил интерфейс с таблицами, и скорость работы,
даже на сервере упала до мининмума.
Вот что получилось:
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
|
|
Скопировал с сайта дословно, данный код действительно позволяет увеличить
скорость работы по сети? или как? Хотя бы теоретически?
И самое главное: кроме F1=......... осознанного понимания кода нет.
Если там ошибочка, будьте любезны, подправьте!
Спасибо.
Ok.madg