Access VBA質問箱 IV

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

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


384 / 2272 ツリー ←次へ | 前へ→

【11953】更新クエリで連番をふるときに・・ あおぎん 11/2/18(金) 14:36 質問[未読]
【11955】Re:更新クエリで連番をふるときに・・ よろずや 11/2/19(土) 19:33 回答[未読]
【11957】Re:更新クエリで連番をふるときに・・ あおぎん 11/2/21(月) 13:18 お礼[未読]

【11953】更新クエリで連番をふるときに・・
質問  あおぎん  - 11/2/18(金) 14:36 -

引用なし
パスワード
   いつも参考にさせてもらっています。
検索してもよくわからなかったので、質問します。よろしくお願いします。


 バーコード番号として連続番号を割り付けるための処理を、更新クエリで実行したいと考えています。
(こちらを参照しました。ht p/www.accessclub.jp/samplefile/samplefile_44.htm)

 Numbers関数を作成し、更新クエリでこの関数を利用して連番をふることができるのですが、
更新クエリの元に選択クエリを持ってくることで、任意の項目で並べ替えた順で連番がふれるというものです。

 さて、参照にしたサイトでは、選択クエリの並び替え設定項目がひとつ([購入額])で、関数Numbers([購入額])により希望の連番を取得していましたが、こちらの希望としては、複数の項目([コード]と[番号])で並び替えたクエリをもとに更新クエリを実行しようと思っています。

 そこで質問なのですが、その際、関数の引数としては、[コード][ 番号]どちらを設定するのでしょうか??

 ちなみに両方で試してみたら、ざっと確認したところ、どちらも希望とおりの連番がふられているようでしたが、引数はこだわらなくても大丈夫でしょうか?

 自分の理解では、引数の並び順に連番がふられるので、並び替え項目が複数ある場合、希望とおりの連番がふれない(コードを選択したらコードだけで並び替えが行われ、番号の並び替えが行われない可能性もあるのでは?)のではと思っているのですが、見た目はきちんとなっているような・・・。

 件数が数千と多く、すべてを目で確認することができず、きちんとした値がとれているか確信がもてないので、こちらで教えていただけたらと思い質問しました。

 よろしくお願いします。


以下は関数のコードです。

Dim intcount As Long '値保持のため、枠外に記入。
Function Numbers(strQueryName As String) As Long
  'これはレコードに対してカウンタ番号を返す関数です。
  'なお、この関数は、クエリ上で実行してください。
  intcount = intcount + 1 'カウントを1つ増加させます。
  
  If intcount > 100000 Then
   intcount = 0
  End If
  Numbers = intcount
End Function
                   (win 2000 access 2000)

【11955】Re:更新クエリで連番をふるときに・・
回答  よろずや  - 11/2/19(土) 19:33 -

引用なし
パスワード
   > そこで質問なのですが、その際、関数の引数としては、[コード][ 番号]どちらを設定するのでしょうか??

どちらでも同じですし、他の項目でもかまいません。
この手法は、クエリーで指定した並び順に連番を振ります。
引数は意味を持ちません。
ただし、引数を指定しないと関数が1回しか呼ばれません。
各レコード毎に関数が呼ばれるようにするために、
レコードの値を引数に渡しているだけです。

【11957】Re:更新クエリで連番をふるときに・・
お礼  あおぎん  - 11/2/21(月) 13:18 -

引用なし
パスワード
   ▼よろずや さん:

早速のご回答ありがとうございました。


>> そこで質問なのですが、その際、関数の引数としては、[コード][ 番号]どちらを設定するのでしょうか??
>
>どちらでも同じですし、他の項目でもかまいません。

それを聞いて安心しました。
ということはいくら並び替えの項目が増えても対応できるということですね!

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

384 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078191
(SS)C-BOARD v3.8 is Free