アクセス２００３でフォーム上に個人データ一覧があり、トグルボタンにチェ

アクセス２００３でフォーム上に個人データ一覧があり、トグルボタンにチェックをしたものをワンクリックで全てチェックをなしにしたいです。どのようにしたらよいでしょうか。よろしくお願いいたします。

No.3 ベストアンサー 回答者： ShowMeHow 回答日時： 2010/01/28 18:22

DoCmd.OpenQuery stDocName, acNormal, acEdit

のあとに
me.refresh
とすることで更新状況が表示されませんか？

この回答へのお礼

ありがとうございました！！うまくいきました！！！本当に感謝します！！！これからもよろしくお願い致します。

お礼日時：2010/01/29 12:03

No.2 回答者： ShowMeHow 回答日時： 2010/01/27 16:10

更新クエリを作って、実行するのが良いと思います。

この回答への補足

ありがとうございます。更新クエリを作成してみたのですが、うまくいきません。どこがまちがっているのでしょうか。
Private Sub 更新クエリ_Click()
On Error GoTo Err_更新クエリ_Click

Dim stDocName As String

stDocName = ChrW(26356) & ChrW(26032) & ChrW(12463) & ChrW(12456) & ChrW(12522)
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_更新クエリ_Click:
Exit Sub

Err_更新クエリ_Click:
MsgBox Err.Description
Resume Exit_更新クエリ_Click

End Sub

上記の更新クエリボタンは同じフォーム上にあるのですが、一度フォームをとじると更新され、クリックしただけですと表面上は変化がありません。別に登録ボタンもあるのですが、続けて登録ボタンをクリックしても、最後のレコード（カーソルがあるレコード）のみクリアになりません。どこがおかしいのでしょうか。申し訳ありません。

補足日時：2010/01/28 10:15

No.1 回答者： ShowMeHow 回答日時： 2010/01/27 15:37

「ワンクリック」のイベントにＶＢＡで

チェック1.Value = 0
チェック2.Value = 0
チェック3.Value = 0
....
とするだけですが、
レコードの更新をチェックをはずした時点で行いたいなら、最後に
me.refresh
とする必要があります。

この回答への補足

早々のご回答ありがとうございます。上記でチェックは外れたのですが、１つのレコードずつしか外れません。フォーム上のレコード全てを一度に外すことはできるのでしょうか。すみません。

補足日時：2010/01/27 15:51