norinori
59ee7ec0bd
2023/05/06 (土) 13:21:38
2年程前、医薬品集の索引作成で大変お世話になりました。今回、この医薬品集に大分類(薬効87分類)、中分類(拡張薬効分類)を設けてレポートも作成し直した為、分類ごと(薬効87分類)の索引も欲しいと思い、hateneさんが提示されていた『目次(索引)ページを自動作成』を元にコピペしてみたのですが、テキストボックスに何もはきださない現象となっています。分からないなりに試行錯誤しましたが、どこが間違っているのかさっぱり分かりません。ご教示お願い致します。
Option Compare Database
Option Explicit
Private Sub グループヘッダー1_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pages = 0 Then
Me.txt索引 = Me.txt索引 & Left(薬効87分類 & String(12, "・"), 12) & Format(Me.Page, "@@@") & vbCrLf
End If
End Sub
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
Me.Page = 0
End Sub
通報 ...