- 締切済み
Access2003 テーダの並び替えについて
レポートにて、データの並び替えがうまくいきません。 日付順に並び替えをしていますが、只今日付が古い順に並び替えています。 それを逆にしたいのですが、うまくいきません。 日付が新しい順に並び替えるにはどうしたら良いのでしょうか？ 現在、レポートのプロパティでは 開く時・・・[イベントプロシージャ] ******************************************* Private Sub Report_Open(Cancel As Integer) Me.OrderBy = "日付" Me.OrderByOn = True End Sub ******************************************* になっています。 宜しくお願い致します。
- studio-tak
- お礼率40% (36/88)
- オフィス系ソフト
- 回答数4
- ありがとう数3
- みんなの回答 （4）
- 専門家の回答
- bin-chan
- ベストアンサー率33% (1403/4213)
レポートの並べ替えは「いいえ」にして、クエリ「Ｑ＿修理履歴」で日付の「降順」にするのはどうでしょう？
お礼
『プレビューまたは印刷しようとしたレポートで、グループ ヘッダー/グループ フッターの並べ替えを行うフィールドまたは式を指定する必要があります。』 というメッセージが出てきて、うまくいきませんでした。
- bonaron
- ベストアンサー率64% (482/745)
> Me.OrderBy = "日付" Me.OrderBy = "日付 DESC"
お礼
ご回答ありがとうございます。 これもまた『プレビューまたは印刷しようとしたレポートで、グループ ヘッダー/グループ フッターの並べ替えを行うフィールドまたは式を指定する必要があります。』 というメッセージが出てきて、うまくいきませんでした。
関連するQ&A
- Access フォームから並び替えレポート
お知恵をお貸しください。 Access2010 フォームでオプショングループを２種類用意しました。 規則グループ 昇順 降順 並び替えグループ ID ふりがな レポートに Private Sub Report_Open(Cancel As Integer) Select Case Forms!フォーム4!fra並べ替え Case 1 Me.OrderBy = "ID ASC" Me.OrderByOn = True Case 2 Me.OrderBy = "ふりがな ASC" Me.OrderByOn = True End Select End Sub 並び替えでは、昇順のみうまくレポートを行えますが。 規則で ID ふりがな を昇順 降順 に行えません。 なにを加えればよいのでしょうか。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- アクセスのレポートで3つの条件で並べ替えたいのですが（汗）
皆さん こんばんわ いつもお世話になります。今日は、下記の構文に追加するなどしてレポートの並べ替えをしたいのですが、判りません。教えていただけたら嬉しいです。 以下 棚番号 枝番 小枝 の名前を付けたロケーション番号（3桁の数字）（棚番号 １０１ 枝番 ２０ 小枝 ４）といった具合に割り振ったのですが印刷の時番号順に並べ替えがしたいです。簡単にできそうな気もするのですがよくわからないので教えていただきたいです。宜しくお願いいたします。 ちょっと本に載っていた構文を書きましたがもっと他にも有るようでしたらそう言うものでも良いです。 宜しくお願いいたします。 Private Sub Report_Open(Cancel As Integer) Dim stKey As String stKey = InputBox("昇順で並べ替えるキーを入力してください") Me.OrderBy = stKey Me.OrderByOn = True End Sub
- ベストアンサー
- その他(データベース)
- 「Me.Form」と「Me」の違いは？
アクセスのフォームで並べ替えをする時、 --------------------------------------------------------- Private Sub cmd_昇順_Click() With Me.Form .OrderBy = "フィールド１ ASC" .OrderByOn = True End With End Sub でも Private Sub cmd_昇順_Click() With Me .OrderBy = "フィールド１ ASC" .OrderByOn = True End With End Sub --------------------------------------------------------- でも出来ますが、 「Form」は必要なのでしょうか？ あってもなくてもどっちでもいいなら、理由が知りたいです。
- ベストアンサー
- その他MS Office製品
- レポート 並べ替えが出来ない フィルタもできない
この状況と似てるのですが http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1255147152 クロス集計クエリを作り、そのクエリを基にレポートを作成しました。 クエリ内では並べ替えはできます。 ですが、レポートを開く際にはクエリで設定した並べ替えができません。 なので、 Private Sub Report_Open(Cancel As Integer) With Me .OrderBy = "大分類_Index ASC" .OrderByOn = True End With End Sub このように、レポートを開く時に並べ替えを設定したのですが無視されます。 空白以外のみ表示させたいので、 Private Sub Report_Open(Cancel As Integer) Me.Filter = "IsNuLL(大分類)=False" Me.Report.FilterOn = True End Sub もしたのですが、これも無視されます。 クエリでは並べ替えが有効なのに、レポートにすると無視される理由と、 対策をご教授いただければ助かります。 当方アクセス２０１０です。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- ACCESSとＶＢＡとレコード
こんにちわ。 このサイトは何回も利用させて頂いてるのですが、今回も宜しくお願い致します。 環境はＯＳ：Ｘｐ・Ａｃｃｅｓｓ２０００です。 フォームを開くときにレコードを並べ替えたいのですが、単に「顧客コード」を昇順で並べ替えるには Private Sub Form_Load() Me.OrderBy = "顧客コード" Me.OrderByOn = True End Sub というのは解ったのですが、 何の関連付けもしてない、指定のテーブルの内容を並べ替えるにはどのように記述したらよいのでしょうか？ 「Me」の箇所をそのテーブル名 （例えば、顧客テーブル.OrderBy = "顧客コード"） のようにすれば良いのでしょうか？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- サブフォームの並べ替えをVBAで指定したい
親フォームを開くときにサブフォームの並べ替えを実行したいのですが 親フォームのフォームモジュールに Private Sub Form_Load() With Me.Controls("サブフォーム ") .OrderBy = "日時 DESC" .OrderByOn = True End With End Sub としてるのですが、 OrderByの部分で、 実行時エラー438になります。 サブフォーム名は「サブフォーム」です。 サブフォームの中に日時と言うコントロールは存在します。 なぜエラーになるのでしょうか？ ちなみにOrderByをなくしても .OrderByOn = True で同じエラーが発生します。
- 締切済み
- その他MS Office製品
- Access フォームでの並べ替え OrderBy
いつもお世話になっています。 フォームで「製品ID」が昇順に並べ替えられるよう下記のイベントを 設定しましたが、上手くいきません。 Private Sub Form_Open(Cancel As Integer) Me.OrderBy = "製品ID" End Sub お力添えよろしくお願いいたします。
- 締切済み
- その他(データベース)
- レポート ちらつきを回避したい
レポートにデータがない時は Private Sub Report_NoData(Cancel As Integer) Cancel = True End Sub これで、レポートを開くことを回避できるのですが、 一瞬だけレポートが立ち上がり、一瞬で消えます。 この一瞬の動きを非表示にしたいのですが、可能でしょうか？ 画面がちらついて見えてしまいます。 Private Sub Report_NoData(Cancel As Integer) DoCmd.Echo False Cancel = True DoCmd.Echo True End Sub エコーを入れてもちらつきを回避できませんでした。
- ベストアンサー
- その他MS Office製品
- Access2003 レポートの合計の出し方
お世話になっております。 Access2003のレポートで下記のようなコードで価格の合計を求めようとしています。 1ページですとこれで合計は表示されるのですが、レポートが2ページ以降になると最終ページの合計が表示されます。 最終ページの最後にすべての合計を出したいと思っています。 ご教授いただければ幸いです。よろしくお願いいたします。 Option Compare Database Dim a As Variant Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer) a = 0 End Sub Private Sub グループヘッダー3_Print(Cancel As Integer, PrintCount As Integer) a = a + Me.価格 End Sub Private Sub レポートフッター_Print(Cancel As Integer, PrintCount As Integer) Me.合計 = a End Sub
- ベストアンサー
- その他(データベース)
- ACCESSのレポートに売上の累計を計算させましたが・・・・
ACCESS2002についてです。 テーブルに"売上日" "売上金額"とある中で"売上累計"を明細行毎にだそうと、本に書いてある下記のように入力しましたが、ページが変わってしまうと"売上累計"が合わなくなってしまいます。どうしたら解決できますか???? Option Compare Database Option Explicit Private curRuikei As Currency Private Sub Report_Open(Cancel As Integer) End Sub Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer) '累計のクリア curRuikei = 0 End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) '累計の加算 curRuikei = curRuikei + Me!売上金額 Me!売上累計 = curRuikei End Sub です。
- ベストアンサー
- その他(データベース)
お礼
うまくいきました。 他のレポートは、開く時・・・[イベントプロシージャ]でいけてるんですが なんででしょう・・・ 深いですね、アクセスって。 ありがとうございました。 またよろしくお願い致します。