連番について

質問

下記の時の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.8

piroin654 · ベストアンサー

話の内容から、F2に随時データを入力していくものとして。
F2に入力していくとF2に入力されたデータに基づいて
関連するF2、F3にデータが入るようにする、という
方法だと思いますが、いいですかね。
テーブルに直接入れながらこういう処理はできないので、
フォームを利用します。

テーブル名は「テーブル連番」として
F1 オートナンバー
　F2　数値型
　F3　数値型
とします。とくにF1を主キーにする必要はありません。
必要ならば設定してください。
なお、テーブル名やフィールド名は実際の名称にしてください。
テーブル名はコードの中にも一つ出てきます。それも
変更してください。

テーブルを元に選択クエリを作り、名前をQ連番とします。

フィールド---　F1 -----------　F2 　------　Ｆ3
テーブル-----テーブル連番 ---テーブル連番 ---テーブル連番
並び替え-----昇順
表示---------- ☑　　-----------　☑　-------------☑
抽出条件-------
または---------

のようにします。
これはオートナンバーの並びを昇順にして並びを
確定するためです。

このクエリを元にフォームの新規作成から
帳票フォームを作成します。
出来たら、フォームをデザインビューで
開き、F2のプロパティシートを開き、
F2の更新後処理を選択し、クリックしてコード表を
開きます。
まず、コード表の上部に、

Option Compare Database
Option Explicit

のあとに続いて、

'フォームのGeneralに設定
Dim s2Data As Long
Dim s3Data As Long

を貼り付けます。
次に、

Private Sub F2_AfterUpdate()

End Sub

の間に以下のコードの中身をコピーし、貼り付けます。
これで終了です。

Private Sub F2_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Long

Set db = CurrentDb
Set rs = db.OpenRecordset("テーブル連番", dbOpenDynaset)

'データが何も入力されていない場合。
'当然ながら関連するF3には1が入る。
If rs.RecordCount = 0 Then
If Me.NewRecord Then
　　s2Data = Me!F2
　　Me!F3 = 1
　　s3Data = Me!F3

　　If Me!F2 > 1 Then
　　For i = 1 To Me!F2 - 1
　　　　rs.AddNew
　　　　　　rs!F2 = s2Data
　　　　　　rs!F3 = s3Data
　　　　rs.Update
　　Next i
　　End If
　　DoCmd.RunCommand acCmdSaveRecord
　　Me.Requery
End If
GoTo ER
End If

'すでに入力されてレコードが存在している場合。
If rs.RecordCount > 0 Then
　　s2Data = Me!F2
　　Me!F3 = s3Data + 1
　　s3Data = Me!F3
　　If Me!F2 > 1 Then
　　　　For i = 1 To Me!F2 - 1
　　　　　　rs.AddNew
　　　　　　　　rs!F2 = s2Data
　　　　　　　　rs!F3 = s3Data
　　　　　　rs.Update
　　　　Next i
　　End If
　　DoCmd.RunCommand acCmdSaveRecord
　　Me.Requery
End If
ER:
rs.Clone: Set rs = Nothing
db.Close: Set db = Nothing
End Sub

これで、Fに入力していくとF2に入力された
データに基づいて関連するF2、F3にデータが
入っていきます。

下記のようにF2へのデータ入力で
F2が2以上ならば関連するF2やF3に
データが自動入力されます。

F1-----F2------F3

1-------3-------1
2-------3-------1
3-------3-------1
4-------1-------2
5-------2-------3
6-------2-------3
7-------1-------4
8-------3-------5
9-------3-------5
10------3-------5
11------2-------6
12------2-------6