datareport, не могу обратиться controls в datareport

[Elina]

Добрый день,

помогите пожалуйста с controls в Datareport

надо связаться с таблицей в которой 3 поля и все значения вывести в Datareport
проблема с RptTextBox как к ним обратиться

создала Datareport
установила 3 RptTextBox которые unbound
теперь при нажатии на кнопку пишу след.код

Код: Выделить всё


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
     .Provider = "Microsoft.Jet.OLEDB.4.0;"
    .ConnectionString = "Data Source=" & App.path & "\bagrut.mdb"
    .Open
End With
   
With rs
       .ActiveConnection = cn
        .CursorType = adOpenDynamic
        .LockType = adLockReadOnly
        .Source = " select * from 16106Without"
        .Open
End With

Set DataReport2.DataSource = rs


Set DataReport2.Sections(1).Controls("Text1").DataField = rs.Fields(0)
Set DataReport2.Sections(1).Controls("Text2").DataField = rs.Fields(1)
Set DataReport2.Sections(1).Controls("Text3").DataField = rs.Fields(2)

DataReport2.Show
Set rs = Nothing
Set cn = Nothing


в строчках где обращаюсь к Controls("Text") получаю ошибку
что надо изменить ,помогите

[Dmitriy2003]

Код: Выделить всё


    Dim sect As Variant
    Dim ctl As Variant
   
    Set DataReport1.DataSource = rs
    '
    For Each sect In DataReport1.Sections
        If sect.Name = "Section1" Then
            For Each ctl In sect.Controls
                Select Case ctl.Name
                    Case "txtID": ctl.DataField = "AU_ID"
                    Case "txtAuthor": ctl.DataField = "Author"
                    Case "txtYearBorn": ctl.DataField = "Year Born"
                End Select
            Next ctl
        End If
    Next sect
    '
    DataReport1.Show vbModal, Me


[Elina]

спасибо -всё работает

ещё вопрос
есть ли возможность пронумеровать строку,страницы

например на каждой странице по 10 записей - можно ли каждую запись/строку пронумеровать ипронумеровать страницы