根据组合框vba中的选择显示值

时间:2015-05-12 06:03:59

标签: vba ms-access text combobox

我需要在访问表单中根据组合框中的选择显示面额

这里很棘手的是我需要在组合框中选择后立即显示(不保存)。这个是在我保存我的选择之后工作。

If cmb_Main_Impact.Value = "Productivity" Then
Me.txt_Units = "minutes"
End If

If cmb_Main_Impact = "Quality" Then
Me.txt_Units = "number of errors"
End If

1 个答案:

答案 0 :(得分:0)

该代码应该可以正常工作。你想把它放在变化事件的组合框中。

还添加了一个elseif,因此没有多个if和end ifs。将该代码放在具有组合框的userform中。

所以你的代码看起来像。

Private Sub cmb_Main_Impact_Change()

    If cmb_Main_Impact.Value = "Productivity" Then
        Me.txt_Units = "minutes"

    elseIf cmb_Main_Impact = "Quality" Then
        Me.txt_Units = "number of errors"
    End If

End Sub