示例
点击下载此附件
Private Sub Command4_Click()
Dim i As Long '次数
Dim S As Long
S = Val(Me.起) - 1 '给S赋初值
Dim rst As DAO.Recordset 'DAO方法
Set rst = CurrentDb.OpenRecordset("表1", dbOpenDynaset)
For i = Val(Me.起) To Val(Me.终)
rst.AddNew
S = S + 1
rst!序号 = S
rst.Update
Next i
rst.Close
Set rst = Nothing
'关闭 rst 以省下内存空间
DoCmd.OpenTable "表1"
End Sub