往access里添加新记录的问题

在窗体数据表时可以查找相关的记录，那么在窗体表中想要添加新的记录，接下来就简单的分享下方法。

1、首先在acces窗体的显示表中，单击添加记录按钮。

2、然后即可添加空白记录段添加之后，并输入文字。

3、然而单击空白处，即可添加成功，如下图所示。

4、如果想要删除，这时选中要删除的记录字段。

5、然后在菜单工具栏中单击删除按钮，如下图所示删除成功。

按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执行这个过程。

按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次..

---