MyTetra Share
Делитесь знаниями!
Функция запуска запроса возвращающая кол-во обработанных записей
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 03 Запросы
Запись: xintrea/mytetra_db_adgaver_new/master/base/15319716068xogb9n649/text.html на raw.githubusercontent.com

Функция запуска запроса возвращающая кол-во обработанных записей

Public Function esQueryUPDRecords(qName As String) As Long

'es 30.11.03

'Выполняет указанный в аргументе запрос и возвращает кол-во обработанных записей

'--------------------------------------------------------------------

Dim qd As QueryDef

On Error GoTo RunQueryErr

Set qd = CurrentDb.QueryDefs(qName)

qd.Execute

esQueryUPDRecords = qd.RecordsAffected

RunQueryBye:

Set qd = Nothing

Exit Function

RunQueryErr:

esQueryUPDRecords = 0

Err.Clear

End Function




 
MyTetra Share v.0.59
Яндекс индекс цитирования