Microsoft Access 掲示板

ありがとう!!!!!
実は、とりあえず連番を振ろうと思い、コードをひとつ書いてみたのですが、

Sub dao()

    Dim DB As dao.Database 'Databaseオブジェクトを扱う変数（DB）を宣言
    Dim rst As dao.Recordset 'Recordsetオブジェクトを扱う変数（RS）を宣言
    Dim strSQL As String
    Dim i As Long

    strFileName = "出勤 - コピー.accdb"
    Set daoCn = DBEngine.Workspaces(0).OpenDatabase("C:\Users\tasuk\Desktop\VBA\経理\出勤\" & strFileName)

    jan = "1000000000016"

    strSQL = "SELECT 個人データ.氏名,出勤データ.月日 FROM 個人データ INNER JOIN 出勤データ ON 個人データ.jan=出勤データ.jan WHERE  出勤データ.jan = '1000000000016' ORDER BY 出勤データ.月日 DESC" '古い順はASC

    Set daoRs = daoCn.OpenRecordset(strSQL, dbOpenDynaset) 'ADOレコードセットオブジェクトを作成

    If daoRs.RecordCount <> 0 Then
        i = 1
         Do
          daoRs.Edit
          daoRs!番号 = i
          daoRs.Update
          i = i + 1
          daoRs.MoveNext
         Loop Until daoRs.EOF = Rtrue
    End If
     daoRs.Close
End Sub

daoRs!番号のところで、このコレクションには項目がありませんのメッセージが、
出勤 - コピー.accdbには、番号のフィールドを追加しておいたのに
ということで、困っていたのです。

さっそく読ませていただきます。