Vba 每次单击按钮时更新文本框

我正在尝试设置一个用于接受订单的用户表单。e、 g.每次单击卡布奇诺按钮时，文本框将增加一个，表示您正在订购1、2、3等

据我所知，只需填充文本框一次。每一次额外的点击似乎都没有任何作用。这是我目前拥有的代码。我尝试将

num

声明为public。我认为这可能是问题的一部分，但似乎没有什么不同。这可能是一个类型转换问题，因为它是一个“文本”框，我试图将其视为整数

Private Sub Capuccino_Click()

   If (Cap_qty.Value = Null) Then
    Dim num As Integer
    num = 1
    Cap_qty.Value = Cap_qty.Value + num
    ElseIf (Cap_qty.Value = IsNotNull) Then
        num = num + 1
        Cap_qty.Value = num
        'Cap_qty.Value = num + 1
        'num = Cap_qty.Value

    End If
End Sub

---

嗯，那就不一样了。我在某处看到一些东西，告诉我使用Null，IsNotNull。我能够让它与下面的工作在目前没有意义，我将不得不找出它为什么这样工作。我猜有一些背景动作正在发生，让我用刺痛来做数学

私有子命令按钮1_单击（）

如果（TextBox1.Value=vbNullString），则

TextBox1.Value=1 否则

TextBox1.Value=TextBox1.Value+1 如果结束

端接头

---

​

好吧，那就不一样了。我在某处看到一些东西，告诉我使用Null，IsNotNull。我能够让它与下面的工作在目前没有意义，我将不得不找出它为什么这样工作。我猜有一些背景动作正在发生，让我用刺痛来做数学

私有子命令按钮1_单击（）

如果（TextBox1.Value=vbNullString），则

TextBox1.Value=1 否则

TextBox1.Value=TextBox1.Value+1 如果结束

端接头

---

​

你为什么不用旋转按钮呢？另外，

Null

和

IsNotNull

在VBA中不存在，请尝试使用

vbNullString

和

（不相等）运算符。为什么不改用旋转按钮呢？另外，VBA中不存在

Null

和

IsNotNull

，请尝试

vbNullString

和

（不相等）运算符。