Access登錄窗體的設(shè)計-RecordSet收集

1、關(guān)于access2010創(chuàng)建賬戶密碼登陸框2012-04-04 10:56匿名|分類：數(shù)據(jù)庫DB|瀏覽1545次按照access2007教程做了個有密碼的登陸框但是無法運(yùn)行彈出錯誤調(diào)試什么的以下是教程代碼：If IsNull(Me.管理用戶) Then MsgBox 請輸入管理用戶的帳號！, vbQuestion Exit Sub End If If IsNull(Me.登錄密碼) Then MsgBox 請輸入管理用戶的登錄密碼！, vbQuestion Exit Sub End If If adlogin = True Then DoCmd.Close acForm, Me.Name Do

2、Cmd.OpenForm 職員考勤主界面 Else MsgBox 管理用戶帳號或密碼錯誤，請重新輸入！ , vbCritical Exit Sub End IfPublic Function adlogin() As Boolean Dim str As Database Dim rs Set str = CurrentDb Set rs = str.OpenRecordset(select 管理用戶,登錄密碼 from 管理員信息 where 管理用戶= & Me.管理用戶 & and 登錄密碼= & Me.登錄密碼 & ) If Not rs.EOF Then If rs.Fields(登

3、錄密碼) = Me.登錄密碼 Then adlogin = True End IfEnd FunctionIf MsgBox( 您是否確定退出本系統(tǒng)？ 按 是 確定 按 否 取消 , vbQuestion + vbYesNo) = vbYes Then DoCmd.Quit acQuitSaveAll End If-分割線-錯誤行： Set rs = str.OpenRecordset(select 管理用戶,登錄密碼 from 管理員信息 where 管理用戶= & Me.管理用戶 & and 登錄密碼= & Me.登錄密碼 & )重復(fù)做了3變還是有錯誤 不知道是怎么回事分享到：2012-0

4、4-10 10:17提問者采納你是不是做得太麻煩了；ACCESS還不好解決，你直接給窗體指定 用戶表做數(shù)據(jù)源Private Sub 登陸_Click()If Trim(用戶名) = Me.用戶名 And Trim(密碼) = Me.密碼 ThenDoCmd.CloseDoCmd.OpenForm (職員考勤主界面)Else: MSGBOX(錯誤提示) Me.SetFocus Me.用戶名= Me.密碼 = End IfEnd Sub你別把自己搞糊涂了,沒有哪個動作去調(diào)用函數(shù)查數(shù)據(jù)源,都沒查到數(shù)據(jù)源怎么判斷,很簡單的問題別想太復(fù)雜了,如果你覺得不該用窗體數(shù)據(jù)源,那你就定義一個連接吧,呼叫連接一樣

5、的效果,消息對話框隨你怎么寫.還有,你存在一個根本性的錯誤:你定義的不是窗體數(shù)據(jù)源,怎么用窗體去篩選,那就判斷數(shù)據(jù)連接是否查詢到了記錄就行了,而不是判斷窗體控件是否為NULL.有兩個辦法,1.判斷查詢有沒有記錄來決定登陸事件2.給控件指定到數(shù)據(jù)源,判斷控件是否為空查詢.改一下思路,很簡單的評論(2)|1各種 trim 函數(shù)的語法如下：LTRIM(字串):將字串左邊的空格移除。RTRIM(字串): 將字串右邊的空格移除。TRIM(字串): 將字串首尾兩端的空格移除,作用等于RTRIM和LTRIM兩個函數(shù)共同的結(jié)果。ALLTRIM(字串)：將字串左右邊兩邊的空格移除。例1：TRIM( Sample

6、 );結(jié)果:Sample例2:LTRIM( Sample );結(jié)果:Sample 例3:? RTRIM( Sample );結(jié)果: SampleALLTRIM( Sample )結(jié)果：SampleCurrentDb.OpenRecordset是什么意思2010-08-09 14:09提問者懸賞：20分|opwquiwq|分類：VB|瀏覽3754次分享到：2010-08-18 02:30網(wǎng)友采納CurrentDb是你的數(shù)據(jù)庫對象OpenRecordset是打開結(jié)果集的意思。打個比方，Set RS=CurrentDB.OpenRecordset(麻煩服務(wù)器幫我查下AAAA數(shù)據(jù)表里2003年以前的所

7、有記錄) SQL語句翻譯:Select * From AAAA Where dDate2003-1-1服務(wù)器查詢后，也許查到了20條記錄，把結(jié)果返回、裝在了RS里，RS里存的就是結(jié)果集數(shù)據(jù)，RS就是結(jié)果集類型（Recordset）。其他1條回答2010-08-09 14:23遠(yuǎn)風(fēng)的夢想家|十二級一般用法是set rs = cureentdb.openrecordset(.)是用來打開一個記錄集的簡單的VB代碼.2011-06-29 20:43wr394708958|分類：VB|瀏覽248次Dim str As Database Dim rs Set str = CurrentDb Set rs

