Question

access 如何用VBA增加记录？

如 表：条码表 字段1：条码 字段2：批次
现在我想用VBA自动增加150条记录：
A000001(条码） JJJ1-1（批次）
A000002(条码） JJJ1-1 (批次）
一直到A000150(条码） JJJ1-1(批次）
我对EXCEL的VBA熟悉些，但是对ACCESS不太熟悉，不知道如何添加记录
谢谢！
写入数据就是用CurrentDb.Execute ("insert into 表名(字段1,字段2) values(字段1，字段2)")这种格式吗？

Answer 1

按Alt+F11进入VBA，插入一个模块，粘贴以下代码：

Sub 在条码表中插入150条记录()
For i = 1 To 150
'insert into 条码表(条码,批次) values('A000001','JJJ1-1')
CurrentDb.Execute ("insert into 条码表(条码,批次) values('A" & Right(CStr(1000000 + i), 6) & "','JJJ1-1')")
Next
End Sub

光标定位到“在条码表中插入150条记录()”，按F5执行这个过程。

如果没有解决你的问题，请发百度消息给我。

回复补充:
是的.就是将
CurrentDb.Execute ("insert into 表名(字段1的字段名,字段2的字段名) values('字段1的值'，'字段2的值')")
这一句执行150次..