Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6599 / 9994

←次へ　｜　前へ→


	【6598】Re:データがなくても罫線を引く・・・を引...

koorin - 05/10/25(火) 18:05 -


	引用なし

	パスワード

▼小僧さん：
こんにちは。

>Private Sub 詳細_Format
>…
>
>の最後の Else の部分に
>　　Me![以下余白ラベル].Visible = True
>
>と記述。
>これでレコードがない場合は最後まで「以下余白」が表示されます。

教えていただいた通りにやってみたのですが、品名の入っているところにも以下余白の字が表示されてしまったので、（可視を「いいえ」にしましたが・・・）
最後のElse部分だけでなく、他の条件のところにも以下余白のラベルをFalseで記述することにより、回避でき思い通りになりました。
ありがとうございましたm(__)m

出来あがりのコードは次の通りです。（ラベル78が以下余白ラベルです）

Option Compare Database

Dim AAA As Integer
Dim BBB As Integer

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
AAA = 0
BBB = DCount("注番", "Q_見積書発行用")
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
AAA = AAA + 1

If AAA Mod 17 = 0 Then
　　If AAA < BBB Then
　　　　Me!改ページ30.Visible = True
　　　　Me.Section(3).Visible = True
　　ElseIf AAA = BBB Then
　　　　Me!品番.Visible = True
　　　　Me!品名.Visible = True
　　　　Me!注文数量.Visible = True
　　　　Me!単位.Visible = True
　　　　Me!売上単価.Visible = True
　　　　Me!テキスト72.Visible = True
　　　　Me!ラベル78.Visible = False
　　Else
　　　　If AAA = BBB + 1 Then
　　　　　　Me!品番.Visible = False
　　　　　　Me!品名.Visible = False
　　　　　　Me!注文数量.Visible = False
　　　　　　Me!単位.Visible = False
　　　　　　Me!売上単価.Visible = False
　　　　　　Me!テキスト72.Visible = False
　　　　　　Me!ラベル78.Visible = True
　　　　Else
　　　　　　Me!品番.Visible = False
　　　　　　Me!品名.Visible = False
　　　　　　Me!注文数量.Visible = False
　　　　　　Me!単位.Visible = False
　　　　　　Me!売上単価.Visible = False
　　　　　　Me!テキスト72.Visible = False
　　　　　　Me!ラベル78.Visible = False
　　　　End If
　　End If
　　
Else
　　Me!改ページ30.Visible = False
　　Me.Section(3).Visible = False
　　If AAA < BBB Then
　　　　Me.NextRecord = True
　　　　Me!品番.Visible = True
　　　　Me!品名.Visible = True
　　　　Me!注文数量.Visible = True
　　　　Me!単位.Visible = True
　　　　Me!売上単価.Visible = True
　　　　Me!テキスト72.Visible = True
　　　　Me!ラベル78.Visible = False
　　ElseIf AAA = BBB Then
　　　　Me.NextRecord = False
　　　　Me!品番.Visible = True
　　　　Me!品名.Visible = True
　　　　Me!注文数量.Visible = True
　　　　Me!単位.Visible = True
　　　　Me!売上単価.Visible = True
　　　　Me!テキスト72.Visible = True
　　　　Me!ラベル78.Visible = False
　　Else
　　　　If AAA = BBB + 1 Then
　　　　　　Me.NextRecord = False
　　　　　　Me!品番.Visible = False
　　　　　　Me!品名.Visible = False
　　　　　　Me!注文数量.Visible = False
　　　　　　Me!単位.Visible = False
　　　　　　Me!売上単価.Visible = False
　　　　　　Me!テキスト72.Visible = False
　　　　　　Me!ラベル78.Visible = True
　　　　Else
　　　　　　Me.NextRecord = False
　　　　　　Me!品番.Visible = False
　　　　　　Me!品名.Visible = False
　　　　　　Me!注文数量.Visible = False
　　　　　　Me!単位.Visible = False
　　　　　　Me!売上単価.Visible = False
　　　　　　Me!テキスト72.Visible = False
　　　　　　Me!ラベル78.Visible = False
　　　　End If
　　End If
End If
End Sub

それで・・・次々にすみませんが、あともうひとつだけ教えてください。
コードをご覧になってわかると思いますが、今見積詳細が17行になったら
改ページするように設定してありますが、見積書の2ページ以降はヘッダが無いので、見積詳細が25行になるまで罫線を引いて改ページしたいのです。
どんな条件を加えればよいのでしょうか？

よろしくお願いします。
（追伸：先日ご相談したVBAの本ですが、ニキータさんの本を店頭でみつけたので
購入しました。）

865 hits

▼

【6566】データがなくても罫線を引く・・・を引用したのですが・・・ koorin 05/10/21(金) 16:22