ACCESSでVBAを使ったループ処理の仕方をお教え下さい。

質問

テーブルに100データあります。このデータを５データ単位で1-1・1-2・1-3・1-4・1-5・2-1・2-2のような行番号を付けたいのですが可能でしょうか？1-1がフィールド2個になっても構いません。よろしくお願いします。

回答No.2

nicotinism

テーブル名が T1 、順位を決めるフィールドを [番号] とすると
こんな風かも・・。
同じ順位の場合の処理に「難あり」です。私のオツムではこの辺が限界。

SELECT T1.番号,
((DCount("*","T1","[番号]<=" & [番号])-1)\5)+1 &
"-" &
IIf(
(DCount("*","T1","[番号]<=" & [番号]) Mod 5)=0,
5,
(DCount("*","T1","[番号]<=" & [番号]) Mod 5)) AS 五単位,
DCount("*","T1","[番号]<=" & [番号]) AS 順番
FROM FAQ
ORDER BY T1.番号;

クエリのSQLビューに貼り付けてお試しを。
レポートでしか使わないなら、また別の話になってしまいますが・・・。

回答No.1

ryusei2

こんな感じでどうでしょう。

Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 20
For j = 1 To 5
s = i & "-" & j
・・・
Next j
Next i

参考URL：

http://www.amazon.co.jp/gp/product/4883374092/sr=1-3/qid=1163850466/ref=sr_1_3/250-1023105-9673037?ie=UTF8&s=books