Microsoft Access 掲示板

目次(索引)作成 / 36

39 コメント
views
5 フォロー
36
norinori 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
画像1
画像2

通報 ...