[求助][急求]高校教学管理系统登陆代码的问题!!
我用ACCESS做的高校教学管理系统,运行登陆界面时说"缺少对象"
代码如下,请大家看看哪里出了问题!!!
Private Sub 登陆_Click()
On Error GoTo Err_登陆_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If IsNull(用户名) = False Then
If DLookup("[密码]", "用户表", "[用户名]=""" & 用户名 & """") = 密码 Then
DoCmd.Close
DoCmd.OpenForm "系统主窗体"
Else
用户名 = ""
密码 = ""
用户名.SetFocus
MsgBox "用户名或密码错误！", vbCritical
End If
End If
Exit_登陆_Click:
Exit Sub
Err_登陆_Click:
MsgBox Err.Description
Resume Exit_登陆_Click
这个系统总体做完了,但是里面还有些小漏洞,不完善的地方,请大虾帮帮忙看一下,帮我修正一下!!!!万分感激!!!
我那个系统860多K,传不上来.........
