求高手帮忙解决非常难的vba程序access数据库的急!急!急!得真正的高手！

nengnengyong · 发表于 2011-5-17 13:59

先谢谢大家！
我运行这个登录模块，总告诉我运行时错误'424':，要求对象.还有一个黄色箭头指着“用户名.SetFocus”并且“用户名.SetFocus”也是黄色的

Option Compare Database
Dim i As Integer
Private Sub 登陆_Click()
用户名.SetFocus
If 用户名.Text = "xxx" Then
   密码.SetFocus
If Me!密码 = "111" Then
   DoCmd.ShowToolbar ("项目管理菜单")
   Else
If i >= 2 Then
MsgBox ("非法用户")
DoCmd.Close
DoCmd.Quit
End If
      DoCmd.Beep
      MsgBox ("密码不正确!请重新输入")
      i = i + 1
      密码.Text = ""
End If
Else
      If i >= 2 Then
            MsgBox ("非法用户")
            DoCmd.Close
            DoCmd.Quit
         End If
         DoCmd.Beep
         MsgBox ("用户名不正确!请重试!")
         i = i + 1
         用户名.Text = ""
      End If

End Sub

sgrshh29 · 发表于 2011-5-17 16:30

那就是说“用户名”这个控件不存在，或者被禁用。

nengnengyong · 发表于 2011-5-17 16:35

请教高手！：请问我该怎么修改啊？在哪改啊！！！急切盼望中！！！！

sgrshh29 · 发表于 2011-5-17 16:39

把“用户名”改为你那个控件的名称。或者把那个控件的名称改为“用户名”

nengnengyong · 发表于 2011-5-17 16:41

如果需要进入登录模块修改，可是我无法打开那个窗体，进不去怎么改啊！！求教啊！！崩溃了求高手帮忙

sgrshh29 · 发表于 2011-5-17 16:46

原帖由 nengnengyong 于 2011-5-17 16:41 发表
如果需要进入登录模块修改，可是我无法打开那个窗体，进不去怎么改啊！！求教啊！！崩溃了求高手帮忙

把文件传上来。2007和2010的我也没办法，我这里只能2002版本以下的。

		自动登录	找回密码
密码			免费注册

[求助] 求高手帮忙解决非常难的vba程序access数据库的急!急!急!得真正的高手！

终于有人回答了！谢谢请问我该怎么修改啊？在哪改啊！！！

我该怎么办啊