Написал такую форму, интересно мнение - не изврат ли это?
Применяется для того, чтоб формы разные не делать, а показывать в одной.
Сама процедура загрузки проста -
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Sub loadDataToSub(mainForm As Object, ControlName As String)
Dim frm As Form
Dim rst As DAO.Recordset
Dim lngMaxRstIndex As Long, i As Long
Dim strControlName As String
Dim strFormName
Dim lngCount As Long
Set frm = mainForm.Controls(ControlName).Form
Set rst = frm.RecordsetClone
lngCount = rst.Fields.Count
lngMaxRstIndex = lngCount - 1
strControlName = ""
For i = 0 To (lngMaxRstIndex)
strControlName = "ctl" & i
frm.Controls(strControlName).ControlSource = rst(i).Name
Next
rst.Close
End Sub
