Vba access recordset: Свойство Набор записей(Recordset) — Служба поддержки Майкрософт

Свойство Набор записей(Recordset) — Служба поддержки Майкрософт

Access для Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Еще…Меньше

Применение

Возвращает или задает объект ADO Recordset или DAO Recordset, который представляет собой источник записей для указанной формы, отчета, списка или поля со списком. Значение данного свойства доступно для чтения и записи.

выражение. Recordset

выражение — обязательный аргумент. Выражение, которое возвращает один из объектов в списке «Применяется к».

Замечания

Свойство Recordset (Набор записей) возвращает объект набора записей, который является источником данных, просматриваемых в форме, отчете, списке или поле со списком. Если форма основана, например, на запросе, ссылка на свойство Recordset эквивалентна клонированию объекта Recordset с помощью того же запроса. Однако в отличие от использования свойства RecordsetClone (Копия набора записей), назначение в качестве текущей другой записи в наборе записей, возвращаемом свойством Recordset формы, также задает текущую запись этой формы.

Это свойство можно задать только с помощью кода Visual Basic для приложений (VBA).

Доступность для чтения и записи свойства Recordset определяется типом набора записей (ADO или DAO) и типом данных (Access или SQL), которые содержатся в нем.

В следующем примере выполняется открытие формы, открытие набора записей и привязка формы к набору записей путем указания для свойства Recordset только что созданного объекта Recordset.

Global rstSuppliers As ADODB.RecordsetSub MakeRW()DoCmd.OpenForm «Suppliers»Set rstSuppliers = New ADODB.RecordsetrstSuppliers.CursorLocation = adUseClientrstSuppliers.Open «Select * From Suppliers», _CurrentProject.Connection, adOpenKeyset, adLockOptimisticSet Forms(«Suppliers»).Recordset = rstSuppliersEnd Sub

Свойство Набор записей служит для следующих целей:

• Связывание нескольких форм с общим набором данных. Это позволяет синхронизировать несколько форм. Например:

  
  Set Me.Recordset = Forms!Form1.Recordset

• Использование методов, не имеющих непосредственной поддержки в формах, вместе с объектом Recordset. Например, свойство Recordset можно использовать вместе с методами ADO Find или DAO Find в пользовательском диалоговом окне для поиска записи.

• Добавление в транзакцию (для которой можно выполнить откат) набора изменений, влияющих на несколько форм.

Изменение свойства Recordset также может привести к изменению свойств RecordSource (Источник записей), RecordsetType (Тип набора записей) и RecordLocks (Блокировка записей). Кроме того, некоторые связанные с данными свойства могут быть переопределены, например свойства Filter (Фильтр), FilterOn (Фильтр включен), OrderBy (Порядок сортировки) и OrderByOn (Сортировка включена).

Вызов метода Requery набора записей формы (например, Forms(0).Recordset.Requery) может привести к превращению формы в свободную. Чтобы обновить данные в форме, привязанной к набору записей, следует задать для свойства RecordSource (Источник записей) формы само это свойство (Forms(0).RecordSource = Forms(0).RecordSource).

Если форма привязана к набору записей, при использовании команды «Фильтр по форме» возникает ошибка.

Пример

В следующем примере свойство Recordset используется для создания копии объекта Recordset из текущей формы. Затем в окне отладки печатаются имена полей.

Sub Print_Field_Names()
Dim rst As DAO.Recordset, intI As Integer
Dim fld As Field
Set rst = Me.Recordset
For Each fld in rst.Fields
' Print field names.
Debug.Print fld.Name
Next
End Sub

В следующем примере свойство Recordset и объект Recordset используются для синхронизации набора записей с текущей записью формы. При выборе в поле со списком названия организации для поиска ее записи используется метод FindFirst, вызывающий отображение найденной записи в форме.

Sub SupplierID_AfterUpdate()
Dim rst As DAO.Recordset
Dim strSearchName As String
Set rst = Me.Recordset
strSearchName = CStr(Me!SupplierID)
rst.FindFirst "SupplierID = " & strSearchName
If rst.NoMatch Then
MsgBox "Record not found"
End If
rst.Close
End Sub

Следующий код помогает определить, какой тип набора записей возвращается свойством Recordset при разных условиях.

