如何按照密码表实现用户名密码登陆？【以解决】

larrylinli

我做了一个窗体，名字就叫“登陆”。界面上有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
请问如何更改代码？
或者怎么达成这个效果？

larrylinli

用sunny-xie同学的代码达成用户名密码登陆了。

yangzhesheng

还是自己解决的啊

蜗牛加速度

路过

shakamiuu

楼上的蜗牛寿命是多少来着?

wuwu200222

学习