access登录窗口校验代码一

Private Sub login_Click()If IsNull(Me.username) ThenMsgBox "请输入用户名！", vbExclamationElseIf IsNull(Me. ...