[已解决]窗体问题（带附件）

youxinggy

我在窗体内有一文本框，并且设置文本框输入的第一个符号必须是#,当不是#时，会有个消息框弹出提示，当我运行窗体时，在文本框内什么也不输入，然后就关闭窗体，这时也会弹出这个消息框，我想要的是当关闭窗体时，不弹出那个消息框，就直接退出，请问大侠怎么实现？

上次发的没有附件，这次带上附件，请高手指点

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-17 16:08

那就加一句判断；
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 = "" Then Exit Sub   
    If Mid(Me.TextBox1.Text, 1, 1) <> "#" Then
        MsgBox "※※※※※流水号不正确缺少“#”，请检查※※※※※", vbCritical + vbOKOnly
        Beep
        Cancel = True
    End If
End Sub

跳转到最佳答案楼层

zjdh

那就加一句判断；
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 = "" Then Exit Sub   
    If Mid(Me.TextBox1.Text, 1, 1) <> "#" Then
        MsgBox "※※※※※流水号不正确缺少“#”，请检查※※※※※", vbCritical + vbOKOnly
        Beep
        Cancel = True
    End If
End Sub