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

予約明細で基本部の内容を複写する[Access97]

［予約明細］業務の顧客番号を更新するとき、顧客（基本部）の内容を複写することができます。
Soraサンプルシステムの［予約明細］業務を参照してください。

＜手順＞
フォームの顧客番号コントロールの［更新後処理］イベントに以下の内容を追加してください。
Soraサンプルシステムの［予約明細サブ］フォームを参照してください。
Private Sub DNPKKKNO_AfterUpdate()
    '顧客番号を更新すると［顧客サブ］テーブルの内容が設定される。
    Dim dbsDB As Database
    Set dbsDB = CurrentDb
    Dim rstKKK As Recordset
    Set rstKKK = dbsDB.OpenRecordset("顧客サブ")
    rstKKK.index = "PrimaryKey"   '主キー
    rstKKK.LockEdits = True     'LAN
    rstKKK.Seek "=", Me![DNPKKKNO]
    If Not rstKKK.NoMatch Then
        '内容設定
        Me![備考] = rstKKK![氏名1]
    End If
    rstKKK.Close
End Sub