それと、詳細セクションも複数ページにまたがることがあったりしますか?
ページ跨ぎが発生すると詳細_Format
もその都度発生するので、data
に薬品名が重複して登録されます。こちらもページ跨ぎの場合はdata
にデータを追加しない様、制御処理を追加しておいたほうがいいかもしれません
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
data = data & Left(Me!薬品名 & String(12, "・"), 12) & Format(Me.Page, "@@@") & vbCrLf
End If
End Sub
通報 ...