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

     

リストへもどる

投稿記事の一括表示

タイトルグループ化し且レコードが無くても罫線を最後まで
記事No16749
投稿日: 2011/06/02(Thu) 19:43
投稿者さき
OS:windows7
Access Version:2007

レポートで下記VBAコードを入れると上手くいくのですが
グループ分けをし且つレコードがない場合でも罫線を引きたいのですが
下記VBAにどうすればよいのか教えてください。
グループ化をすれば罫線がレコードがある物しか出てきません。
なぜですか?
ぜひ教えて下さい
1週間以上悩んでます

Private Sub Report_Open(Cancel As Integer)

lngG_DataCount = DCount("*", "見積明細テーブル")
lngG_LineCount = 0

End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

Dim blnVisible As Boolean
Dim lngLine As Long

'イベント発生回数
lngG_LineCount = lngG_LineCount + 1
'実印刷行数(ページごとの溢れ行調整値)
lngLine = lngG_LineCount - (Me.Page - 1)

If (lngLine Mod 18) = 0 Then 'ページ最大行数に到達

'最終データに達していない
If lngLine <= lngG_DataCount Then
blnVisible = True

'最終データ以降のとき
Else
blnVisible = False '明細を印刷しない
End If

Else 'ページ途中

'データが途中のとき
If lngLine < lngG_DataCount Then
Me.NextRecord = True '次のレコードへ進む
blnVisible = True '明細を印刷する

'最終データのとき
ElseIf lngLine = lngG_DataCount Then
Me.NextRecord = False 'レコードを進めない(EOFにしない)
blnVisible = True '明細を印刷する

Else
'最終データ以降(カラ罫線印刷用)
Me.NextRecord = False 'レコードを進めない(EOFにしない)
blnVisible = False '明細を印刷しない
End If

End If

'明細の表示(印刷)設定
Me.txt名称.Visible = blnVisible
Me.txt数量.Visible = blnVisible
Me.txt単位.Visible = blnVisible

End Sub

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

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