我从Excel 2016 VBA下面的代码。对象如何与客户断开连接?
Private Sub useridno_AfterUpdate()
Dim strMsg As String
Dim ret_type As Integer
Dim strTitle As String
strTitle = "Wrong User ID Number!"
strMsg = " Would you like to try again?"
If Me.useridno.Value <> 1 Then
ret_type = MsgBox(strMsg, vbYesNo + vbCritical, strTitle)
Select Case ret_type
Case 6
Me.useridno.SetFocus
Me.useridno.Text = ""
Case 7
Unload Me
End Select
End If
End Sub
当我运行它,它返回以下错误:
发生这种情况时,我选择在消息框中的“否”按钮。这是为什么?
变化的数据类型与变种昏暗ret_type作为整数变暗ret_type为Variant – Sixthsense
什么样的控制是'useridno'? –
@RobinMackenzie,这是我的用户表单中的文本框。 –