'tbl_ラベルデータトランの読込
SSql = "SELECT * FROM tbl_REラベルデータトラン "
SSql = SSql & "ORDER BY 店舗コード, 個口NO"
RdTR4.Open SSql, Cnn
Do Until RdTR4.EOF = True
'ラベル送信
Call Label_Send1(RdTR4)
RdTR4.MoveNext
Loop
Me.SubMas.Requery
MsgBox "ラベルプリンタへの送信が終了しました", vbInformation, "終了"
とあるのですが、これはラベルデータトランというテーブル内のレコードの最後になるまで読み取りを繰りかえすというようなマクロだと思うのですが、これを最初のレコードをだけ読み取って終わらせるように変更したいのですが。お願いします。
最初のレコードだけなら...。
'tbl_ラベルデータトランの読込 SSql = "SELECT * FROM tbl_REラベルデータトラン " SSql = SSql & "ORDER BY 店舗コード, 個口NO" RdTR4.Open SSql, Cnn 'ラベル送信 Call Label_Send1(RdTR4) Me.SubMas.Requery MsgBox "ラベルプリンタへの送信が終了しました", vbInformation, "終了"
で、大丈夫だと思いますが。
ありがとうございました。
解決しました。