Описание
Возвращает число записей, которые были использованы при последнем вызове метода Execute.

Значение
Возвращаемое значение имеет тип Long и лежит в интервале от 0 до числа записей, которые были использованы при последнем вызове метода Execute для объекта Database или QueryDef.

Замечания
При вызове метода Execute для запуска запроса на изменение из объекта QueryDef, значением свойства RecordsAffected становится число записей, которые были удалены, обновлены или вставлены.
В рабочей области ODBCDirect свойство RecordsAffected не возвращает разумное значение в запросе SQL на удаление таблицы (DROP TABLE).

Пример
Следующая программа использует свойство RecordsAffected с запросами на изменение, выполняемыми из объектов Database и QueryDef. Для выполнения данной процедуры требуется функция RecordsAffectedOutput.

Sub RecordsAffectedX()

	Dim dbsNorthwind As Database
	Dim qdfTemp As QueryDef
	Dim strSQLChange As String
	Dim strSQLRestore As String

	Set dbsNorthwind = OpenDatabase("Борей.mdb")

	With dbsNorthwind
		' Печатает отчет о содержимом таблицы 'Сотрудники'. 
		Debug.Print "Число записей в таблице 'Сотрудники': " & 	.TableDefs!Сотрудники.RecordCount
		RecordsAffectedOutput dbsNorthwind
		' Определяет и выполняет запрос на изменение.
		strSQLChange = "UPDATE Сотрудники " & 	"SET Страна = 'Россия' " &  "WHERE Страна = 'РФ'"
		.Execute strSQLChange
		' Печатает отчет о содержимом таблицы 'Сотрудники'. 
		Debug.Print "Свойство RecordsAffected после выполнения " & "запроса из объекта Database: " & .RecordsAffected
		RecordsAffectedOutput dbsNorthwind
		' Определяет и выполняет второй запрос на изменение.
		strSQLRestore = "UPDATE Сотрудники " & SET Страна = 'Россия' " &  "WHERE Страна = 'РФ' "
		Set qdfTemp = .CreateQueryDef("", strSQLRestore)
		qdfTemp.Execute
		' Печатает отчет о содержимом таблицы 'Сотрудники'.
		Debug.Print "Свойство RecordsAffected после выполнения " & "запроса из объекта QueryDef: " & qdfTemp.RecordsAffected
		RecordsAffectedOutput dbsNorthwind
		.Close
	End With
End Sub

Function RecordsAffectedOutput(dbsNorthwind As Database)

Dim rstEmployees As Recordset

	' Открывает объект Recordset для таблицы 'Сотрудники'.
	Set rstEmployees = dbsNorthwind.OpenRecordset("Сотрудники")
	With rstEmployees
		' Цикл по всем компонентам объекта Recordset.
		.MoveFirst
		Do While Not .EOF
			Debug.Print "    " & !Фамилия & ", " & !Страна
			.MoveNext
		Loop
		.Close
	End With
End Function