|
本帖最后由 larrylinli 于 2009-6-6 22:30 编辑
我做了一个窗体,名字就叫“登陆”。界面上有2个文本框,一个是text6,输入用户名,一个是text1,输入密码。2个按钮,command5是确认,command1是重置。我另外建了一个表,名为“密码表”。
想要达到的效果是,输入用户名和密码,用户名一定要在密码表中存在,密码要对应用户名,都正确,打开主窗体。
我从网上搜了下相关问题的解答,从中复制我能理解的,更改了下,然后试试输入用户名密码,我输入的是表中的用户名及相应密码,结果一直显示“无此用户名”。
相应代码如下:(我使用的是access2003)
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(23398) & ChrW(29983) & ChrW(31649) & ChrW(29702) & ChrW(31995) & ChrW(32479)
If Text6.Value = "select id from 密码表 where id'" & Trim(Text6.Value) & " '" Then
If Text1.Value = "select password from 密码表 where id'" & Trim(Text6.Value) & " '" Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox ("密码错误!")
End If
Else
MsgBox ("无此用户名!")
End If
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub
请问如何更改代码?
或者怎么达成这个效果? |
|