| |
では、ADOから。
フォームのコードモジュール画面のツールバーの
ツール→参照設定をクリックして出てきたWindowsの
中からMicrosoft ActiveX Data Object 2.x(最新版）
Libraryにチェックが入っているか確認下さい。
チェックが入っていなければチェックを入れて
ＯＫを押してください。
これでADOが利用可能となります。
次に、動作確認の為に適当なフォーム（新規でも可）に
コマンドボタンを追加してこのコマンドボタンのプロパティー
からクリック時のイベントでコードモジュール画面を
開いて下記のコードをCopy若しくは入力下さい。
Dim cn As New ADODB.Connection
Set cn = CurrentProject.Connection
Dim rst As New ADODB.Recordset
Dim Num As New ADODB.Recordset
（テーブルの名前は仮に「連番」と致しましたので
正規のテーブル名に変更願います。
又、フィールド名の実際の名前に変更下さい）
rst.Open "Select 氏名 From 連番 Group By 氏名", cn
Dim str_Name As String
Dim strSQL As String
Dim intX As Integer
Do Until rst.EOF
str_Name = rst!氏名
strSQL = "Select * From 連番 Where 氏名 = '" & str_Name & "' Order By" _ (strSQLからここまで一行です）
& " 日付 ASC"
Num.Open strSQL, cn, adOpenStatic, adLockOptimistic
intX = 1
Do Until Num.EOF
Num!番号 = intX
Num.Update
intX = intX + 1
Num.MoveNext
Loop
Num.Close
Set Num = Nothing
strSQL = ""
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
フォームのこのコマンドボタンをクリックすれば
上記のコードが走ります。
結果は下記の通りです。
氏名 日付 番号
ツヨシ 2004/6/30 1
タケシ 2004/8/15 1
ツヨシ 2004/11/4 2
タケシ 2004/11/25 2
タケシ 2004/12/24 3
以上ですが、分からない処があれば質問下さい。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 04/11/27(土) 16:16 -
