Microsoft Access Club Access超初心者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル非連結レポートのOrderByの印刷プレビュー
記事No82991
投稿日: 2016/09/13(Tue) 15:55
投稿者iraira
解決済: ON
OS:Win10
Access Version:2013

非連結レポートの順番を昇順にしたいのですが、
印刷プレビューにエラーが生じます。
何が問題なのかご指摘していただけませんでしょうか。

form:f_選択
テキストボックス:p1,p2,p3・・・・
テキストボックス:v1,v2,v3・・・・
を設けています。

report:R_告知表
subreport:R_告知表sub1・・・・
(サブレポート内)テキストボックス:ss1,ss2,ss3,ss4,ss5,ss6,ss7,ss8

subreportの開くときイベントに

Private Sub Report_Open(Cancel As Integer)

Dim rs As String

rs = Forms.f_選択.p1
'ここでレコードソースのテーブルを選択しています。


Dim hh1, hh2, hh3, hh4, hh5, hh6 As String

hh1 = "s" & Forms.f_選択.v1
hh2 = "s" & Forms.f_選択.v1 + 1
hh3 = "s" & Forms.f_選択.v1 + 2
hh4 = "t" & Forms.f_選択.v1
hh5 = "t" & Forms.f_選択.v1 + 1
hh6 = "t" & Forms.f_選択.v1 + 2

'これはテーブルのフィールド名を作成しています。
例えば s11, s12, s13, t11, t12, t13 のように
なります。これは s201, s202, s203, t201, t202, t203に
なったり、変動します。


Me.RecordSource = rs
Me.ss1.ControlSource = "番号"
Me.ss2.ControlSource = "氏名"
Me.ss3.ControlSource = hh1
Me.ss4.ControlSource = hh2
Me.ss5.ControlSource = hh3
Me.ss6.ControlSource = hh4
Me.ss7.ControlSource = hh5
Me.ss8.ControlSource = hh6

'ここでテーブルのデータをサブレポートの
テキストボックスに充てるようにしています。

End Sub

これでレポートもサブレポートもきちんと表示されているのですが、
番号順に並んでいるクラスもあれば、ばらばらにならんで
表示されるクラスもあります。

そこで、End Sub の真上に

Me.OrderBy = "番号"
Me.OrderByOn = True

と追加し、実行するとレポートビューでは
正常に並び替えられ表示されるのですが、

印刷ビューでは
実行時エラー:2101
プロパティの設定値として指定した値が正しくありません。

Me.OrderBy="番号"

にエラーがでます。
意味がわかりません。かなり、悩んでいます。どなたか、
どこに問題があるのか、おしえていただけませんでしょうか。
よろしくお願いいたします。



タイトルRe: 非連結レポートのOrderByの印刷プレビュー
記事No82992
投稿日: 2016/09/19(Mon) 11:19
投稿者iraira
解決済: ON
ありがとうございます。

hatenaさんに
教えていただき解決しました。


>並べ替えるフィールドは番号の固定でいいのですか。

はい昇順の固定です。


>もし、そうなら、レポートのデザインビューで
>レコードソースを仮に設定しておいて、
>「番号」フィールドで並び替えの設定しておきます。
>そうすれば、レポートを開くときに、Orderby を設定する必用はないですね。

番号フィールドで並び替えの設定を行いました。
OrderByを使わなくても行うことができました。

ほんとうにありがとうございました。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る