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执行这个过程。
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,大概是这样的意思,你照这样改就差不多了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询