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

質問

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

回答No.3

ShowMeHow · ベストアンサー

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

お礼

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

回答No.2

ShowMeHow

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

補足

ありがとうございます。更新クエリを作成してみたのですが、うまくいきません。どこがまちがっているのでしょうか。
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

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

回答No.1

ShowMeHow

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

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

補足

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