Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3025 / 9994

←次へ　｜　前へ→


	【10233】Re:宛名ラベルの余りに・・

あおぎん - 08/2/8(金) 12:19 -


	引用なし

	パスワード

▼小僧さん：
ご提示の方法でワークテーブルを作ってみたのですが、
ワークテーブルはうまくできました。ありがとうございます。

RCount = DCount("*", "W_ラベル")
　　
　　For i = RCount Mod Label_Cnt + 1 To Label_Cnt
　　　　strSQL = "INSERT INTO W_ラベル( 顧客ID) " _
　　　　　　　 & "VALUES(" & RCount + i & ");"

ただ、ここのところなんですが、
例えば31件データがあったとすると、
I は　31 を20　で割り戻した余り11+1から20。
で　31＋12～20の数値が顧客IDに入ってくる処理なのですよね？
選択FLGで抽出した31件のデータ＋顧客ID 43～51の9件の常用データができることになります。

ここで、抽出した顧客IDに44とか48とか混じってますと、顧客IDで並び替えたとき必要なデータと常用データが混じって並んでしまいます。
できれば、選択FLGで抽出したデータの顧客ID順・常用データの順に並び替えたいのですが、この顧客IDをうまく取得する方法はありますか？？

もともとの顧客IDをRcountでほぼ取得しない4桁等にする方法くらいしか考え付かないのですが、上記のコードの書き換えで対応できる方法等あればご教示願えませんでしょうか。

よろしくお願いします。

607 hits

▼

【10205】宛名ラベルの余りに・・ あおぎん 08/2/4(月) 13:42