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

nengnengyong

先谢谢大家！
我运行这个登录模块，总告诉我运行时错误'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

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

nengnengyong

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

sgrshh29

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

nengnengyong

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

sgrshh29

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

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