Блин, пытался найти красивый пример - завалы мой некому отдать "разборку"
И, чудится, что прямую ссылку на правильное место давал, почему-то в голове, что Санычу - и ссылки не нашел.
Ладно - пусть будет некрасивый, но попробуй нижеуказанное - кажется - специально для тебя
1) заводишь пустой отчет без источников и всякой бяки
2) в области данных втавляешь текстовое поле с именем txt1
3) в модуле отчета напиши так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Compare Database
Option Explicit
Dim arr()
Dim arPos As Long
Private Sub Report_Open(Cancel As Integer)
arr = Array("Раз", "Два", "Три")
End Sub
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Me.txt1 = arr(arpos)
arPos = arPos + 1
If arPos <= UBound(arr) Then
Me.NextRecord = False
End If
End Sub
сетку, думаю, сам добавишь...
