どなたか教えて下さい。
『やりたいこと』
あるテーブルのデータでレポートを作成しました。
3レコード印字したら、改ページせず、フッダーを表示したい。
(フッターには図形の□を表示)
或いは、
3レコード目の横にレコード内容以外のものを表示したい(図形)
『例』
みかん
りんご
バナナ
------------フッダー
□
カキ
ナシ
もも
------------フッダー
□
或いは、
みかん
りんご
バナナ □
カキ
ナシ
もも □
いずれにしても、これが3レコード目よ!!と認識させる方法が
わかりません。
レポート内でおこなうのか、
テーブルやクエリー等で、1.2.3.1.2.3.とNoを振るのか。。
案も方法もサッパリです・・・。
どなたか、お知恵を貸してくださいませ!!!
No.3ベストアンサー
- 回答日時:
1.レポートの「詳細」の一番右端に「マーカー」と言う名前のラベルを貼り、表題に「□」と入れます。
2.レポートのプロパティを見て、イベントの「開く時」を「イベントプローシジャ」にして、以下のコードを埋め込みます。
Private Sub Report_Open(Cancel As Integer)
LineCount = 0
End Sub
3.コードページの
Option Compare Database
Option Explicit
の下に
Public LineCount As Integer
の1行を足して
Option Compare Database
Option Explicit
Public LineCount As Integer
にします。
4.レポートの「詳細」のプロパティを見て、イベントの「フォーマット時」を「イベントプローシジャ」にして、以下のコードを埋め込みます。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
LineCount = LineCount + 1
マーカー.Visible = (LineCount Mod 3) = 0
End Sub
コードページが、全体で
Option Compare Database
Option Explicit
Public LineCount As Integer
Private Sub Report_Open(Cancel As Integer)
LineCount = 0
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
LineCount = LineCount + 1
マーカー.Visible = (LineCount Mod 3) = 0
End Sub
となっていればOKです。
これで
---------
みかん
りんご
バナナ □
カキ
ナシ
もも □
白挑
(改ページ)
黄桃
いちご □
ぶどう
巨峰
マンゴー □
---------
と言うレポートが出来ます。
2ページ目の「いちご」は2行目、「マンゴー」は5行目ですが、それぞれ9、12レコード目なので、マーカーが付きます。
フッターを使う場合はもう少し複雑で、ちょっと工夫が要ります。
No.4
- 回答日時:
3レコード目にイメージを表示させればいいのですね
詳細に非連結テキストボックスを置き
=1
集計実行を全体
詳細に表示させたいイメージを置きます
詳細フォーマット時イベントに
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Me.テキスト12 Mod 3 = 0 Then
Me.イメージ11.Height = 300
Else
Me.イメージ11.Height = 0
End If
Me.詳細.Height = 200
End Sub
イメージの高さは適当に調整してくださいね
No.1
- 回答日時:
テーブル_tab1:
ID_fld_1
1__A
2__B
3__C
4__D
5__E
6__F
7__G
レポート_クエリ1:
1
___1__A
___2__B
___3__C
2
___4__D
___5__E
___6__F
3
___7__G
このレポートの[並び替え/グループ化]は次のようです。
GNumber___昇順
ID________昇順
クエリ_クエリ1:
GNumber__ID__fld_1
______1___1__A
______1___2__B
______1___3__C
______2___4__D
______2___5__E
______2___6__F
______3___7__G
SELECT (DBCount("ID","Tab1","ID<=" & ID)+2)\3 AS GNumber, ID, fld_1
FROM tab1;
Access では標準モジュールで作成した関数をSQL文に組み込むことも可能。
そこで、DBCount() を使って3レコード毎にグループ番号を付与しています。
このようなグループ化をしておけばレポートの[並び替え/グループ化]機能が利用できます。
Public Function DBCount(ByVal strField As String, _
ByVal strTable As String, _
Optional ByVal strWhere As String = "", _
Optional ByVal ReturnValue = 0) As Variant
On Error GoTo Err_DBCount
Dim N
Dim strQuerySQL As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
strQuerySQL = "SELECT COUNT(" & strField & ") FROM " & strTable
If Len(strWhere) > 0 Then
strQuerySQL = strQuerySQL & " WHERE " & strWhere
End If
With rst
.Open strQuerySQL, _
CurrentProject.Connection, _
adOpenStatic, _
adLockReadOnly
If Not .BOF Then
.MoveFirst
N = .Fields(0)
End If
End With
Exit_DBCount:
On Error Resume Next
rst.Close
Set rst = Nothing
DBCount = IIf(N <> 0, N, ReturnValue)
Exit Function
Err_DBCount:
MsgBox "SELECT 文の実行時にエラーが発生しました。(DBCount)" & Chr$(13) & Chr$(13) & _
"・Err.Description=" & Err.Description & Chr$(13) & _
"・SQL Text=" & strQuerySQL, _
vbExclamation, " 関数エラーメッセージ"
Resume Exit_DBCount
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのレポート上のテキスト...
-
アクセスのレポートのヘッダー...
-
MS ACCESS 2003 サブレポート機...
-
ACCESSのレポートフッターをグ...
-
★お手上げ状態です。助けてくだ...
-
ACCESS でフォームフィルターを...
-
Access2013でレポートを名前を...
-
BusinessObjectsについて教えて...
-
エクセルで表を作り、ピボット...
-
Access上で作成したレポートのE...
-
アクセスでレポート作成時にデ...
-
アクセスのレポートで空白のテ...
-
レポートのコントロールソース...
-
Accessでの複数クエリ(テーブ...
-
ACCESSレポートに複数のクエリ...
-
Access チェックボックスを使...
-
アクセスのレポートをPDF化する...
-
ACCESS2000 VBAで印刷時にサブ...
-
Accessでページヘッダーだけが...
-
アクセスで入力したデータの順...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
Access チェックボックスを使...
-
accessレポートにwordの文...
-
Accessのフォーマット時イベント
-
ACCESS2000 VBAで印刷時にサブ...
-
★お手上げ状態です。助けてくだ...
-
ACCESS レポートでグループご...
-
Accessでレポートの項目をVBAで...
-
レポートのラベルなどの非表示...
-
Access2007でページ毎にPDFを出...
-
Access2013でレポートを名前を...
-
テキストボックスにコントロー...
-
レポートのコントロールソース...
-
アクセスのレポートで空白のテ...
-
Accessでページヘッダーだけが...
-
アクセスでレポート作成時にデ...
-
エクセルで表を作り、ピボット...
-
計算結果がレポートビューでは...
-
Access レポートフッターを条...
おすすめ情報