オプショングループとオプションボタンを使用し文字データを保存する方法 - Access

オプショングループ内にオプションボタンを配置し使用する場合、戻り値は数値になります。

選択結果を保存したいフィールドがテキスト型の場合、直接オプショングループに接続することができません。
そこでVBAを作成し文字データを保存するようにします。
オプショングループについては「オプショングループの作成方法」を参照してください。
オプションボタンについては「オプションボタンの作成方法」を参照してください。

VBAでオプショングループの選択結果を保存する

オプショングループを選択した状態で、プロパティシートの［更新後処理］～［イベントプロシージャ］を選択し、右の［…］ボタンをクリックします。


更新後処理イベントの、AfterUpdate()が表示されるので、テキストボックスに選択結果を代入するVBAを入力します。


・オプショングループの選択結果を、Switchでそれぞれ処理しています。
・テキストボックスには直接文字データを代入することもできますが、ここではオプションボタンのラベルの標題を代入しています。これにより表示されているデータが変更されても、そのデータが代入されるので間違いや手間が省けます。

Private Sub フレーム13_AfterUpdate()
    Select Case Me!フレーム13.Value
        Case 1: Me!テキスト11.Value = Me!ラベル17.Caption 'AP-001
        Case 2: Me!テキスト11.Value = Me!ラベル19.Caption 'RS-225
        Case 3: Me!テキスト11.Value = Me!ラベル21.Caption 'YU-301
        Case 4: Me!テキスト11.Value = Me!ラベル23.Caption 'OP-458
    End Select
End Sub

実行画面です。
型番を選択すると、選択した文字データがテキストボックスに表示されています。
テキストボックスはコントロールソースで型番フィールドと接続されているので、自動的にテーブルに保存されます。


いくつか新規レコードで選択した後、テーブルの状態を確認したところ、間違いなく保存されていました。


今回レコードに移動させたところ、オプショングループは前のレコードで選択した位置を記憶していました。
それはそれでいいのですが、今回はレコード移動の時点で何も選択されていない状態にします。

フォームのプロパティシートの［レコード移動時］～［イベントプロシージャ］を選択し、右の［…］ボタンをクリックします。


オプショングループが何も選択されていない状態にするVBAです。


Private Sub Form_Current()
    Me!フレーム13.Value = 0
End Sub