Есть форма для заполнения адреса (Страна, Город ....). После заполнения формы мне нужно отобразить всю информацию в одном поле. Я сделал так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Function ADRESS_1()
Dim r As DAO.Recordset
Dim a As String
Dim ctl As Control
Set r = CurrentDb.OpenRecordset _
( "select * from adress_book where ID_PERS = " & Me!ID_PERS & "")
Me.Controls(0 ) = Me!ADRESS
If Not r.EOF Then
r.MoveFirst
Do Until r.EOF
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If Not IsNull(ctl) Then
a = a & ctl & ", "
End If
End If
Next
r.MoveNext
Loop
Debug.Print a
End Function
Этот код работает, но он составляет строку не в нужной мне последовательности, т.к. у контролов порядковые номера заданы не в нужной мне последовательности. Отсюда и вопрос: как это поменять? Или может есть
более удачные способы решения проблемы?
