0

嘿,任何帮助将不胜感激谢谢我有一个组合框字段 = name(txtCombo) 和一个 numberField = (txtNumber)

我的代码出现错误,任何帮助将不胜感激。谢谢

Private Sub txtCombo_Click()
If Me.txtCombo.Value = "Meter" Then
Me.txtNumber.Value = 0
End If
End Sub

错误我的代码:

运行时错误:“2448”您无法为对象赋值,由于此代码,我无法继续计算!!!

如果我选择 Meter 值,它必须将 txtNumber 更改为 0

4

1 回答 1

0
Private Sub txtCombo_AfterUpdate()

If (Me.txtCombo.Value = "Meter") Then

Me.txtNumber.Value = "0"

End If

End Sub

如果我理解正确,如果在组合框中选择了仪表,您希望将文本框值设置为 0,那么这将起作用,使用此代码并将其放入组合框中的更新后事件中。

于 2013-05-24T13:48:16.907 回答