Access2016/windows10を使用しております。
テーブル(Tbl_data_Report)をレコードソースとした帳票型の検索フォームがあります。
検索フォームのフォームヘッダーにはいくつかのテキストボックスとコンボボックスを配置し
そこに入力したキーワードでフィルターをかけ、データ抽出を行っています。
この抽出は下記コード(btn_絞込_Click)でできています。
更に、この検索フォームのフォームヘッダーにトグルボタン「Report_id」「訪問年」「所在国」を配置し、トグルボタンのON/OFFで上記で抽出したデータの並べ替え(昇順/降順)をしたいのですが、並べ替えを実施すると先の抽出が戻ってしまい、全データで並び変わってしまいます。
抽出をかけない状態では、並べ替えはできています。
抽出結果を維持したまま、並べ替えをする方法をご教示願います。
なお、あくまでも抽出結果を見てから並べ替えをしたいので、抽出時に並べ替えるのはなしとしてください。
’***複数条件での抽出/絞り込***
Private Sub btn_絞込_Click()
Dim dbsMy As DAO.Database
Dim rsMy As DAO.Recordset
Dim strFilter As String
Set dbsMy = CurrentDb
Set rsMy = dbsMy.OpenRecordset("Tbl_Data_Report", dbOpenDynaset)
strFilter = "Report_id >= 1"
If Not IsNull(Me.Cbo_訪問年) Then
strFilter = "Visit_Year ='" & Me.Cbo_訪問年 & "'"
End If
If Not IsNull(Me.Cbo_所在国) Then
strFilter = strFilter & " AND Customer_Country Like '*" & Me.Cbo_所在国 & "*'"
End If
rsMy.Filter = strFilter
Set rsMy = rsMy.OpenRecordset
Set Me.Recordset = rsMy
Me.Requery
Set rsMy = Nothing
Set dbsMy = Nothing
End Sub
’***トグルボタンによる並べ替え***
Private Sub btn_Report_id_Click()
If Me.btn_Report_id.Value = True Then
Me.OrderBy = "Report_id desc"
Else
Me.OrderBy = "report_id asc"
End If
Me.OrderByOn = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
Excel 文字列から6桁の数値の抽出
-
「パラメータが少なすぎます。3...
-
PDFファイルから特定の文字を検...
-
ACCESSのクエリー抽出条件にIIF...
-
AccessのWHERE句において、変数...
-
Access チェックボックスを利用...
-
エクセルで色の付いたセルを抽...
-
アクセス 同じフィールド(テキ...
-
未審査請求包袋抽出表作成とは...
-
エクセル関数で住所から丁目番...
-
PDFファイル/抽出許可され...
-
【AccessVBA】レコードセットOp...
-
Access の SQL で、Aがなかっ...
-
コンボボックス全ての値を取得...
-
エクセルで年末年始を必ず休み...
-
ACCESS クエリ 条件以外のレ...
-
Accessの選択クエリの抽出条件...
-
アクセスのテキストボックスでO...
-
Accessで複数のクエリの抽出条件
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
PDFファイル/抽出許可され...
-
「パラメータが少なすぎます。3...
-
PDFファイルから特定の文字を検...
-
X-Ripperというフリーウェアに...
-
Excel 文字列から6桁の数値の抽出
-
エクセルで色の付いたセルを抽...
-
AccessのWHERE句において、変数...
-
未審査請求包袋抽出表作成とは...
-
ACCESSのクエリー抽出条件にIIF...
-
【AccessVBA】レコードセットOp...
-
ACCESS クエリ 条件以外のレ...
-
エクセル関数で住所から丁目番...
-
Accessの選択クエリの抽出条件...
-
Access チェックボックスを利用...
-
文章から12桁数値(完全一致...
-
アクセス 同じフィールド(テキ...
-
コンボボックス全ての値を取得...
-
エクセル VBA メール本文に指定...
-
access クエリ yes/no型のクエ...
おすすめ情報