【Access2003】

質問

こななちわ。

フォーム上にて、全レコードを帳票フォームで表示しています。
そこでチェックボックスを設置していますが
全チェックボックスにチェックを入れるにはどうすれば良いのでしょうか？
つまり、ボタンを追加してワンクリックで全レコードを選択したいのです。

宜しくお願い致します。

回答No.1

mitarashi · ベストアンサー

「Table1にYes/No型のフィールドmyCheckがあり、帳票フォームに設けたボタンで、全レコードのmyCheckフィールドをYESにするには」
という意味なら、下記で出来ると思います。「VBAを使わないで」やる方法は分かりかねます。外していたらすみません。
Private Sub コマンド6_Click()
Dim CN As ADODB.Connection
Dim mySQL As String

Set CN = CurrentProject.Connection
mySQL = "UPDATE Table1 SET myCheck=True;"
CN.Execute (mySQL)
Me.Requery
CN.Close
Set CN = Nothing
End Sub

お礼

ご回答ありがとうございます。

ズバリこれでした！！
これがやりたかったのです。
逆に選択解除【False】にすれば全チェックが外れました。

天才様、本当にありがとうございました。
また宜しくお願い致します。