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

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

2、Cmd.OpenForm 職員考勤主界面 Else MsgBox 管理用戶帳號(hào)或密碼錯(cuò)誤，請(qǐng)重新輸入！ , 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-分割線-錯(cuò)誤行： Set rs = str.OpenRecordset(select 管理用戶,登錄密碼 from 管理員信息 where 管理用戶= & Me.管理用戶 & and 登錄密碼= & Me.登錄密碼 & )重復(fù)做了3變還是有錯(cuò)誤 不知道是怎么回事分享到：2012-0

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

5、的效果,消息對(duì)話框隨你怎么寫(xiě).還有,你存在一個(gè)根本性的錯(cuò)誤:你定義的不是窗體數(shù)據(jù)源,怎么用窗體去篩選,那就判斷數(shù)據(jù)連接是否查詢到了記錄就行了,而不是判斷窗體控件是否為NULL.有兩個(gè)辦法,1.判斷查詢有沒(méi)有記錄來(lái)決定登陸事件2.給控件指定到數(shù)據(jù)源,判斷控件是否為空查詢.改一下思路,很簡(jiǎn)單的評(píng)論(2)|1各種 trim 函數(shù)的語(yǔ)法如下：LTRIM(字串):將字串左邊的空格移除。RTRIM(字串): 將字串右邊的空格移除。TRIM(字串): 將字串首尾兩端的空格移除,作用等于RTRIM和LTRIM兩個(gè)函數(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提問(wèn)者懸賞：20分|opwquiwq|分類：VB|瀏覽3754次分享到：2010-08-18 02:30網(wǎng)友采納CurrentDb是你的數(shù)據(jù)庫(kù)對(duì)象OpenRecordset是打開(kāi)結(jié)果集的意思。打個(gè)比方，Set RS=CurrentDB.OpenRecordset(麻煩服務(wù)器幫我查下AAAA數(shù)據(jù)表里2003年以前的所

7、有記錄) SQL語(yǔ)句翻譯: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)的夢(mèng)想家|十二級(jí)一般用法是set rs = cureentdb.openrecordset(.)是用來(lái)打開(kāi)一個(gè)記錄集的簡(jiǎn)單的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.登錄密碼 & ) 【顯示這句錯(cuò)誤438，對(duì)象不支持改屬性和方法】 If Not rs.EOF Then If rs.Fields(登錄密碼) = Me.登錄密碼 Then adlogin = True End IfEnd Function分享到：2011-06-29 22:17提問(wèn)者采納Function opentable(byval txtPath as string) 【功能：建立數(shù)據(jù)庫(kù)連接；狀態(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ù)庫(kù)連接；狀態(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追問(wèn)終于能編譯過(guò)去了。太謝謝了。可是它提示用戶和密碼不對(duì)，請(qǐng)你再幫我看看，我沒(méi)有什么基礎(chǔ)。.上面那段代碼我不需要再自己改動(dòng)什么地方了嗎？回答上面那段不需要再改動(dòng)。哪里提示用戶和密碼不對(duì)？如果可行的話，你把工程文件全部打包發(fā)給我（379650356qqaaa）出于保密需求的話，你至少把這一段發(fā)完整好嗎？提問(wèn)者評(píng)價(jià)謝了，我已經(jīng)解決了評(píng)論|00sunruisunrui|來(lái)自

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

12、md.Close acForm, Me.NameDoCmd.OpenForm 管理窗體ElseMsgBox 管理員或密碼錯(cuò)誤，請(qǐng)重新輸入!, 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.請(qǐng)輸入用戶名 & And 管理員密碼 = & Me.輸入

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

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