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

参照以外の項目に値を代入する[Access]

コンボボックス以外のフィールドに一覧の関連フィールドの値をを自動展開することができます。
コンボボックスフィールドのプロパティの［更新後処理］イベントに以下のイベントプロシージャを追加してください。
Private Sub ＸＸＸＡ_AfterUpdate()
    With ＸＸＸＡ
        Me![ＸＸＸＢ] = .Column(2)
        Me![ＸＸＸＣ] = .Column(3)
        Me![ＸＸＸＤ] = .Column(4)
    End With
End Sub
（”ＸＸＸ？”はフィールド名）
［参照他フィールド展開］
イベントプロシージャ内で命令、関数等の意味がわからない場合、わからない単語にカーソルをおき［F1］キーを押してください。その単語のヘルプ画面が表れます。

＜「明細」フォームの例＞
  1. ［商品番号1］の［更新後処理］イベントプロシージャの内容
    Private Sub 商品番号1_AfterUpdate()
    With 商品番号1
        Me![品名1] = .Column(2)
        Me![梱包単位1] = .Column(3)
        Me![単価1] = .Column(4)
    End With
End Sub
＜参照＞
  1. Accessの［ヘルプ］−［トピックの検索］
    ［キーワード］−”Column プロパティ”