CurrentDb.RecordsAffected возвращает 0. Почему?

Question

Если я использую RecordAffected с CurrentDb.Execute, он всегда возвращает 0. Если я сначала создаю экземпляр объекта базы данных, он работает правильно. Зачем?

Как это:

Dim Db As Database 
Set Db = CurrentDb 

Db.Execute "DELETE * FROM [Samples] WHERE Sample=5" 
If Db.RecordsAffected = 0 Then 
    MsgBox "Error" 
End If 

Вместо:

CurrentDb.Execute "DELETE * FROM [Samples] WHERE Sample=5" 
If CurrentDb.RecordsAffected = 0 Then 
    MsgBox "Error" 
End If 

Я использую Access 2007 и Microsoft Office ядро ​​базы данных Access 12.0 объектов библиотеки.

Answer 1

Каждый раз, когда вы используете CurrentDB, это новый экземпляр.

Answer 2

Использование With. Измените свой код на:

Dim Db As Database 
Dim recordAffect = Integer 
Set Db = CurrentDb 
With Db 
    .Execute "DELETE * FROM [Samples] WHERE Sample=5" 
    recordAffect = .RecordsAffected 
    'If Db.RecordsAffected = 0 Then 
    If (recordAffect = 0) Then 
    MsgBox "Error" 
    End If 
End With