Question

下面的代码是我尝试使其与VBA一起使用，但不知道如何链接代码，否则不起作用？

Option Compare Database

    If siteType = "Pennies" Then
        siteModel = TblPennies
    ElseIf siteType = "Nickels" Then
        siteModel = TblNickels
    ElseIf siteType = "Dimes" Then
        siteModel = TblDimes
    ElseIf siteType = "Quarters" Then
        siteModel = TblQuarters
    ElseIf siteType = "Half Dollars" Then
        siteModel = TblHalfDollars
    ElseIf siteType = "Dollars" Then
        siteModel = TblDollars
    End If
End Function

我希望表单字段“模型”仅显示输入的“类型”字段的选择。我现在只有空白。谢谢

Answer 1

假设siteType和siteModel是组合框的名称。简化代码。

Me.siteModel.RowSource = "Tbl" & Replace(Me.siteType, " ", "")
Me.siteModel.Requery

现在找出要放入代码的事件。建议表单Current和siteType AfterUpdate。

根据输入到另一个查找字段的结果，尝试将6个不同的表连接到查找字段

1 个答案: