帮忙看看有没有错！！

gxy100

为什么在家里行的复制到单位里就不行了！！都是2003版！！
Private Sub Command19_Click()
    '定义 connection 对象
     Dim cn As New ADODB.Connection
     Dim rs As New ADODB.Recordset

     
     Dim username As String
     Dim userpass As String
     Dim sql As String
     '使用access内置 connection对象
     Set cn = CurrentProject.Connection
     ADODB.Command
     ADODB.Command
     Text1.SetFocus
     username = Text1.Text
     Text3.SetFocus
     userpass = Text3.Value
     sql = "select*from 用户表  where 用户名 ='" & username & " 'and 密码 = '" & userpass & "'"
     Debug.Print sql
      rs.Open sql, cn
     If rs.EOF Then
           MsgBox "登录失败！再来"
           Text1.SetFocus
           Text1.Text = ""
           Text3.SetFocus
           Text3.Text = ""
    Else
           DoCmd.Close
           DoCmd = "主界面"
           MsgBox "变细！！你又进来了啊！！！！！"
    End If
    '关闭 recodset 对象和connection对象并释放内存资源
    rs.Close
    cn.Close
    Set rs = Nothing
End Sub

gxy100

Henry D. Sy 发表于 2012-6-26 15:23
我电脑上不会呀

谢谢！！麻烦你们了！！原来是我单位电脑版本原因！！谢谢

gxy100

roych 发表于 2012-6-26 15:50
修改完，貌似没什么问题。

晕死！！！原来是电脑版本原因！！谢谢你们！！谢谢！！呵呵

roych

修改完，貌似没什么问题。

Henry D. Sy

gxy100 发表于 2012-6-26 15:15
真想不通了！还是跳出那个图片来

我电脑上不会呀

gxy100

家里的那个手提电脑用好好的，在单位就是不行了

gxy100

Henry D. Sy 发表于 2012-6-26 15:06
帮你修改在6楼

真想不通了！还是跳出那个图片来

Henry D. Sy

另外：以后应该用简明的标题提问！！！

Henry D. Sy

gxy100 发表于 2012-6-26 15:05
跳出了这样一个

帮你修改在6楼

gxy100

Henry D. Sy 发表于 2012-6-26 15:01
控件名称错误应该是command19

跳出了这样一个