使用事务的 DAO 记录集批量更新（excel）

Question

我正在尝试将使用 VBA 在 Excel 表单中启动的 DAO 事务中的批量记录导出到 Access 表中，但是当我在下面的代码上点击提交时，没有任何内容导出，它必须关闭，但我不明白为什么我的交易是空的？如果我将 ws.committrans 移动到与开始事务相同的按钮单击事件，一切正常，但这是一次更新，我想使用事务一次更新多条记录。

Public db As DAO.Database
Public rs As DAO.Recordset
Public ws As DAO.Workspace

Public Sub CommandButton1_Click()
Dim val1 As String
Dim val2 As String
Dim val3 As String
Dim val4 As String
Dim val5 As String
Dim val6 As String

Set ws = DBEngine(0)
Set db = ws.OpenDatabase("Database8")
Set rs = db.OpenRecordset("test")



val1 = Me.TextBox1.Value
val2 = Me.TextBox2.Value
val3 = Me.TextBox3.Value
val4 = Me.TextBox4.Value
val5 = Me.TextBox5.Value
val6 = Me.TextBox6.Value

ws.BeginTrans

With rs
.AddNew
!col1 = val1
!col2 = val2
!col3 = val3
!col4 = val4
!col5 = val5
!col6 = val6
.Update
End With


Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""




End Sub

Private Sub CommandButton2_Click()

ws.CommitTrans

End Sub

Answer 1

更改了代码以在用户表单激活时启动事务，并在单击提交按钮时完成事务现在像梦一样工作。