メインフォームとサブフォームのレコードを複製
(昨日同じ質問をあげましたがカテゴリが間違っていたのでこちらにあげなおしました)
メインフォーム「MAIN」にサブフォーム「REN」を埋め込んでいます。
【メインフォームMAIN】
テーブル名:JIK
ID:事件ID
【サブフォームREN】
テーブル名:REN
ID:連絡先ID(・事件ID)
ボタンをクリックすると、メインフォームで表示させているレコードを複製させたいです。
以下を参考に、そのとおり(のつもり)に作ってみたのですが
(メインフォーム「MAIN」に「txtCopy事件ID」という名前のテキストボックスも作成しました)
「コマンドまたはアクション”追加貼り付け”は無効です。」
とエラーメッセージが出てしまいます。
どのように修正すればよいでしょうか?
http://www.accessclub.jp/bbs3/0103/superbeg36719 …
ちなみに追加クエリだけを実行すると
表示させているメインフォーム「MAIN」のレコードに、
サブフォーム「REN」のレコードが追加され、
サブフォーム「REN」のレコードが2倍になりました。
以下追加クエリとコードです。
【追加クエリ】
INSERT INTO REN ( 事件ID, 氏名, フリガナ, ・・・ )
SELECT [Forms]![MAIN]![事件ID] AS 式1, REN.氏名, REN.[フリガナ], REN.報告書, ・・・
FROM REN
WHERE (((REN.事件ID)=[Forms]![MAIN]![txtCopy事件ID]));
【VBA】
Private Sub 明細コピー_Click()
On Error GoTo Err_明細コピー_Click
Me!txtCopy事件ID = Me!事件ID
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Dim stDocName As String
DoCmd.SetWarnings False ' システムメッセージ非表示
stDocName = "追加クエリ"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True ' システムメッセージ表示
' サブフォーム再クエリ
Me!REN.Requery
Exit_明細コピー_Click:
Exit Sub
Err_明細コピー_Click:
MsgBox Err.Description
Resume Exit_明細コピー_Click
End Sub
よろしくお願いいたします!
補足
RunCommandでもだめでした。 知らないうちに値が変わっていて、知らないうちに 保存されているのがイヤなので確認できないかな?と。 今まではVBで非連結で行っていたんですが、今回は Accessのみで連結になって、そこら当たりの動作が 今ひとつわかりません。 よろしくお願いします。