４章 カスタマイズ ／４-4レポート

レコード単位の連番を印刷する[Access97]

レポートに連番を印刷することができます。
Soraフォームの［連番開始番号］フィールドの内容を開始番号にして、レコード単位に連番を印刷します。

前項に「連番を印刷する[Access97]」の例があります。
Soraの機能を使って連番を印刷する場合は、「Soraレポートに連番を印刷する」を参照してください。

＜設定手順＞
  1. フォームに連番の開始番号を指定するフィールドを作成します。
    1. ［連番開始番号］
  2. レポートにフィールドのテキストボックスを作成します。
    下記フィールドを印刷しない場合は、テキストボックスのプロパティの［可視］を”いいえ”にします。
    1. ［DANO］
    2. ［連番開始番号］
  3. レポートに連番を印刷する非連結のテキストボックスを作成します。
    1. ［連番１］
  4. ［詳細］プロパティの［印刷時］イベントに下記のコードを追加します。
    Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    apRptPrint Me
    Static lngDanoOld As Long       '旧DANO
    If [DANO] <> lngDanoOld Then    'レコードが変わった
        lngDanoOld = [DANO]
        If IsNull([連番開始番号]) Then
            [連番１] = 1
        Else
            [連番１] = [連番開始番号]
        End If
    Else
        [連番１] = [連番１] + 1
    End If
End Sub
＜参照＞
  1. Accessの［ヘルプ］−［トピックの検索］
    ［目次］−”レポート”−”合計の計算と式の使用”
    −”レコードの番号付けとカウント”
    −”レポートの各詳細レコードに番号をつける”