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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
「お昼の放送」の思い出
小学校から中学校、ところによっては高校まで お昼休みに校内放送で、放送委員が音楽とかおしゃべりとか流してましたよね。 最近は自分でもラジオができるようになって、そのクオリティもすごいことになっていると聞きます。
-
accessのレポートを20行固定にする方法
Access(アクセス)
-
Access データのないフォームの枠線を表示させたい。
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
access レポートで罫線を最後まで出力する方法
その他(データベース)
-
5
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
6
新規レコード行を非表示にしたい
Access(アクセス)
-
7
Access2000、これはいったい・・・・
その他(データベース)
-
8
Accessの桁区切りについて教えてください。
Access(アクセス)
-
9
サブフォームを利用したクエリーの抽出条件について
その他(データベース)
-
10
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
11
アクセスでレポートの1印刷内に複数のレコードを表示させたい
Visual Basic(VBA)
-
12
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
13
Access サブフォームでの選択行の取得
その他(データベース)
-
14
このオブジェクトに値を代入することはできません
その他(データベース)
-
15
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
16
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
17
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
18
Access2010 「演算子がありません」エラー
その他(データベース)
-
19
アクセスのレポート、VBAで罫線を引く方法
Excel(エクセル)
-
20
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
Excel で改ページをしたところ...
-
Excelにて、ページ毎の外枠に罫...
-
印刷ページが急に数100ページに...
-
エクセルで表に書いた黒の罫線...
-
excel印刷で改頁をする時に罫線...
-
wordで1ページに同じ文章を4つ...
-
印刷時、改ページごとの下枠に...
-
[Excel]画面上で表示されても、...
-
ワード文書の枠線をどうしたら...
-
EXCELの罫線をもっと細くしたい...
-
エクセルで罫線の太さを変えて...
-
ワードの背景から罫線を消したい
-
エクセルで透明の罫線を引けま...
-
エクセルファイルを印刷すると...
-
エクセルに勝手に罫線が出てき...
-
AccessからExcelに罫線付で出力...
-
ワード 罫線の角が切れてしまう
-
ダッシュ―― の打ち方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
Excelにて、ページ毎の外枠に罫...
-
印刷ページが急に数100ページに...
-
エクセルで表に書いた黒の罫線...
-
Excel で改ページをしたところ...
-
エクセルファイルを印刷すると...
-
[Excel]画面上で表示されても、...
-
wordで1ページに同じ文章を4つ...
-
excel印刷で改頁をする時に罫線...
-
【word】印刷レイアウトでグレ...
-
印刷時、改ページごとの下枠に...
-
エクセルで罫線の太さを変えて...
-
この様式の雛形を作るとしたら...
-
エクセルで透明の罫線を引けま...
-
ワード文書の枠線をどうしたら...
-
Word差し込み印刷 ラベルの枠を...
-
Excel 2007印刷で上の頁の線が出る
-
エクセル 突然「点線」?が出...
-
accessのレポートを20行固定に...
おすすめ情報