database - フィールド SeatNo が 1 つしかない Table Seats に、1 から任意の番号まで連続して番号を追加します。

Question

1 から始まり任意の番号で終わる新しいレコードを生成できるクエリが必要です。

テーブル席ございます。このテーブルには、seat_no フィールドが 1 つしかありません。座席番号は 1 から任意の番号が必要です。

だから助けてください....

Answer 1

これには何らかのループを使用する必要があります。挿入を行うには、DAO レコードセットを使用するか、以下に示すように CurrentDb.Execute メソッドを使用します。

Public Function AddSeats(lMax as Long)
    Dim l as Long
    l = 1
    Do Until l = (lMax + 1)
        CurrentDb.Execute "INSERT INTO TableName (seat_no) VALUES (" & l & ")", dbFailOnError
        l = l + 1
    Loop
End Function