Microsoft Access 掲示板

チェックボックス全部操作 / 1

5 コメント
views
4 フォロー
1
hatena 2020/07/29 (水) 11:29:29 修正

帳票フォームで表示されている全レコードのチェックボックスのチェックをON/OFFする(=連結フィールドのValueを更新にする。)ということでしょうか。
それとも単票フォームあるいは非連結フォームに複数のチェックボックスか配置されていて、そのすべてのチェックボックスのチェックを外すということでしょうか。

とりあえず前者の方だと仮定して回答します。

フォームのレコードソースのテーブル名を「Tbl1」、
チェックボックスのコントロールソースのフィールド名を「Fld1」と仮定します。

Private Sub btn全チェック_Click()
    Dim rs As DAO.Recordset
    Set rs = Me.Recordset.Clone
    rs.MoveFirst
    Do Until rs.EOF
        rs.Edit
        rs!Fld1 = True
        rs.Update
        rs.MoveNext
    Loop
    Me.Recalc
End Sub

Private Sub btn全チェック外す_Click()
    Dim rs As DAO.Recordset
    Set rs = Me.Recordset.Clone
    rs.MoveFirst
    Do Until rs.EOF
        rs.Edit
        rs!Fld1 = False
        rs.Update
        rs.MoveNext
    Loop
    Me.Recalc
End Sub

あるいは、

Private Sub btn全チェック_Click()
    CurrentDb.Execute "UPDATE Tbl1 SET Tbl1.Fld1 = True;"
    Me.Requery
End Sub

Private Sub btn全チェック外す_Click()
    CurrentDb.Execute "UPDATE Tbl1 SET Tbl1.Fld1 = False;"
    Me.Requery
End Sub

後者の場合は処理後に先頭レコードへ移動します。

通報 ...