Sub CheckRSType()
Dim rs as Object
Set rs=Forms(0).Recordset
If TypeOf rs Is DAO.Recordset Then
MsgBox "DAO Recordset"
ElseIf TypeOf rs is ADODB.Recordset Then
MsgBox "ADO Recordset"
End If
End Sub

Свойство Form.Recordset (Access) | Microsoft Learn

Twitter




LinkedIn




Facebook




Адрес электронной почты

• 
  Статья
• 
  04/11/2022
• Чтение занимает 2 мин
• 
  

Возвращает или задает объект ADO Recordset или DAO Recordset , который представляет источник записи для указанного объекта. Объект Read /write.

Синтаксис

выражения. Recordset

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

Свойство Recordset возвращает объект Recordset , который предоставляет данные, просматриваемые в форме, отчете, окне управления списком или комбо-окне управления. Если форма основана на запросе, например, ссылка на свойство Recordset эквивалентна клонированию объекта Recordset с помощью того же запроса. Однако, в отличие от использования свойства RecordsetClone , изменение текущей записи в наборе записей, возвращаемом свойством Recordset формы, также задает текущую запись формы.

Поведение чтения и записи свойства Recordset определяется типом наборов записей (ADO или DAO) и типами данных (Access или SQL), содержащихся в наборе записей, идентифицированных свойством.

В следующем примере открывается форма, открывается набор записей, а затем привязывает форму к набору записей, установив свойство Recordset формы к вновь созданному объекту Recordset .

Global rstSuppliers As ADODB.Recordset 
Sub MakeRW()      
    DoCmd.OpenForm "Suppliers" 
    Set rstSuppliers = New ADODB.Recordset 
    rstSuppliers.CursorLocation = adUseClient 
    rstSuppliers.Open "Select * From Suppliers", _ 
         CurrentProject.Connection, adOpenKeyset, adLockOptimistic      
    Set Forms("Suppliers").Recordset = rstSuppliers 
End Sub

Используйте свойство Recordset для:

• Используйте методы с объектом Recordset , который не поддерживается напрямую в формах. Например, свойство Recordset можно использовать с помощью методов ADO Find или DAO Find в настраиваемом диалоговом окте для поиска записи.

• Оберните транзакцию (которую можно откатать) вокруг набора изменений, влияющих на несколько форм.

  Изменение свойства Recordset формы также может изменить свойства RecordSource, RecordsetType и RecordLocks . Кроме того, некоторые свойства, связанные с данными, могут быть переопределены, например свойства Filter, FilterOn, OrderBy и OrderByOn .

  Вызов метода Requery в наборе записей формы (например, ) может привести к тому, Forms(0).Recordset.Requeryчто форма станет неограничаемой. Чтобы обновить данные в форме, привязанной к набору записей, установите свойство RecordSource формы для себя: Forms(0).RecordSource = Forms(0).RecordSource.

• Привязать несколько форм к общему набору данных. Это позволяет синхронизировать несколько форм. Например:

    Set Me.Recordset = Forms!Form1.Recordset
  

Примечание

Если форма привязана к набору записей, при использовании команды Filter by Form возникает ошибка.

Пример

В следующем примере свойство Recordset создает новую копию объекта Recordset из текущей формы, а затем печатает имена полей в окне Debug.

Sub Print_Field_Names() 
    Dim rst As DAO.Recordset, intI As Integer 
    Dim fld As Field 
 
    Set rst = Me.Recordset 
    For Each fld in rst.Fields 
        ' Print field names. 
        Debug.Print fld.Name 
    Next 
End Sub

В следующем примере свойство Recordset и объект Recordset используются для синхронизации наборов записей с текущей записью формы. Когда имя компании выбирается из комбо-окна, метод FindFirst используется для поиска записи для этой компании, в результате чего форма отображает найденную запись.

Sub SupplierID_AfterUpdate() 
    Dim rst As DAO.Recordset 
    Dim strSearchName As String 
 
    Set rst = Me.Recordset 
    strSearchName = CStr(Me!SupplierID) 
    rst.FindFirst "SupplierID = " & strSearchName 
    If rst.NoMatch Then 
        MsgBox "Record not found" 
    End If 
    rst.Close 
End Sub

Следующий код помогает определить, какой тип наборов записей возвращается свойством Recordset в различных условиях.

