登录窗体设计

Private Sub OK1_Click()
     Static count As Integer
     count = count + 1
     If Len(Nz(Me!UserName)) = 0 And Len(Nz(Me!UserPassword)) = 0 And count <= 3 Then
          MsgBox "用户名、密码为空！请输入" + Chr(13) + Chr(13) + " 您还有 " & 3 - count & "次机会", vbCritical, "提示"
          Me!UserName.SetFocus
    Elself Len(Nz(Me!UserName)) = 0 And count <= 3
         MsgBox "用户名为空！请输入" + Chr(13) + Chr(13) + " 您还有 " & 3 - count & " 次机会", vbCritical, "提示"
     Me!UserName.SetFocus
ElseIf Len(Nz(Me!UserPassword)) = 0 And count <= 3 Then
    MsgBox "密码不能为空！请输入" + Chr(13) + Chr(13) + "您还有 " & 3 - count & " 次机会", vbCritical, "提示"
    Me!UserPassword.SetFocus
Else
 If Me!UserName = "wz123" Then
    If UCase(Me!UserPassword) = "ABC" Then
         MsgBox "欢迎使用！", vbInformation, "成功"
         count = 0
         DoCmd.Close
         DoCmd.OpenForm "学员窗口"
       Else
         MsgBox "密码有误！" + Chr(13) + Chr(13) + "您还有 " & 3 - count & " 次机会 ", vbCritical, "警告"
       End If
   Else
       MsgBox "用户名有误！" + Chr(13) + Chr(13) + Chr(13) + "您还有 " & 3 - count & "次机会", vbCritical, "警告"
     End If
   End If
   If count >= 3 Then
     MsgBox " 请确认用户名和密码后再登录 ", vbCritical, "警告"
     DoCmd.Close
   End If
End Sub