ACCESSのサブフォームコピーについて
ACCESSのサブフォームコピーについて
お世話になります。色々検索してたのですがなかなか解決できず、教えて下さい。
下記のようなフォームがあります。
メインフォームにボタンを設置し、メインフォームとサブフォームを同時にコピーしたいです。
【メインフォーム】
ID(オートナンバー)
登録名
住所
電話番号
など
【サブフォーム】
SubID(オートナンバー)
ID(メインフォームと連結)
ライセンス数
開始日
など
メインフォームの「内容のコピーを作成」ボタンのクリック時の[イベント プロシージャ]に下記が記載してあります。
---
Private Sub 内容のコピーを作成_Click()
On Error GoTo Err_内容のコピーを作成_Click
Select Case MsgBox(srchXls & "◆内容のコピーを作成しますか?◆", vbOKCancel)
Case vbOK
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
MsgBox (srchXls & Chr(13) & Chr(10) & "◆コピーを作成しました◆")
Err_内容のコピーを作成_Click:
Case Else
Exit Sub
End Select
End Sub
---
これではメインフォームのコピーしか出来ません。
サブフォームも一緒にコピーしたいのですが、どういった方法があるでしょうか。
宜しくお願いいたします。
お礼
できました。ありがとうございました。またご指導をお願いいたします。