8、 = str.OpenRecordset(select 管理用戶,登錄密碼 from 管理員信息 where 管理用戶= & Me.管理用戶 & and 登錄密碼= & Me.登錄密碼 & ) 【顯示這句錯誤438，對象不支持改屬性和方法】 If Not rs.EOF Then If rs.Fields(登錄密碼) = Me.登錄密碼 Then adlogin = True End IfEnd Function分享到：2011-06-29 22:17提問者采納Function opentable(byval txtPath as string) 【功能：建立數(shù)據(jù)庫連接；狀態(tài)：完成】Set co

9、nn = New ADODB.Connectionconn.CursorLocation = adUseClientconn.Open PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= & txtPath & ;Set res = New ADODB.RecordsetEnd FunctionFunction closetable() 【功能：關(guān)閉數(shù)據(jù)庫連接；狀態(tài)：完成】conn.CloseEnd Functionset res=new adodb.recordsetres.Open select 管理用戶,登錄密碼 from 管理員信息 where

10、管理用戶= & Me.管理用戶 & and 登錄密碼= & Me.登錄密碼 & If Not res.EOF Then If rs.Fields(登錄密碼) = Me.登錄密碼 Then adlogin = True End If追問終于能編譯過去了。太謝謝了?？墒撬崾居脩艉兔艽a不對，請你再幫我看看，我沒有什么基礎(chǔ)。.上面那段代碼我不需要再自己改動什么地方了嗎？回答上面那段不需要再改動。哪里提示用戶和密碼不對？如果可行的話，你把工程文件全部打包發(fā)給我（379650356qqaaa）出于保密需求的話，你至少把這一段發(fā)完整好嗎？提問者評價謝了，我已經(jīng)解決了評論|00sunruisunrui|來自

11、團(tuán)隊永霸天下|十級采納率40%擅長：VB數(shù)據(jù)庫DBC#/.NETWindows歐美明星Access的問題，請大家?guī)臀?012-04-16 15:58rensiming1|分類：數(shù)據(jù)庫DB|瀏覽86次Option Compare DatabasePrivate Sub 登陸_Click()If IsNull(Me.請輸入用戶名) Then MsgBox 請輸入用戶名, vbQuestion Exit SubEnd IfIf IsNull(Me.輸入用戶密碼) Then MsgBox 請輸入密碼, vbQuestion Exit SubEnd IfIf adlogin = True ThenDoC

12、md.Close acForm, Me.NameDoCmd.OpenForm 管理窗體ElseMsgBox 管理員或密碼錯誤，請重新輸入!, vbCriticalExit SubEnd IfEnd SubPublic Function adlogin() As Boolean Dim str As Database Dim rs As Recordset Set str = CurrentDb Set rs = str.OpenRecordset(select 管理員姓名,管理員密碼 from 管理員 where 管理員姓名= & Me.請輸入用戶名 & And 管理員密碼 = & Me.輸入

13、用戶密碼 & ) If Not rs.EOF ThenIf rs.Fields(管理員密碼) = Me.輸入用戶密碼 Then adlogin = True End IfEnd Function這個在運(yùn)行時顯示“運(yùn)行時錯誤13類型不匹配”分享到：2012-04-19 12:06提問者采納& And 管理員密碼 = & 錯誤，要改成：& And 管理員密碼 = &，即表達(dá)式計算后其值是字符串的要用 而非 。頭尾用對了（where 管理員姓名= 及Me.輸入用戶密碼 & 用對了)，中間用錯了！另外如果密碼是數(shù)字，則后面的兩個 要去掉！提問者評價謝謝你，在你的幫助下，我成功了評論|10qyx7137

14、|四級采納率66%擅長：系統(tǒng)軟件數(shù)據(jù)庫DB財務(wù)稅務(wù)保險股票按默認(rèn)排序|按時間排序其他1條回答2012-04-17 21:28feifei20080|五級If rs.Fields(管理員密碼) = Me.輸入用戶密碼 Then adlogin = True 應(yīng)該是這句話。把程序給我我?guī)湍憧窗稍u論|00等待您來回答怎樣在access窗體加載時就使一個文本框取得焦點(diǎn)?2012-08-14 16:56fyx1204|分類：數(shù)據(jù)庫DB|瀏覽279次分享到：2012-08-14 18:51提問者采納在加載事件中輸入文本框獲得焦點(diǎn)，如下：Private Sub Form_Load()Me.文本框名.SetFocusEnd Sub在Access數(shù)據(jù)庫窗體中怎么實現(xiàn)一個文本框中輸入內(nèi)容，在另一個文本框中顯示根本剛才輸入的內(nèi)容，顯示出結(jié)2013-05-30 15:23提問者懸賞：30分|魑魅魍魎魂