【AccessVBA】サブフォームにチェックボックス追加・全チェック・全チェック解除

未分類

サブフォームにチェックボックス追加

1) リボンの「作成」-「空白のフォーム」をクリックし、新規フォームを作成します。

2) フォームにレコードソースを設定します。

3)フォームに使用するコントロールを配置します。
必要なテキストボックス、チェックボックス(「選択」フィールドは、「yes/noのデータ型を選択」)を配置。

4)フォームは「既定のビュー」を「データシート」にする

参照:https://www.feedsoft.net/access/guide-form/guidef30.html

フォームのデータシート表示で列幅を調整する方法

■VBAで設定
例1:「商品名」の列幅を10論理cmに設定する
Private Sub cmd実行_Click()
  Me!frm売上明細_sub!商品名.ColumnWidth = 10 * 567
End Sub

参照:https://blog.goo.ne.jp/devken–3012/e/015089010aa68889bac3db5553a33afb

Yes/No型のデータ(チェックボックス)に、複数ではなく1つのレコードだけを選択できるようにする方法 (明細フォームのクラスにコーディング)

チェックボックスのクリック時イベントにVBAで

Private Sub chk選択_Click()
        If Me!選択 Then
         CurrentDb.Execute “UPDATE M_DB接続情報 SET 選択 = False;”
      Me.Refresh
    End If
End Sub

参照:https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13116522668

明細フォームのチェックボックスにチェックが入って、どのレコードが選択されたか、行数を親フォームから取得する

Me!明細フォーム.Form.CurrentRecord

タイトルとURLをコピーしました