Свойство Report.RecordSource (Access)

Используйте свойство RecordSource , чтобы указать источник данных для отчета. Для чтения и записи, String.

Синтаксис

expression. RecordSource

Выражение Переменная, представляющая объект Report .

Замечания

Параметр свойства RecordSource может быть именем таблицы, именем запроса или инструкцией SQL. Например, можно использовать следующие параметры.

Пример параметра	Описание
Сотрудники	Имя таблицы, указывающее таблицу Employees в качестве источника данных.
SELECT Orders!OrderDate FROM Orders;	Инструкция SQL, указывающая поле OrderDate в таблице Orders в качестве источника данных. Элемент управления в форме или отчете можно привязать к полю OrderDate в таблице Orders , задав для свойства ControlSource элемента управления значение OrderDate.

Примечание.

Изменение источника записей открытой формы или отчета приводит к автоматическому запросу базовых данных. Если свойство Recordset формы задается во время выполнения, свойство RecordSource формы обновляется.

После создания формы или отчета можно изменить источник данных, изменив свойство RecordSource . Свойство RecordSource также полезно, если вы хотите создать повторно используемые формы или отчет. Например, можно создать отчет, включающий стандартную структуру, а затем скопировать отчет и изменить свойство RecordSource для отображения данных из другой таблицы, запроса или инструкции SQL.

Пример

В следующем примере свойству RecordSource формы присваивается таблица Customers .

Forms!frmCustomers.RecordSource = "Customers"

В следующем примере источник записей формы изменяется на одну запись в таблице Customers в зависимости от названия компании, выбранной в поле со списком cmboCompanyName . Поле со списком заполняется инструкцией SQL, которая возвращает идентификатор клиента (в связанном столбце) и название компании. CustomerID имеет тип данных Text.

Sub cmboCompanyName_AfterUpdate() 
    Dim strNewRecord As String 
    strNewRecord = "SELECT * FROM Customers " _ 
        & " WHERE CustomerID = '" _ 
        & Me!cmboCompanyName.Value & "'" 
    Me.RecordSource = strNewRecord 
End Sub

В следующем примере показано, как использовать инструкцию язык SQL (SQL) для установки источника данных отчета при его открытии.

Private Sub Report_Open(Cancel As Integer)

    On Error GoTo Error_Handler

    Me.Caption = ?My Application?

    DoCmd.OpenForm FormName:=?frmReportSelector_MemberList?, _
    Windowmode:=acDialog

    ?Cancel the report if ?cancel? was selected on the dialog form.

    If Forms!frmReportSelector_MemberList!txtContinue = ?no? Then
        Cancel = True
        GoTo Exit_Procedure
    End If
    Me.RecordSource = ReplaceWhereClause(Me.RecordSource, _
      Forms!frmReportSelector_MemberList!txtWhereClause)

Exit_Procedure:
    Exit Sub

Error_Handler:
    MsgBox Err.Number & ?: ? & Err.Description
    Resume Exit_Procedure
    Resume

End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.