如何在窗体里做到跳过某个必填文本框时提示要先填写

颜虎　发表于：2009-11-13 08:41:38 　

复制

老师们好！

如何在窗体里做到跳过某个必填文本框时提示要先填写该字段，光标也回到该字段后，如果还想离开该字段时，是不能离开的，必需填好才能离开！

谢谢！

Top

andymark 发表于：2009-11-13 09:18:38

Private Sub Text3_Exit(Cancel As Integer)
If IsNull(Me.Text3) Then
Cancel = True

End If
End Sub

Top

颜虎发表于：2009-11-13 13:23:27

1楼的只是光标在此文本框里时才不能离开，可我的是跳过某个必填文本框时提示要先填写该字段，光标也回到该字段后，如果还想离开该字段时，是不能离开的，必需填好才能离开！

意思是排队，排到它时你必须先填写它，否则那怕你的光标不在它里面它也会提示该字段要先填写，然后光标也回到该字段后，如果还想离开该字段时，是不能离开的，必需填好才能离开！

Top

andymark 发表于：2009-11-13 13:33:38

做了个简单例子

点击下载此附件

Top

qixiang 发表于：2009-11-13 13:47:19

那样是可以，可是有时候不想编写了，想直接按关闭按钮，怎么办？

Top

qixiang 发表于：2009-11-13 13:47:55

那样是可以，可是有时候不想编写了，想直接按关闭按钮，怎么办？

点击下载此附件

Top

andymark 发表于：2009-11-13 14:04:57

点击下载此附件

Top

andymark 发表于：2009-11-13 14:10:42

UNLOAD 理判断一下就行了

Private Sub Command9_Click() '关闭
On Error Resume Next
DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me.Text2) Then
    Cancel = True
    MsgBox "数据不完整,不能退出"
    Me.Text2.SetFocus
    Exit Sub
End If

End Sub

上面的例子,数据库可能损坏,重新上传一下

点击下载此附件

Top

qixiang 发表于：2010-02-25 08:55:59

点击下载此附件

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

如何在窗体里做到跳过某个必填文本框时提示要先填写