設(shè)為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
查看: 1493|回復(fù): 2
打印 上一主題 下一主題

[窗體] 密碼驗證代碼為何出錯?

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2009-7-6 00:37:21 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
根據(jù)huanghai的例子我加了個密碼驗證,因為大部分時刻都是需要密碼才能進(jìn)行登錄的。但是為什么報錯呢。我以前同樣的例子就不報錯呢。謝謝。

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱
2#
發(fā)表于 2009-7-6 08:25:16 | 只看該作者
將登入的代碼修改如下:
Private Sub cmdOK_Click()
    If Me.cboUserID = "" Or IsNull(Me.cboUserID) Then Exit Sub   '沒有選擇用戶不處理
    If Me.Password = "" Or IsNull(Me.Password) Then Exit Sub '沒有輸入密碼不處理
    If Trim(Me.Password) = Trim(DLookup("[password]", "user", "[UserID]=" & Me.cboUserID)) Then
        DoCmd.OpenForm ("Main")
        GuserID = Me.cboUserID
        Call insertLogo("用戶登陸")
        Me.Visible = False
    Else
        MsgBox "Password is error,please retype again", vbOKOnly, "Note"
        Me.Password.SetFocus
    End If
End Sub
3#
 樓主| 發(fā)表于 2009-7-6 10:41:46 | 只看該作者
謝謝。我終于知道自己錯在什么地方了。不是錯了一點半點啊。
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機(jī)版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2024-10-23 10:33 , Processed in 0.095182 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表