当前位置：首页 - 正文

vb中用text 的change的问题

发布网友发布时间：2024-10-21 10:10

共3个回答

热心网友时间：2024-10-21 11:12

你知道吗，text每改变一次，包括仅仅改变一个字符，text _change都要执行一次啊，你确定你需要他这样吗？

Private Sub text1_change()
If Format(CDate(Text1.Text), "hh:mm") = Format(Data1.Recordset("时间提醒", "hh:mm")) Then '原句中缺个")"
MsgBox ""
End If
End Sub

热心网友时间：2024-10-21 11:09

Private Sub text1_change()
Debug.Print Format(CDate(Text1.Text), "hh:mm")
Debug.Print Format(Data1.Recordset("时间提醒", "hh:mm"))

End Sub
你看下哪句报错。
是不是Format(Data1.Recordset("时间提醒", "hh:mm"))
错了，应该是：
Format(Data1.Recordset.Fields("时间提醒"）, "hh:mm")

热心网友时间：2024-10-21 11:11

format(data1.recordset("时间提醒","hh:mm")
改为
format(data1.recordset("时间提醒"),"hh:mm")

另外，text1_change中只要text1有变动，里面的代码就会运行一次，所以当你的text1里面的字符串不是时间格式的（包括还没有输入完成的时间字串），或者是空字符串，cdate()函数就会报错

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

vb中用text 的change的问题

最新推荐

猜你喜欢

热门推荐