如何基于IF语句Access 2010在文本框中显示不同的值

Question

我对VBA完全不熟悉。 我试图在表单中获取一个文本框，以根据选择的下拉菜单显示不同的值。 例如 下拉列表有4个值：A，B，C，D（从表中获取） 对于每个值，都有一个estFees字段（即A estFees，B estFees等）

我在表单中创建了一个textBox，我希望： 在下拉菜单中选择A时=> textBox中的文本显示A estFees等

这是我到目前为止所尝试的： 在textBox的After Update事件中，我写了这句话：

if me.cboJob.value = "A" then me.textBox.text = Tables![tableA]![estFees]

无法让它发挥作用。任何帮助将不胜感激。

Answer 1

我认为您需要根据查询建立组合或使用DLookup，我建议第一种可能性，例如

 SELECT t1.OptionValue, t2.estFees
 FROM Table1 t1
 INNER JOIN  TableA t2
 ON t1.Optionvalue = t2.OptionValue

然后，您可以将文本框设置为：

 Me.MyCombo.Column(1)

请注意，计数从零开始。

DLookUp会建议

=DLookup("estFees","TableA", "OptionValue='" & MyCombo & "'")

有许多变量，上面是草图。