Office中国论坛/Access中国论坛

标题: 各位好心人帮帮我，弄好久了！！ [打印本页]

作者: genius0342 时间: 2009-3-18 14:55
标题: 各位好心人帮帮我，弄好久了！！
Private Sub OK_Click()
On Error GoTo Err_OK_Click
Dim str As String
Dim rs As New ADODB.Recordset
logname = Trim(Txt.UserName)
pwd = Trim(Txt.Password)
If IsNull(logname) Then
DoCmd.Beep
MsgBox ("请输入用户姓名!")
ElseIf IsNull(psd) Then
DoCmd.Beep
MsgBox ("请输入用户密码!")
Else
str = "select * from Admin where UserName='" & logname & "' and Password='" & pwd & "'"
rs.Open str, CurrentProject.Connection
If rs.EOF Then
DoCmd.Beep
MsgBox ("没有这个用户,请重新输入!")
Txt.UserName = ""
Txt.Password = ""
Txt.UserName.SetFocus
Exit Sub

Else
DoCmd.Close
MsgBox ("欢迎使用客户关系数据库!")
check = True '设置登陆标志
DoCmd.OpenForm ("主窗体")

End If
End If
Set rs = Nothing
Set conn = Nothing
Exit_OK_Click:
Exit Sub
Err_OK_Click:
MsgBox (Err.Description)
Resume Exit_OK_Click
End Sub

红色的地方以前是Me.但运行总是错误，后来上网查询，有人说改成txt.因为是文本框。可这改完之后，运行就提示“要求对象”。现在要怎么改呢？
我不太会代码，这也是看书上写的，各位好心人帮帮我吧，万分感谢先！！

作者: Grant 时间: 2009-3-18 14:58
新手学习如何发帖
http://www.office-cn.net/vvb/thread-56333-1-1.html

不懂代码应该先找基础学习,把txt改回Me.xx

作者: zyp 时间: 2009-3-18 15:00
应该是用"ME."的, 不过最好文本框的名字不要用跟VB关键词相同或相近的字符串,比如改为T_UserName, 另外, logname 和PWD最好先定义一下再使用

作者: genius0342 时间: 2009-3-18 15:06
Private Sub OK_Click() 反黄
logname = Trim(Me.UserName) 光标到这了

改回Me.后，就是这样的错误。
公司让做的，有点急，没时间从头学，就买本书照着做了。
帮帮我吧，有空我肯定好好学习下代码，不过现在真的没时间了，谢谢版主大人了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)