連番について

質問

下記の時のF3を計算したいと思います。どんな方法がありますか。
F1；F2；F3
1；2；1
2；2；1
3；1；2
4；3；3
5；3；3
6；3；3
7；1；4
8；1；5

回答No.3

m3_maki

No.2です。

> F2は個数別のフィールドに2個あるカウントしたものです。
良く分かりませんので無視。
取り敢えず F2 の値と 連続するレコード数の間に矛盾はあり得ないものとして、エラーチェックはしていません。

Sub test2()
Dim strSQL As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim num As Long
Dim cnt As Long
Dim i As Long
strSQL = "SELECT * FROM T_変な連番 ORDER BY F1"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)

With rst
Do Until .EOF
num = !F2
cnt = cnt + 1
For i = 1 To num
.Edit
!F3 = cnt
.Update
.MoveNext
Next
Loop
.Close
End With
Set rst = Nothing
dbs.Close
Set dbs = Nothing
End Sub

補足

教えて頂きましてありがとうございます。
追加補足です。
例1 　例2
F1；F2；F3 　　　　　F1 ; F2 ; F3
1；2； 1 1 ; 1 ; 1
2；2； 1 2; 2 ; 2
3；1； 2 3 ; 2 ; 2
4；3； 3 4 ; 2 ; 3
5；3； 3 5 ; 2 ; 3
6；3； 3 　 6 ; 5 ; 4
7；1； 4 　 7 ; 5 ; 4
8；1； 5 8 ; 5 ; 4
9 ; 2 ; 6 9 ; 5 ; 4
10 ; 2 ; 6 10 ; 5 ; 4

F1とF2に数字が入っておりF3の数字が欲しいのですが、規則性はF3は必ず1から始まります。F1は1から600程度あります。これは1からの連番です。F2はF3の答えが欲しいための唯一の数字です。F2はF3を計算する時に自身の行とその下の行達の行数を示しています。
この例はF2の数字が2であればF3の数字は上下同じになります。ですからF2には1以外は必ず続いて入っています。上記の例2ではF1の2と3がF2が2ですのでF3にはどちらも2が返ります。F1の4と5もF2が2ですがF2が4でないのでF1の2と3とは別です。ですのでF1の4と5には3を返します。このように作りたいのですが、方法が思い浮かびません。アクセスで出す方法をありませんでしょうか。