質問: 簡単なことかも知れませんが... クエリーで抽出した結果にオートナンバーをつけたいのですが、方法はありますか?
回答: クエリに自動で連番を付加する機能はありません。(断言) テーブルに[連番]フィールドを作って、VBAを使って連番を入力する以外には、有効な方法がないものと思います。 '以下のコードをモジュールにコピーし、 マクロの「プロシージャの実行」で、 =Renban("クエリ名", "[連番]フィールドの名前", 開始値, 間隔) のようにして使ってください。 開始値、間隔は数字で指定すること。省略してもいいです。(省略時は1が指定されたものとみなす) Public Function Renban(QueryName As Variant, FieldName As String, Optional Start As Long = 1, Optional Step As Long = 1) As Long Dim SrcRS As Recordset Dim Ct As Long On Error GoTo HandleErr On Error Resume Next Set SrcRS = CurrentDb.OpenRecordset(QueryName, dbOpenDynaset) Ct = Start With SrcRS Do Until .EOF .Edit .Fields(FieldName) = Ct .Update .MoveNext Ct = Ct + Step Loop End With ExitHere: Exit Function HandleErr: Select Case Err.Number Case Else MsgBox "エラー " & Err.Number & ": " & Err.Description, vbCritical End Select End Function なんかあったら、補足をお願いします。