Dlookup条形码

时间:2017-08-22 15:25:04

标签: vba ms-access

早上好,

我是一名药剂师,正在建立一个数据库来捕获正在制造的药物。我有一个名为"Medications"的表,在该表中是主键Barcode,然后是一个名为Drug的文本字段。我显然是用药物及其相应的条形码手动填写这两个字段,但我正在努力使它有一个输入表格,并且在那种形式下谁使用它将扫描药物然后从中读取的内容扫描仪将转换为实际的药品名称,而不仅仅是条形码编号。我知道我需要执行一个Dlookup来执行此操作,但我不能为我的生活似乎让它工作,任何帮助或一个开始的地方将不胜感激。非常感谢。

到目前为止我的代码

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

1 个答案:

答案 0 :(得分:1)

试试这个:

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

或者更可能的是,条形码可能是一个字符串:

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