チェックボックスについて

質問

こんにちは。
フォームで「個人別状態」が「成約済み」の時に
チェックボックスにチェックがつくようにしたいのですが、
動作しません。
どこが間違っているのでしょうか。。。

Private Sub チェック31_Click()
If Me.個人別状態 = "成約済み" Then
Me.チェック31.Value = False
Else
Me.チェック31.Value = True
End If
End Sub

回答No.3

bonaron · ベストアンサー

チェックボックスの値をテーブルに保存しなくてよいのなら
チェックボックスのコントロールソースを
=[個人別状態] = "成約済み"
でよろしいのでは？

お礼

ありがとうございました。
できました！

回答No.2

GrafZep

>If Me.個人別状態 = "成約済み" Then
>Me.チェック31.Value = False
>Else
>Me.チェック31.Value = True
>End If

これだとMe.個人別状態に"成約済み"と入力してある場合
チェックをはずすとプログラムされてるのでは？
FalseとTrueが逆な気がします。

実際テストはしていないので間違ってたらごめんなさい

回答No.1

noname#140971

Private Sub Form_Current()
　　Me.チェック = CBool(Me.個人別状態 = "成約済み")
End Sub

Private Sub 個人別状態_AfterUpdate()
　　Me.チェック = CBool(Me.個人別状態 = "成約済み")
End Sub

Private Sub チェック_Click()
　　Me.チェック = CBool(Me.個人別状態 = "成約済み")
End Sub

この３つの内、どれかが必要でどれかが不要です。

Form_Current()・・・・・・・・・・・既存レコードの状況をチェックボックスに反映するのに必要です。
個人別状態_AfterUpdate()・・[個人別状態]の変更をチェックボックスに反映するのに必要です。
チェック_Click()・・・・・・・・・・・・一応、動作しますが、上記の２つがあれば不必要です。