MS Access顺序号计算和记录生成

Question

好的，这个对我来说是新的...我有一个表，用户输入要输入的记录数（X）。我希望MS Access计算数字X到0并包括0，并在另一个表中输入这些数字作为记录。

[用户输入表]。[编号] = 10

然后将以下数字添加到字段记录编号

中的表Y中

10 9 8 7 6 五 4 3 2 1 0

Answer 1

Public Sub Insert(nBase As Integer)
    Dim nIndex As Integer
    Dim db As Database
    Set db = CurrentDb
    For nIndex = nBase To 0 Step -1
        db.Execute "INSERT INTO [User Entry Table] ([Number]) VALUES (" & nIndex & ")"
    Next
End Sub