VBA如何检查数据库中是否存在userform组合框值

Question

我自学vba，目前我正在为我公司构建一个基于表单的库存控制系统，该系统将材料转换成定制尺寸。由于业务的定制性质取决于客户，所使用的基材的尺寸等，在使用基材之后，可能存在无数不同的切割或成品。因此，很难知道该产品是否已经存在于数据库（FinPriceList）中，而没有实际滚动并查找它。因此，我正在寻找一种方法来检查产品是否存在于FinPriceList表中（分别为列A，B，C & D），使用vba交叉引用来自组合框（FinProdGroup），产品类别“FinProdCat”的输入，产品说明“FinProdDesc”和用户窗体FinProdUserForm中的文本框产品大小“FinProdSize”。

我现在尝试如下，因此任何帮助，将不胜感激：

Sub VerifyStock() 
Const DQTE = """" 

Dim criteria1 As String 
Dim criteria2 As String 
Dim criteria3 As String 
Dim criteria4 As String 
Dim evalStr As String 
Dim prodCode As Variant 

criteria1 = FinProdIn.FinProdGroupIn.Value 'combobox1 from userform 
criteria2 = FinProdIn.FinProdCatIn.Value 'combobox2 from userform 
criteria3 = FinProdIn.FinProdDescIn.Value 'combobox3 from userform 
criteria4 = FinProdIn.FinProdSizeIn.Value 'combobox4 from userform 
evalStr = "INDEX(FinishedPriceList,MATCH(" & DQTE & criteria1 & DQTE & "&" & DQTE & criteria2 & DQTE & "&" & DQTE & criteria3 & DQTE & "&" & DQTE & criteria4 & DQTE & ",FinPriceList!$A:$A&FinPriceList!$B:$B&FinPriceList!$C:$C&FinPriceList!$D:$D,0))" 
prodCode = Evaluate(evalStr) 

If VarType(prodCode) = vbError Then 
    MsgBox "Not Found! Would you like to add new product to stock list?", vbYesNo 
    If Response = vbNo Then 
     MsgBox "Cancelled", vbInformation 
     Unload FinProdIn 
    Else 
    Call ModuleAddtoFinPriceList.AddtoFinPriceList 
    End If 
Else 
    MsgBox "Product found would you like to add a transaction?", vbYesNo 
    If Response = vbNo Then 
     MsgBox "Cancelled" 
     Unload FinProdIn 
    Else 
     Call ModuleAddTrans.AddTrans 
    End If 
End If 
End Sub 

Answer 1

使用Index和Match工作表函数与Evaluate VBA相结合的方法。例如，如果你的产品代码（或部分号码，或其他标识符）是在范围A2：A5000，你有两个标准在B2匹配：B5000和C2：C5000，可以使用：

Sub FindVal() 
    Const DQTE = """" 

    Dim criteria1 As String 
    Dim criteria2 As String 
    Dim evalStr As String 
    Dim prodCode As Variant 

    criteria1 = "ABC" 
    criteria2 = "DEF" 
    evalStr = "INDEX($C$2:$C$5000,MATCH(" & DQTE & criteria1 & DQTE & "&" & DQTE & criteria2 & DQTE & ",$A$2:$A$5000&$B$2:$B$5000,0))" 

    prodCode = Evaluate(evalStr) 

    If VarType(prodCode) = vbError Then 
     MsgBox "No match found" 
    Else 
     MsgBox "Value found: " & prodCode 
    End If 
End Sub