Microsoft Access 掲示板

レポート印刷時にレコードごとの連番を振りたい

2 コメント
views
4 フォロー

初めて相談させていただきます。よろしくお願いいたします。
只今勉強中の初心者につき、至らない点があるかと思います。

環境はwin10 access2016です。

商品に貼り付けるラベルを作成しており
テーブルのフィールドに商品、印刷枚数等を設定しています。
印刷枚数が商品によって違うため、以下の通りレポートのvbaを設定し
商品×枚数分の印刷を行っています。

Option Compare Database
Dim i As Integer

Private Sub Report_Open(Cancel As Integer)

i = 1

End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)

    If i < Me!印刷枚数 Then
        Me.NextRecord = False
        i = i + 1
    Else
        i = 1
    End If

End Sub

これに加え、レコードごとの連番/印刷枚数 の形でレポートに表示させたいのですが
期待通りの結果にならず、何か良い案が無いかと思い相談させていただきました。
例)商品A、5枚 1/5 2/5 3/5 4/5 5/5 商品B、3枚 1/3 2/3 3/3
お忙しいところ申し訳ありません、よろしくお願いいたします。

oshiruko2.5kg
作成: 2019/11/20 (水) 17:52:51
通報 ...
1

レポートの詳細セクションにテキストボックスを配置して、名前を「連番」とします。
下記にように1行追加すればどうでしょうか。

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    
    Me.連番 = i & "/" & Me!発注数
    
    If i < Me!発注数 Then
        Me.NextRecord = False
        i = i + 1
    Else
        i = 1
    End If

End Sub
2
oshiruko2.5kg 2019/11/21 (木) 09:25:59 7ece8@9f543

ありがとうございます。
期待通りの結果になりました。
難しく考えすぎており、行き詰まってしまいました。
もう少し頭を柔らかくして望みたいと思います。