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

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

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

No.3 ベストアンサー 回答者： bonaron 回答日時： 2007/02/23 16:58

チェックボックスの値をテーブルに保存しなくてよいのなら

チェックボックスのコントロールソースを
=[個人別状態] = "成約済み"
でよろしいのでは？

この回答へのお礼

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

お礼日時：2007/02/23 18:03

No.2 回答者： GrafZep 回答日時： 2007/02/23 16:01

>If Me.個人別状態 = "成約済み" Then

>Me.チェック31.Value = False
>Else
>Me.チェック31.Value = True
>End If

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

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

No.1 回答者： noname#140971 回答日時： 2007/02/23 15:56

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()・・・・・・・・・・・・一応、動作しますが、上記の２つがあれば不必要です。