前言:总结之前遗留问题!
问题一:
错误定位:
解决办法:
1. 在公共模块中添加代码在公共模块中添加代码:
1. Public Function Testtxt(txt As String) As Boolean ' Testtxt(TxtCardNO.Text)
2.
3. '判断输入内容是否为空
4. If Trim(txt) = "" Then
5. Testtxt = False
6. Else
7. Testtxt = True
8. End If
9.
10. End Function
2. 窗体代码:
1. '卡号不能为空
2. If Not Testtxt(TxtCardNo.Text) Then
3.
4. MsgBox "请输入卡号!", vbOKOnly + vbExclamation, "提示"
5. TxtCardNo.SetFocus
6. Exit Sub
7.
End If
问题二:空值
设置空值:
取消空值:
=trim(mrc.fields(0) &“”)
问题三:快速清除文本框:
Dim ctl As Control '定义一个变量,把任何控件装载到里面
'删除所有text文本框内容
For Each ctl In Controls
If TypeOf ctl Is TextBox Then ctl.Text = ""
Next ctl
'删除所有combobox文本框内容
For Each ctl In Controls
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next ctl
问题四:窗体模式
模式窗体和非模式窗体
模式的——使用户只能使用当前窗体,只有当前窗体关闭后其他窗体才可用;可以这样理解,如果你把某个窗体设为模式窗体,那么你要想对其它窗体进行任何操作之前,必须先关闭该窗体。模式窗体强迫用户输入数据,不能切换到其他界面,很多地方会用到,比如在浏览器里点文件——打开,还有打印对话框也是模式窗体。有模式窗口或称模态窗口,Msgbox、Inputbox产生的窗口也属于此类。
非模式的——可以切换到其他窗体,vbModal=1,可选的。一个整数,它用以决定窗体是模式还是无模式 。如果 style 为 0,则窗体是无模式的;如果 style 为 1,则窗体是模式的。
当 Show 在显示无模式窗体时,随后遇到的代码则要执行。当 Show 在显示模式窗体 (modal form) 时,则随后的代码直到该窗体被隐藏或卸载时才能执行。
当 Show 在显示模式窗体时,除了模式窗体中的对象之外不能进行输入(键盘或鼠标单击)。对其它窗体进行输入前程序必须隐藏或卸载模式窗体(通常是处于响应用户某些操作状态)。MDIForm 不能是形式的。在模式窗体显示时,虽然应用程序中的其它窗体失效,但其它应用程序不会失效。