access 変更履歴を残す

http://questionbox.jp.msn.com/qa164850.html
こちらのページを参考にコードを組んだ。

Sub History_Tantou()
Dim Ctr As Control Dim strSQL As String
For Each Ctr In Me.Controls If Ctr.ControlType = 109 Then If Nz(Ctr.OldValue, "") <> Nz(Ctr.Value, "") Then strSQL = "insert into T_履歴 values('F_担当者内訳'," & Me.担当者No & "," & Me.暦年 & _ ",'" & Me.顧客番号 & "','" & Ctr.ControlSource & "','" & Ctr.OldValue & "',#" & Now() & "#)" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If End If Next CtrEnd Sub

一見うまくいったように見えたのだが一部のフィールドではうまくいかなかった。
エラーメッセージは
'この操作は、このタイプのオブジェクトには実行できません'
2つのテーブルを組み合わせたクエリをレコードソースにしているのだが、
一対多で結んでいるのが原因の様子。
"一"のほうのフィールドではうまいくが、"多"のほうでは更新できない。
今の所打開策無し。