Vba Dlookup条码

早上好

我是一名药剂师，正在制作一个数据库来捕获正在生产的药物。我有一个名为

“药物”

的表，该表中有主键，

条形码

，然后是一个名为

药物

的文本字段。我显然是在用药物及其相应的条形码手动填写这两个字段，但我正在尝试这样做，以便我有一个表单供输入，在该表单中，使用它的人将扫描药物，然后从扫描仪读取的内容将转换为实际的药物名称，而不仅仅是条形码编号。我知道我需要执行一个

Dlookup

来执行这个动作，但我似乎无法让它工作，任何帮助或起点都将不胜感激。非常感谢你

到目前为止我的代码

Private Sub MedicationUsed_AfterUpdate() 
MedicationUsed = DLookup("Drug", "Med Used", "[Barcode=]" & Barcode) 
End Sub

试试这个：

MedicationUsed = DLookup("Drug", "[Med Used]", "[Barcode]=" & Barcode) 

或者，更可能的情况是，条形码可能是一个字符串：

MedicationUsed = DLookup("Drug", "[Med Used]", "[Barcode]='" & Barcode & "'") 

---

请发布您尝试过的内容。

Private Sub medicing Used\u AfterUpdate（）medicing Used=DLookup（“药物”、“药物使用”、“条形码=]”和条形码）End Sub

我认为您应该花20个小时左右的时间研究MS Access表单。关键词：MS Access搜索表单。下面是一个示例。如果您使用了错误的表名

Med Used

，那么这应该是

药物

DLOOKUP是什么，表，标准。另外，

me.medicationused=

扫描仪的工作原理与键盘类似。如果文本框有焦点且您扫描条形码，则条形码将输入文本框。扫描仪可能还会在文本框中输入一个换行符，这可能会有帮助，也可能会有问题。还可以对扫描仪进行编程，以发送额外的密钥代码。我建议使用手动扫描仪来减少用户错误并加快数据输入。您可能必须使用TextBox KeyUp事件来处理扫描仪输入。