양식과 하위 양식의 데이터를 ms 액세스의 표로 복사하는 방법은 무엇입니까?

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을 포함해야합니다. 새 코드는 다음과 같습니다.

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