用DLOOKUP函数解决扫描、手动录入，结果没反应是哪的问题

韩云　发表于：2012-08-26 10:57:03 　

第一个问题：实际操作中，如果录入数量少的时候扫描枪录入反而不方便，所以想让扫描枪和手动录入都能操作，因此想当扫描出编号以后，用DLOOKUP函数调取“员工姓名”或者是“产品名称”试验了几次，总是没能成功，请老师们给看看是哪的问题“

第二个问题：关于隐藏列只能在数据窗体下才可以运行吗，在窗体视图下为何这段代码不起作用呢

Private Sub 手动录入_Click()‘（隐藏扫描列）
Me.机工生产扩展.Form.员工编号.ColumnHidden = True
Me.机工生产扩展.Form.产品编号.ColumnHidden = True
End Sub

点击下载此附件

Top

心态哥发表于：2012-08-26 15:44:10

路过。

Top

韩云发表于：2012-08-27 10:59:37

补充说明：原来是扫描可以录入的但是“员工姓名”或“产品名称”字段必须是文本框，才可以扫描录入的但是如果这样的话手工录入就不行了我是想能有啥办法可以两种办法都能使用这样操作人员还方便一些比如批量录入的时候就用扫描只是一两个的时候就用手动

因为文本框不是下拉形式的没法子选择内容，如果是手动输入的时候必须是组合框这样可以进行选择

因为要是选择编号的话一般谁也记不住那么多的，也就是说如果是扫描枪名称对应的是组合框扫描以后就不显示的，
我现在的想法是保留原来人工录入的时候的效果只是将扫描录入用函数解决
，希望高手们出出招。

Top

cspa 发表于：2012-08-27 11:58:41

关于问题2，程序代码应改为：

手动录入按钮代码改为：

Private Sub 手动录入_Click()
Me.[机工生产扩展].Form![员工姓名].SetFocus
Me.[机工生产扩展].Form![产品编号].Visible = False
Me.[机工生产扩展].Form![员工编号].Visible = False
End Sub

扫描录入按钮代码改为：

Private Sub 扫描录入_Click()
Me.[机工生产扩展].Form![产品编号].Visible = True
Me.[机工生产扩展].Form![员工编号].Visible = True
Me.[机工生产扩展].Form![员工编号].SetFocus '注意，代码顺序不能变，现显示控件，后设置焦点
End Sub

Top

cspa 发表于：2012-08-27 12:00:03

忘了传附件了。这是改过的附件。

点击下载此附件

Top

韩云发表于：2012-08-27 17:29:04

第二个问题解决的挺好，请高手们看看第一个问题有没有高招呀。

Top

cspa 发表于：2012-08-28 08:42:16

关于第一个问题，见附件。

Top

cspa 发表于：2012-08-28 10:49:26