人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

●質問者: hac20380
●カテゴリ:コンピュータ
✍キーワード:access CNN LOOP open SELECT
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● gong1971
●35ポイント

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

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

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

◎質問者からの返答

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

解決しました。


2 ● Hibi
●35ポイント

Do Until RdTR4.EOF = Trueの1行と

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

◎質問者からの返答

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

解決しました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