很简单的问题，枪分罗

Question

在下一步的按钮里写一个这个
button1_click
{messagebox("你还没输入有数据")
}

Answer 1

写几个通用函数,用来判断参数是否为空,如果是数值型参数,可以进行转化如有错误进行提示.
function emptystr(byval sStr As String) as boolean
On Error GoTo err
   if trim(sStr)="" then 
      emptystr=true
   else 
      emptystr=false
   end if
 Exit Function
err:
   emptystr=false    
End Function用法:
   if emptystr(teststr) then messagebox("没有数据!") end if其它类型相似,或者先进类型转换之后再用上面的函数判断.

Answer 2

代码如下，测试通过
Dim txtChang As BooleanPrivate Sub nextbtn_Click()
If txtChang <> True Then
msgbox "你还没输入有数据"
Text1.SetFocus
else
msgbox "可以进入下一步"
End If
End SubPrivate Sub Text1_Change()
txtChang = True
End Sub

Answer 3

button1_click()
   
    if text1.text = "" then
       messagebox("你还没输入有数据")
    else
    '
    endif    end

Answer 4

Private Sub cmdnext_Click()
if trim(text1.text)="" then
    msgbox"您还没有在姓名框输入数据！"
    text1.setfocus  
Exit Sub
End If
end sub

Answer 5

判断trim(text1.text)="" 不好，要是Text1控间有字符判断就可以通过：）

Answer 6

同意 hms(追梦) 和   platinumkill(bb) 的方法。。