Access VBA質問箱 IV

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

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


151 / 9994 ←次へ | 前へ→

【13159】Re:Access2016レポートの10行毎に直線を引く
回答  hatena  - 17/6/4(日) 22:49 -

引用なし
パスワード
   当方のレポートで試してみましたが、うまくいきました。

どこか設定が間違っているのだと思います。

「詳細」セクションを選択して、プロパティシートの上のコンボボックスは「詳細」になっしますか。
そこの「フォーマット時」欄は [埋め込みマクロ] となってますか。


以下、蛇足ですが、
「コード」が現状は連番になっていたとしても、削除したりして抜けが出る場合もあると思います。また、フィルターをかけて出力したりする場合もあるかも知れません。
その場合でも変更することなく対応できる私の提案の方法を推奨します。

あと、マクロだと、いつかは限界がきます。VBAの方へ移行するというのも手だと思います。
その場合の設定方法を紹介しておきます。

詳細セクションのフォーマット時イベントでドロップダウンリストから[イベント プロシージャ]を選択する。
ビルドボタンをクリックすると、VBAウィンドウが開き、

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

End Sub

とすでに、記述されている。この間に下記のようにコードを記述します。

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

  If (Me.CurrentRecord Mod 10) = 0 Then
    Me.罫線.Visible = True
  Else
    Me.罫線.Visible = False
  End If

End Sub

これだけです。どうでしょう。意外と簡単だと思いませんか。

Me というのは自分自身ということで、このコードが記述されているレポートになります。
Me.罫線.Visible というのは 自分自身のレポート上の[罫線]の可視(Visible)を「はい」 (True)に設定するという意味になります。

Me.CurrentRecord は自分自身の現在のレコード位置(行番号)ということです。これを使えば[コード]が連番である必用もないし、=1 のテキストボックスを配置する必用もありません。

310 hits

【13156】Access2016レポートの10行毎に直線を引く takeo 17/6/3(土) 14:42 質問[未読]
【13157】Re:Access2016レポートの10行毎に直線を引く hatena 17/6/3(土) 18:58 回答[未読]
【13158】Re:Access2016レポートの10行毎に直線を引く たけお 17/6/3(土) 21:16 質問[未読]
【13159】Re:Access2016レポートの10行毎に直線を引く hatena 17/6/4(日) 22:49 回答[未読]
【13160】Re:Access2016レポートの10行毎に直線を引く たけお 17/6/5(月) 15:05 お礼[未読]
【13162】Re:Access2016レポートの10行毎に直線を引く hatena 17/6/6(火) 7:57 回答[未読]
【13161】Re:Access2016レポートの10行毎に直線を引く たけお 17/6/5(月) 19:17 質問[未読]
【13163】Re:Access2016レポートの10行毎に直線を引く たけお 17/6/6(火) 15:28 お礼[未読]
【13164】Re:Access2016レポートの10行毎に直線を引く たけお 17/6/12(月) 10:25 お礼[未読]

151 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078186
(SS)C-BOARD v3.8 is Free