按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 条码表(条码,批次) values('A" & Right(CStr(1000000 + i), 6) & "','JJJ1-1')")
是什么意思?
追答执行命令:插入到表格:条码表中,字段1(条码)的值为A000001,字段2(批次)的值为JJJ-1,大概是这样的意思,你照这样改就差不多了
追问请问这种”条码表“的字段哪里可以查询?
追答条码表是一个表格,表格名称是"条码表",换成你自己的表的名称就是