编程论坛 » ACCESS » [求助][急求]高校教学管理系统登陆代码的问题!!

凌空起舞 发表于 2007-5-6 12:53

[求助][急求]高校教学管理系统登陆代码的问题!!

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

凌空起舞 发表于 2007-5-6 13:05

55555有米人啊?我快急死了,明天就要交了

jxyga111 发表于 2008-6-20 18:53

我自己有一个和你的不太一样要不要

查看完整版本: [求助][急求]高校教学管理系统登陆代码的问题!!