求批量增加记录的代码,谢谢

huang1314

“表1”中有三个字段，字段1数字，字段2文本，字段3是布尔

窗体有“文本框1”、“组合框1”、“组合框2”  三个对象
我想在一个窗体中做一个按钮批量记录到表中
功能是根据”文本框1“输入的数字生成相应的记录数，”字段1“的内容从1开始递增到”文本框1“输入的数字

”字段2“的内容都相同，跟”组合框1“内容一样
”字段3“的内容都相同，跟 ”组合框2“内容一样

例如，在  ”文本框1“输入5，  ”组合框1“内容是A， ”组合框2“   内容是TRUE
代码的效果是
在”表1“中增加5条记录
字段1    字段2    字段3
1              A          TRUE
2              A          TRUE
3              A          TRUE
4              A          TRUE
5              A          TRUE

roych

从Excel里导入追加不行吗？其实我不太建议大家啥都用代码来执行的。代码应该是基本功能无法实现时再考虑的。这里给一段吧。添加一个按钮之后，把以下代码放在单击事件里：
Dim rst As New ADODB.Recordset
rst.Open "select * from 表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To Me.文本框1
rst.AddNew
rst.Fields("字段1").Value = i
rst.Fields("字段2").Value = Me.组合框1
rst.Fields("字段3").Value = Me.组合框2
rst.Update
Next i
rst.Close