关于一个酷毙了的用户登陆例子

佳佳

任意输入字符用户名..不要任何密码,,即可进入 ？？  怎样解决啊


Private Sub Cmd确定_Click()
On Error GoTo Err_Cmd确定_Click

If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
    And Me.Combo用户名 <> "" Then                           '验证用户和密码)

    DoCmd.Close
    DoCmd.Close acForm, "登陆背景", acSaveYes
   
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(20027) & ChrW(25511) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   
Else

MsgBox "用户名和密码错误", , "请重新输入"
   
   Me.Combo用户名.SetFocus

End If
Exit_Cmd确定_Click:
    Exit Sub

Err_Cmd确定_Click:
    MsgBox Err.Description
    Resume Exit_Cmd确定_Click
   
End Sub

sxgaobo

将组合框“用户名”设为仅限于列！笨办法

magicren

??

佳佳

哦