如何在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