access如何实现自动输入

liuwule　发表于：2015-03-17 11:04:57 　

复制

如图如图所示，将扫描数据自动输入到对应的表格，本人新手，求详细一点的代码或步骤，万分感激！

点击下载此附件

Top

yuhong 发表于：2015-03-17 17:23:55

CurrentDb.Execute "UPDATE 生产基础跟踪数据表 SET 生产基础跟踪数据表.交货日期 ='" & Now & "' WHERE (生产基础跟踪数据表.生产单号)='" & Me.生产单号 & "'"

Top

yuhong 发表于：2015-03-17 18:10:12

因为我这里不确定条形码所能引发的事件，所有只能提供一段代码，你可以放在按钮里实验！

If DCount("生产单号", "生产基础跟踪数据表", "生产单号 = '" & Me.生产单号 & "'") > 0 Then
CurrentDb.Execute "UPDATE 生产基础跟踪数据表 SET 生产基础跟踪数据表.交货日期 ='" & Now & "' WHERE (生产基础跟踪数据表.生产单号)='" & Me.生产单号 & "'"
End If

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

access如何实现自动输入