len(trim(TEXT1.TEXT))=0
你可以判断文本长度    

解决方案 »

  1.   

    if  trim(text1)=""  then 
       msgbox "先填如字符"
    end if
      

  2.   

    IsEmpty 但有时候没用
    就用 if TEXT1.TEXT=""  then
    ^^^
      

  3.   

    用长度,因为是空字符串
    自己写一个也行啊Private Function isEmptyA(ByVal text As Variant) As Boolean    If LenB(text) = 0 Then
            isEmptyA = False
        Else
            isEmptyA = True
        End If
       
    End Function