Accessについて


'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, "終了"

とあるのですが、これはラベルデータトランというテーブル内のレコードの最後になるまで読み取りを繰りかえすというようなマクロだと思うのですが、これを最初のレコードをだけ読み取って終わらせるように変更したいのですが。お願いします。

回答の条件
  • 1人2回まで
  • 登録:2006/06/16 14:34:55
  • 終了:2006/06/16 16:02:44

回答(2件)

id:gong1971 No.1

gong1971回答回数443ベストアンサー獲得回数682006/06/16 14:42:56

ポイント35pt

最初のレコードだけなら...。

'tbl_ラベルデータトランの読込
SSql = "SELECT * FROM tbl_REラベルデータトラン "
SSql = SSql & "ORDER BY 店舗コード, 個口NO"
RdTR4.Open SSql, Cnn
'ラベル送信
Call Label_Send1(RdTR4)
Me.SubMas.Requery
MsgBox "ラベルプリンタへの送信が終了しました", vbInformation, "終了"

で、大丈夫だと思いますが。

id:hac20380

ありがとうございました。

解決しました。

2006/06/16 16:02:32
id:Hibi No.2

Hibi回答回数178ベストアンサー獲得回数22006/06/16 14:52:06

ポイント35pt

Do Until RdTR4.EOF = Trueの1行と

Loopの1行を削除すればいいと思います。

id:hac20380

ありがとうございました。

解決しました。

2006/06/16 16:02:24

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません