４章 カスタマイズ ／４-3フォーム

基本部の内容を明細部に複写する[Access]

リンクフォームの明細部のレコードを新規に作成するとき、基本部の内容を複写することができます。
Soraサンプルシステムの［予約印刷］業務を参照してください。

＜手順＞
明細部のフォームの［挿入前処理］イベントに以下の内容を追加してください。
Private Sub Form_BeforeInsert(Cancel As Integer)
    '新規作成時に基本部の内容を複写する
    If apIsFrmOpen("基本部顧客サブ") Then   'フォームが開いている
        '内容を複写
        Me![備考] = Forms("基本部顧客サブ")![氏名1]
    End If
    
    apFrmBeforeInsert Me
    apNextCount Me, "DNPNO", 1 '自動採番
End Sub