Microsoft Access 掲示板

現状、フォームの並べ替えはどのようにしていますか。

OrderByプロパティを利用しているのなら、それをOpenArgs引数でレポートに渡してレポート側でOrderByプロパティに設定すればいいでしょう。ただ、現状のコードをみるとOpenArgs引数はすでに利用しているようなので工夫が必要です。

レコードソースのクエリで並べ替えをしているなら、その並べ替えの設定をレポートのレコードソースにも反映させることになります。

どちらにしても、現状、フォームの並べ替えをどのようにしているかの詳細な情報が必要です。

hatenaさん　ありがとうございます。
フォームのオプションボタンopg2を下記でしてます
Select Case opg2 '並び替え設定
        Case 1
          Me.OrderBy = "[ふりがな] ASC"
        Case 2
          Me.OrderBy = "[顧客合計] ASC"
        Case 3
          Me.OrderBy = "[顧客合計] DESC"
    End Select

    Me.OrderByOn = True

レポートのレコードソースはフォームと同じクロス集計クエリを使ってます。

フォームのレポート開くコマンドボタンの全コードを提示してください。
stArgsをどのように設定しているか知りたいので。

hatenaさん　ｺｰﾄﾞは下記です
”　Dim rptName As String, opg1 As Integer, opg2 As Integer
    Dim txKubun As String, txSort As String, stArgs As String

    rptName = "R年度別売上集計_Cross_顧客と営業担当別"
    opg1 = Me.[opg_kubun].Value
    opg2 = Me.[opg_Sort].Value

    Select Case opg1 '担当区分
        Case 1
          txKubun = "社内営業担当：設定なし"
        Case 2
          txKubun = "社内営業担当：A"
        Case 3
          txKubun = "社内営業担当：Ｂ"
    End Select

    Select Case opg2 '並べ替え設定
        Case 1
          txSort = "※顧客社名で並べ替え"
        Case 2
          txSort = "●顧客合計金額を昇順で設定"
        Case 3
          txSort = "■顧客合計金額を降順で設定"
    End Select

    'ﾚﾎﾟｰﾄに渡すOpenArgsを組立
    stArgs = txKubun & "," & txSort

    MsgBox stArgs

    DoCmd.OpenReport rptName, acViewPreview, WhereCondition:=Me.Filter, OpenArgs:=stArgs
    DoCmd.Maximize　　”

　　OpenArgsはレポートＦｏｒｍａｔ時イベントに下記でしてます（念の為にﾚﾎﾟｰﾄの非表示ﾃｷｽﾄﾎﾞｯｸｽ[tx_Args]のｺﾝﾄﾛｰﾙに設定してます）
　　　”　'フォームからのOpenArgs[tx_Args]を分割して代入
   　　　 Dim v As Variant
   　　　 v = Split(Nz(Me.[tx_Args]), ",")
   　　　 Me.tx_kubun = v(0)
   　　　 Me.tx_sort = v(1)　　”

hatenaさん　ありがとうございます。
それですんなり解決しました。確かにフォームからしか開かないレポートですので、シンプルにこうすればいいですね。
＊掲示板の使い方はすみませんでした。説明をよく見ておきます。
今回も大変お世話になりました。