CurrentDb.RecordsAffected返回0.为什么？

Question

如果我使用带有CurrentDb.Execute的RecordsAffected，它总是返回0.如果我首先创建一个Database对象的实例，它可以正常工作。 为什么？

像这样：

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 12.0 Access数据库引擎对象库。

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