简单的access数据库里登录框确定按钮的vb代码,求改错。
这是access数据库里登录框确定按钮的代码,由于一直用c,没学过vb,不知哪里有错,求改错。
Private Sub Toggle13_Click()
Dim Temp As String
If IsNull(Me![User_Name]) Or IsNull(Me![User_Password]) Then
MsgBox "您输入的用户名和密码不能为空,请重新输入!", vbOKOnly, "警告信息"
Else
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Temp = "Select * Form 用户 where 注册名称='" & Me![User_Name] & " 'And 注册密码='" & Me![User_Password] & "'"
rs.Open Temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
DoCmd.Close
DoCmd.OpenForm "切换面板", acNormal, "", "", acFormReadOnly, acWindowNormal
Else
MsgBox "您输入的用户名和密码有误,请重新输入!", vbOKOnly, "警告信息"
End If
rs.Close
Set rs = Nonthing
End If
End Sub
[解决办法]
Temp = "Select * Form 用户 where 注册名称='" & Me![User_Name] & "8'And 注册密码='" & Me![User_Password] & "'"
1.from
2.在8处多一个空格
Temp = "Select * Form 用户 where 注册名称='" & Me![User_Name] & "' And 注册密码='" & Me![User_Password] & "'"
简单的access数据库里登录框确定按钮的vb代码,求改错。该怎么处理
简单的access数据库里登录框确定按钮的vb代码,求改错。这是access数据库里登录框确定按钮的代码,由于一直用
