Win2000,Access2000を使用しています。
Microsoftのホームページで「[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法」を応用して以下のVBを作成しました。
ですが、9行目までデータを入力すると9行目と10行目の両方の行に9行目のデータが表示されます。
8行目まででしたら、9、10行目は空白で罫線(直線)が表示されます。
どなたか解決法をご存知でしたらお教え下さい。
Option Compare Database
Dim A As Integer '-------今何行目なのかをカウントする為の変数
Dim B As Integer '-------今回印刷する予定のレコード件数を入れて
おく変数
----------------------------------------------------
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
A = 0
B = DCount("ID", "Q05商品リスト")
Me!改ページ3.Visible = False
End Sub
----------------------------------------------------
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
A = A + 1
If A Mod 10 = 0 Then
Me!改ページ3.Visible = True
Else
Me!改ページ3.Visible = False
If A < B Then
Me.NextRecord = True
Me!商品名.Visible = True
Me!メーカー名.Visible = True
ElseIf A = B Then
Me.NextRecord = False
Me!商品名.Visible = True
Me!メーカー名.Visible = True
Else
Me.NextRecord = False
Me!商品名.Visible = False
Me!メーカー名.Visible = False
End If
End If
End Sub
No.1ベストアンサー
- 回答日時:
[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法
http://support.microsoft.com/default.aspx?scid=k …
これですね。
----------------------------------------------
If i <= j Then
Me![bpage].Visible = True
Else
Me![商品名].Visible = False
Me![商品コード].Visible = False
Me![単価].Visible = False
Me![在庫].Visible = False
End If
----------------------------------------------
この部分が抜けてません?
ご回答ありがとうございました。
まさしくその通りで、あっさり解決してしまいました。
質問する前によく確認いたします。m(-_-;)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
accessのレポートを20行固定にする方法
Access(アクセス)
-
Access データのないフォームの枠線を表示させたい。
Access(アクセス)
-
Accessレポートに表を入れたい
Excel(エクセル)
-
-
4
ACCESS IIF関数 複数条件の設定について
Excel(エクセル)
-
5
Access レポートを開く時、2つの条件で昇順で並び替え
Access(アクセス)
-
6
アクセスのレポートで同一内容の複数表示の改ページについて教えて下さい
Access(アクセス)
-
7
Accessの桁区切りについて教えてください。
Access(アクセス)
-
8
ACCESS 2000のレポートでの文字の均等割付は可能ですか?
Access(アクセス)
-
9
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
10
ACCESSレポートの1ページだけ
Access(アクセス)
-
11
更新クエリでキー違反
その他(データベース)
-
12
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
13
(ACCESS)条件に応じて、テキストボックスを表示・非表示設定
その他(データベース)
-
14
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
15
サブフォームを利用したクエリーの抽出条件について
その他(データベース)
-
16
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
17
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
18
サブレポートのレポートフッターが印刷されず困っています。
Access(アクセス)
-
19
アクセスのレポート、VBAで罫線を引く方法
Excel(エクセル)
-
20
サブフォームのあるフォームからレポートを作成し、印刷しようとすると、サブフォームにあるデータ量分印刷
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
印刷ページが急に数100ページに...
-
エクセル 突然「点線」?が出...
-
EXCELの罫線をもっと細くしたい...
-
エクセルで罫線の太さを変えて...
-
excel印刷で改頁をする時に罫線...
-
Excelにて、ページ毎の外枠に罫...
-
エクセルファイルを印刷すると...
-
Excel で改ページをしたところ...
-
エクセルで結合したセルに罫線...
-
【word】印刷レイアウトでグレ...
-
wordで1ページに同じ文章を4つ...
-
印刷時、改ページごとの下枠に...
-
ダッシュ―― の打ち方
-
エクセルで透明の罫線を引けま...
-
accessのレポートを20行固定に...
-
ワード文書の枠線をどうしたら...
-
ExcelをPowerPointに挿入すると...
-
エクセルに勝手に罫線が出てき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
印刷ページが急に数100ページに...
-
Excelにて、ページ毎の外枠に罫...
-
エクセル 突然「点線」?が出...
-
Excel で改ページをしたところ...
-
wordで1ページに同じ文章を4つ...
-
【word】印刷レイアウトでグレ...
-
エクセルで表に書いた黒の罫線...
-
エクセルファイルを印刷すると...
-
エクセルで罫線の太さを変えて...
-
Word差し込み印刷 ラベルの枠を...
-
excel印刷で改頁をする時に罫線...
-
EXCELの罫線をもっと細くしたい...
-
Excel 2007印刷で上の頁の線が出る
-
ワード文書の枠線をどうしたら...
-
エクセルで透明の罫線を引けま...
-
[Excel]画面上で表示されても、...
-
印刷時、改ページごとの下枠に...
-
accessのレポートを20行固定に...
おすすめ情報