如何在ms access中将数据从表单+子表单复制到表？

Question

我创建了一个附加了子表单的表单。 我有一个运行查询以删除记录的按钮，但首先我想复制数据，包括所有子表单信息（如果可用于表）。 我使用了以下代码，但没有任何反应。 请！ 我错过了什么？

Private Sub Command63_Click() 
Dim db As Database, delfile As Recordset, Criteria As String 
Set db = CurrentDb 
Set delfile = db.OpenRecordset("DelFile", DB_OPEN_DYNASET) 

'add data to deleted taxpayer file table 
With delfile 
    .AddNew 
    !DeletedBy = (Forms!MainMenu!username) 
    !Branch = Me.Branch 
    !TaxType = Me.TaxType 
    !Volume = Me.Volume 
    !Keyedby = Me.Keyedby 
    !DateKeyed = Me.DateKeyed 
    !CreatedAt = Me.CreatedAt 
    !Comment = Me.Comment 
End With 
delfile.Close 
db.Close 
End Sub

Answer 1

设置所有字段值后，您需要包含一个.update以使更改.update 。 您的新代码将如下所示。

Private Sub Command63_Click() 
Dim db As Database, delfile As Recordset, Criteria As String 
Set db = CurrentDb 
Set delfile = db.OpenRecordset("DelFile", DB_OPEN_DYNASET)

'add data to deleted taxpayer file table 
With delfile 
    .AddNew 
    !DeletedBy = (Forms!MainMenu!username) 
    !Branch = Me.Branch 
    !TaxType = Me.TaxType 
    !Volume = Me.Volume 
    !Keyedby = Me.Keyedby 
    !DateKeyed = Me.DateKeyed 
    !CreatedAt = Me.CreatedAt 
    !Comment = Me.Comment
    .Update
End With 
delfile.Close 
db.Close 
End Sub