跪求各位帮帮我,这是为什么呢?问题是程序运行的时候,提示方法和数据成员未定义

kjgfs 2013-08-03 11:16:50
Option Compare Database
Option Explicit

Private Sub cmdEnter_Click()
On Error GoTo err_cmdlogin_click
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
Dim Loginflag As Boolean
str = "select 系统密码.ID from 系统密码 where 系统密码.ID='" & Me.用户名称
str = str & "'and 系统密码.用户密码='" & Me.用户密码 & " '"
str rs = getrs(str)
num = rs.RecordCount
If IsNull(Me.用户名称) Then
MsgBox ("请输入用户名称")
ElseIf IsNull(Me.用户密码) Then
MsgBox ("请输入用户密码!")
ElseIf num <> 1 Then
MsgBox (" 没有这个用户,或者密码错误!")
Else
Me.Visible = False
Loginflag = True
DoCmd.OpenForm "切换面板"
End If
exit_cmdlogin_click
Exit Sub
err_cmdlogin_click
MsgBox (Err.Description)
Resume exit_cmdogin_click
End Sub
Private Sub cmdExit_click()
On Error GoTo err_cmdclose_click
DoCmd.Close
exit_cmdcose_click
Exit Sub
err_cmdclose_click
MsgBox Err.Description
Resume exit_cmdclose_click
End Sub
Private Sub From_load()
Me.用户名称 = "zhangsong"
Me.用户密码 = "123456"
End Sub

问题是程序运行的时候,提示方法和数据成员未定义,请问这是为何呢?
...全文
50 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ACMAIN_CHM 2013-08-04
单步调试,检查 str 的实际变量内容是什么。
回复
kjgfs 2013-08-04
我按照您说的方法做了,还是出现提示“用户名称”提示方法和数据成员为定义,前辈,请问这是为什么呢?
回复
ACMAIN_CHM 2013-08-03
调试中停在哪一句?
回复
关工 2013-08-03
你没把me表加到from后面。 str = "select 系统密码.ID from 系统密码, me where 系统密码.ID='" & Me.用户名称
回复
kjgfs 2013-08-03
调试中停在以下程序的:“用户名称”提示方法和数据成员为定义 str = "select 系统密码.ID from 系统密码 where 系统密码.ID='" & Me.用户名称
回复
发帖
Access
创建于2007-09-28

7517

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
申请成为版主
帖子事件
创建了帖子
2013-08-03 11:16
社区公告
暂无公告