（Access ）フォーム上でのチェックボックスでの演算結果をテーブルに登録したい

##課題・解決したいこと
Accessを使用した発注簿を作成しています。
フォーム上のチェックボックスからの演算結果をテーブルに反映させたいです。

###状況
只今、Accessを用いて発注簿を作成しています。
フォームに"見積先1"、"見積先2"のチェックボックスを置いており、
どちらかにチェックをしたらフォームの"購入先"にチェックした見積先を表示するようにはできました。（フォーム上では完結している）

購入先には、
”=IIf([見積先1チェック]=True,[見積先1],IIf([見積先2チェック]=True,[見積先2],null)” という関数を用いてます。
この演算結果をテーブルに反映させたいですが、調べてもわかりません。

Accessには演算結果を蓄積させないことが基本的な考え方ですが、教えてください。

hatena19

2020/11/25 04:06 編集

そのフォームのレコードソースのテーブル（クエリ）のフィールド構成を質問に追記してください。チェックボックスはオプショングループ内に配置してますか。それとも単独に配置してますか。単独だと両方同時にチェックを入れることができますが、その場合はどうするのですか。また、チェックボックスまたはオプショングループは連結ですか、非連結ですか。

行動規範の内容に同意します

回答1件

ベストアンサー

仕様が明確でないので、

フォームのレコードソースに"購入先"、"見積先1"、"見積先2" というフィールドがある。
チェックボックスは単独に配置していて、非連結である。
チェックは片方しか入れることができない。

と勝手に仮定すると、下記のようなVBAコードになります。

vba
1Private Sub 見積先1チェック_Click()
2    If Me.見積先1チェック And Me.見積先2チェック Then
3        Me.見積先2チェック = False
4    End If
5    Call update購入先
6End Sub
7
8Private Sub 見積先2チェック_Click()
9    If Me.見積先1チェック And Me.見積先2チェック Then
10        Me.見積先1チェック = False
11    End If
12    Call update購入先
13End Sub
14
15Public Sub update購入先()
16    If Me.見積先1チェック Then
17        Me.購入先.Value = Me.見積先1.Value
18    ElseIf Me.見積先2チェック Then
19        Me.購入先.Value = Me.見積先2.Value
20    Else
21        Me.購入先.Value = Null
22    End If
23End Sub