MS Access登录密码表单验证问题：如何避免无限循环

核心思路 #

放弃容易导致死循环的Do While逻辑，改用单次条件判断+焦点引导的方式，既简洁又不会阻塞界面操作。

具体代码实现 #

在KValidatie按钮的点击事件中写入以下VBA代码：

Private Sub KValidatie_Click()
    ' 检查登录名字段是否为空
    If IsNull(Me.FLogin.Value) Or Trim(Me.FLogin.Value) = "" Then
        MsgBox "请填写登录名", vbExclamation, "提示"
        Me.FLogin.SetFocus ' 将焦点定位到登录名字段，方便用户输入
        Exit Sub ' 终止后续代码执行
    End If
    
    ' 检查密码字段是否为空
    If IsNull(Me.Password.Value) Or Trim(Me.Password.Value) = "" Then
        MsgBox "请填写密码", vbExclamation, "提示"
        Me.Password.SetFocus ' 将焦点定位到密码字段
        Exit Sub
    End If
    
    ' 到这里说明两个字段都已填写，执行后续验证逻辑（比如数据库查询匹配等）
    ' 示例：MsgBox "验证通过", vbInformation, "提示"
End Sub

代码说明 #

• IsNull用于判断控件值是否为Null，Trim用于排除纯空格的无效输入
• SetFocus直接把光标定位到未填写的字段，用户无需手动切换
• 每一步验证不通过就直接终止流程，避免无效的循环等待

原循环逻辑问题原因 #

Do While循环会持续占用Access的UI线程，导致界面完全无法响应，用户根本没法输入内容，自然陷入死循环。而单次判断的逻辑是“检查-提示-引导输入-终止”，完全不会阻塞界面交互。

内容的提问来源于stack exchange，提问作者tbennekik