Excel Vba希望用户在未填写表格时强制填写表格。程序不应继续

我有一个表单，用户应该填写，如果某些字段没有填写，该表单不应该继续，但它仍然可以，可能是我没有看到一些东西帮助请

如果Me.cbTyreNsf.value=”“，则此按钮位于按钮下方

函数的代码 选择案例avar 大小写“空” 呼叫插入轮 其他情况 调用updateWheel 结束选择

以及函数调用的函数的代码

 nssf = Me.cbTyreNsf.value

Select Case nssf
Case "0"
    MsgBox " Please enter the NSF tyre value", vbCritical
    Me.cbTyreNsf.SetFocus
   ' MsgBox "about to exit"
    Exit Sub

Case Else
    nsf = CInt(nssf)
End Select

有什么需要帮忙的吗？我已经用了24小时了。我尝试了每件事。

这可能是个问题：

nssf = Me.cbTyreNsf.value

如果cbTyreNsf中没有任何值，则不会将任何值传递给nssf。（此时请尝试msgbox（nssf），它会给您一个空白的消息框）。若您想使用当前的select用例测试它，那个么您可以尝试检查值的长度，对于空的cbTyreNsf，该值将为0

nssf =Len(Me.cbTyreNsR.value)

---

我期待一个整数

nssf =Len(Me.cbTyreNsR.value)