Sub CheckRSType() 
    Dim rs as Object 
 
    Set rs=Forms(0).Recordset 
    If TypeOf rs Is DAO.Recordset Then 
        MsgBox "DAO Recordset" 
    ElseIf TypeOf rs is ADODB.Recordset Then 
        MsgBox "ADO Recordset" 
    End If 
End Sub

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

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

Свойство Form.Recordset (Доступ) | Microsoft Узнайте

Редактировать

Твиттер

LinkedIn

Фейсбук

Эл. адрес

• Статья
• 30. 03.2022
• 3 минуты на чтение

Возвращает или задает объект ADO Recordset или DAO Recordset , представляющий источник записи для указанного объекта. Чтение/запись Объект .

Синтаксис

выражение . Набор записей

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

Свойство Recordset возвращает объект Recordset , предоставляющий просматриваемые данные в форме, отчете, элементе управления списком или полем со списком. Например, если форма основана на запросе, ссылка на свойство Recordset эквивалентна клонированию Объект Recordset с использованием того же запроса. Однако, в отличие от использования свойства RecordsetClone , изменение текущей записи в наборе записей, возвращаемом свойством Recordset формы, также устанавливает текущую запись формы.

Поведение чтения/записи свойства Recordset определяется типом набора записей (ADO или DAO) и типом данных (Access или SQL), содержащихся в наборе записей, определяемом свойством.

В следующем примере открывается форма, открывается набор записей, а затем привязывается форма к набору записей путем установки набора записей 9 формы .0020 для вновь созданного объекта Recordset .

 Global rstSuppliers As ADODB.Recordset
Подпрограмма MakeRW()
    DoCmd.OpenForm "Поставщики"
    Установить rstSuppliers = новый ADODB.Recordset
    rstSuppliers.CursorLocation = адусеклиент
    rstSuppliers. Open "Выбрать * из поставщиков", _
         CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Установить формы ("Поставщики").Recordset = rstSuppliers
Конец сабвуфера
 

 Sub Print_Field_Names()
    Dim сначала как DAO. Recordset, intI как целое число
    Dim fld As Field
 
    Установите сначала = Me.Recordset
    Для каждого этажа в rst.Fields
        ' Напечатать имена полей.
        Debug.Print fld.Name
    Следующий
Конец сабвуфера
 

 Sub SupplierID_AfterUpdate()
    Dim сначала как DAO.Recordset
    Dim strSearchName как строка
 
    Установите сначала = Me.Recordset
    strSearchName = CStr(Me!SupplierID)
    rst.FindFirst "SupplierID = " & strSearchName
    Если сначала.НеСоответствие Тогда
        MsgBox "Запись не найдена"
    Конец, если
    рст.Закрыть
Конец сабвуфера
 

 Sub CheckRSType()
    Dim rs как объект
 
    Установить rs=Forms(0).Recordset
    Если TypeOf rs Является DAO.Recordset Тогда
        MsgBox "Набор записей DAO"
    ElseIf TypeOf rs — это ADODB.Recordset Тогда
        MsgBox "Набор записей ADO"
    Конец, если
Конец сабвуфера
 

 Dim сначала как набор записей
Set rst = CurrentDb.OpenRecordset(Name:="Categories", Type:=RecordsetTypeEnum.dbOpenDynaset)
 

 Dim rstCategories As Recordset
Установите rstCategories = CurrentDb. OpenRecordset(Name:="Categories", Type:=RecordsetTypeEnum.dbOpenDynaset)
С rstCategories
    .Добавить новое
    ![Имя категории] = "Лучшее программное обеспечение"
    !Описание = "5 звезд"
    .Обновлять
Конец с 

 С rstCategories
    lng = !CategoryID
    str1 = ![Имя категории]
    str2 = .Поля("Описание")
Конец с 

 С rstCategories
    .Редактировать
    ![Имя категории] = "Лучшее программное обеспечение"
    .Обновлять
Конец с 

 С rstCategories
    .FindFirst "CategoryName = " & "'лучшее программное обеспечение'"
    Если .NoMatch Тогда

    Конец, если
Конец с 

 Делайте, пока не rst.EOF

    rst.MoveNext
Петля 

 рстКатегориес.Удалить