ACCESSでのマクロ、ソート、縦方法の移動の仕方

質問

質問No.1575853をベースとする更なる質問です。
ボタンを押すことで、
　－テーブルをフィールド「氏名」＋「データ」でソートする
　－下記のマクロの考え方を使ってフィールド「通番」に番号を入れる。

問題：１．マクロでのソートの仕方がわかりません
　　　２．縦方向に移動する方法がわかりません。
　　　　　レコードを次に移動するのは、レコード番号をインクリメントすることであって
　　　　　ソートされたレコードを縦方向にで移動するではない様です(?)

基礎情報
　テーブル名：「データテーブル」--フィールド「氏名」,「データ」,「通番」
フォーム名：「DataTable2」--フィールド「氏名」,「データ」,「通番」
　ボタン名　：「実行」(On click)

Private Sub 実行_Click()

DoCmd.GoToRecord acForm, "DataTable2", acFirst
MyCount = 0
temp = ""
Do While [NewRecord] = False
If temp <> Me![氏名] Then
MyCount = 1
Else
MyCount = MyCount + 1
End If
Me![通番] = MyCount
DoCmd.GoToRecord acForm, "DataTable2", acNext
Loop
End Sub

下記にテーブルの内容を示します。
実行前は、本当は、ID順に並んでいると思いますが・・

実行前---

ID 氏名　データ　通番
1 あ 1111
3 あ 3333
6 あ 6666
7 あ 7777
2 い 2222
5 い 5555
4 う 4444
8 う 8888

実行後---
フィールド「通番」に番号が入っている

ID　氏名　データ　通番
1 あ 1111 1
3 あ 3333 2
6 あ 6666 3
7 あ 7777 4
2 い 2222 1
5 い 5555 2
4 う 4444 1
8 う 8888 2

よろしくお願い致します。

回答No.1

GreatDragon · ベストアンサー

> １．マクロでのソートの仕方がわかりません
マクロではなく、ＶＢＡでよいのですよね。
下記のサンプルコードをご確認ください。

>２．縦方向に移動する方法がわかりません。
？
テーブル操作でしたら、ＡＤＯ（またはＤＡＯ）を使用します。
例えば、MoveNextメソッドを使用します。

Public Sub 実行()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnt As Long
Cnt = 0
Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "[データテーブル]", Cn, adOpenKeyset, adLockOptimistic
Rs.Sort = "[氏名] ASC,[データ] ASC" '並べ替え
Do Until Rs.EOF
Cnt = Cnt + 1
Rs![連番] = Cnt
Rs.Update
Rs.MoveNext '次のレコードに移動
Loop
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub

お礼

ありがとうございます。うまく行きました。下記に結果を示します。

Public Sub 実行2_Click()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnt As Long
MyCount = 1
Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "[データテーブル]", Cn, adOpenKeyset, adLockOptimistic
Rs.Sort = "[氏名] ASC,[データ] ASC" '並べ替え
temp = ""
Do Until Rs.EOF
If temp <> Rs![氏名] Then
MyCount = 1
Else
MyCount = MyCount + 1
End If
temp = Rs![氏名]
Rs![通番] = MyCount
Rs.Update
Rs.MoveNext '次のレコードに移動
Loop
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing

MsgBox ("終了しました")
End Sub