テーブルの左端に通し番号を付ける

教えてください！
下記のモジュールで走らせると、
「ユーザ定義型は定義されていません」
と表示が出て止まってしまいます。

要は、左端の「No.」という列に
通し番号を入れたいのですが・・・。

Option Compare Database

Sub setNumber(tblname As String, fldname As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim ssql As String
Dim dblCnt As Double
Dim strCnt As String

dblCnt = 0
Set db = CurrentDb()
ssql = "SELECT * FROM " & tblname
Set rs = db.OpenRecordset(ssql)
rs.MoveFirst
Do While Not rs.EOF
dblCnt = dblCnt + 1
strCnt = Format$(dblCnt, "00000000")
rs.Edit
rs.Fields(fldname).Value = strCnt
Debug.Print strCnt
rs.Update
DoEvents
rs.MoveNext
Loop
End Sub
Sub Execute()
Call setNumber("◎テーブル１", "No.")
End Sub

No.2 ベストアンサー 回答者： O_cyan 回答日時： 2005/04/23 18:33

VBの参照設定がされていないのではと思うのですが・・。

参照設定を開いて　Microsoft DAO 3.5 Object Library　にチェックを入れて再度立ち上げなおし試してください。
DAOのObjectLibraryのバージョンはお使いのＶＢで違うかもれません。

この回答へのお礼

回答ありがとうございます！
とりあえず動いたのですが、
実はこのテーブル、５０万レコードで５００Ｍ
ぐらいの大きさなのですが、これを走らせると
なぜか３０万ぐらいのところで止まるのです。
なんでかなーと見てみると、なぜか２Ｇに！
書き方が悪いんでしょうか・・・？

お礼日時：2005/04/24 02:15

No.1 回答者： O_cyan 回答日時： 2005/04/23 18:32

VBの参照設定がされていないのではと思うのですが・・。

参照設定を開いて　Microsoft DAO 3.5 Object Library　にチェックを入れて再度立ち上げなおし試してください。
DAOのObjectLibraryのバージョンはお使いのＶＢで違うかもれません。