Microsoft Access 掲示板

Microsoft Access 掲示板

「非連結のチェックボックスでレコードを選択する」について / 1

2 コメント
views
4 フォロー
1
hatena 2020/07/14 (火) 13:06:04

自作のフォームには条件によって抽出できるｃｍｄを配置してあります。

この条件抽出をどのようにしているかによりますが、もし、Filterプロパティに条件を設定して抽出しているのなら、レポートを開くときのWhere条件式引数にFilterの条件を追加すればいいでしょう。

コード例

Private Sub cmdプレビュー_Click()
    Dim strFilter As String
    If Me.txtChkList <> "" Then
        strFilter = "得意先コード In(" & Mid(Me.txtChkList, 2) & ")"
    Else
        MsgBox "選択されたデータはありません。"
        Exit Sub
    End If

    If Me.Filter <> "" And Me.FilterOn Then
        strFilter = strFilter & " AND (" & Me.Filter & ")"
    End If
    DoCmd.OpenReport "R_得意先", acViewPreview, , strFilter
 
End Sub
通報 ...