【新手入門】之二十：“書與書簽”——bookmark屬性答疑

roych

      Recordset和Bookmark就像書與書簽的關(guān)系，是為smilingkiss答疑而提出來的。這只是我的理解，不當(dāng)之處，歡迎拍磚。不過，話又說回來，這信手拈來的類比，只為了更形象地說明問題，自然不可能無懈可擊，如果非要咬文嚼字，——據(jù)聞，廣東話有個更形象的說法：“捉字虱”，——揪住某一點不放的話，以我的辯才，大概只有甘拜下風(fēng)了。^_^

       扯遠了，現(xiàn)在回到主題。以下面代碼為例：

1. Private Sub 編號_Click()
   
2. Dim MyNum As Long
   
3. Dim rst As DAO.Recordset, rst2 As DAO.Recordset
   
4. Set rst = Me.Form.Recordset
   
5. Set rst2 = Me.Form.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset
   
6. MyNum = rst("編號")
   
7. rst2.FindFirst "編號=" & MyNum
   
8. rst2.Bookmark = Me.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset.Bookmark
   
9. End Sub

復(fù)制代碼

先說說附件的要求（詳見【新手入門】從“書與女友恕不外借”談起——淺談“Bookmark”的使用），rst記錄集所對應(yīng)的窗體為數(shù)據(jù)表子窗體（以下簡稱“數(shù)據(jù)表窗體”），rst2所對應(yīng)的是同一層級別的另一個單個窗體（以下簡稱“單個窗體”）。現(xiàn)在是希望點擊數(shù)據(jù)表窗體的編號，單個窗體的每個字段即顯示該編號所對應(yīng)的記錄信息。

      好�，F(xiàn)在開頭的比方，我們先來理清楚這是一個怎么樣的關(guān)系。

       按前面的說法，記錄集相當(dāng)于書�，F(xiàn)在的問題是：哪本才是“書”？單個窗體還是數(shù)據(jù)表窗體？不清楚？沒關(guān)系。我們再回到一個簡單的問題：我們把一本書的目錄和正文內(nèi)容分開（真是讀書“破”萬卷�。�，現(xiàn)在想找到某一節(jié)的內(nèi)容，該腫么辦？按常理，只能先從目錄找出頁碼，然后再去正文里翻了，是不是？
       很好。問題來了：記錄集rst（數(shù)據(jù)表窗體）是不是只起到目錄的作用呢？顯而易見，rst只是用來查找的工具。而我們的目的是在記錄集rst2（單個窗體）中根據(jù)已有條件找到相關(guān)信息。——顯然，“書”只能是單個窗體的記錄集了。


       通過上面的講解，相信大家對目錄”已經(jīng)了然，現(xiàn)在的問題只不過是按什么方式進行檢索罷了。對于書籍，一般是根據(jù)頁碼來檢索。換句話說，拿什么來作為我們的頁碼呢？在這里，“編號”字段就相當(dāng)于頁碼了�！�—當(dāng)然，你也可以設(shè)置別的字段為檢索條件。就好比一些書可以按關(guān)鍵詞或者開頭字母來進行檢索，但需要注意的是，可能檢索出來不止一個結(jié)果。這個情況對窗體記錄集同樣適用。

       根據(jù)目錄給出的頁碼，最后一步，便是去翻到書的那一頁了。對于記錄集來說，便是這一句：
       rst2.Bookmark = Me.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset.Bookmark
       為什么不是反過來呢：Me.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset.Bookmark= rst2.Bookmark
       我們對照前面“書”和“目錄”的說法就會明白這一點了：我們要找的頁碼是在“書”（rst2）上而不是“目錄”上呀。

       接下來解釋幾個疑問：
       問題1：bookmark是早已存在的了？
       準(zhǔn)確點講，書簽依賴于書而存在。有了書，書簽才有意義。類似地，只有窗體的記錄集打開了，書簽才有效。和現(xiàn)實意義的書簽不一樣的是，bookmark是不會隨著窗體而保存的。也就是說，現(xiàn)在你跳轉(zhuǎn)到某個bookmark后，再次打開窗體時不會跳到之前的那個bookmark去，而是在默認(rèn)記錄上。
       問題2：bookmark屬性能否顯示？
       事實上。這個問題我還真不知道該怎么回答。按smilingkiss的想法，我覺得他可能是想定量地去描述這個屬性，就好比一塊豆腐是什么形狀的，長寬高各是多少。很遺憾，bookmark屬性卻像豆腐的柔軟性一樣，我只知道豆腐是軟的，但是我無法告訴你它到底有多軟。同樣地，Msgbox Me.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset.Bookmark無法彈出正確信息來。

      不厭其煩講了這么多，不知道大家的理解又是怎樣呢？下面附上官方在幫助文檔上的解釋與說明：

【新手入門】之一：If分支語句
【新手入門】之二：分支語句總結(jié)
【新手入門】之三：循環(huán)語句For
【新手入門】之四：循環(huán)語句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過程、傳值過程
【新手入門】之六：“悲歡離合總無情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十：書到用時方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集

【新手進階】之一：基礎(chǔ)算法（一）
【新手進階】之二：基礎(chǔ)算法（二）
【新手進階】之三：基礎(chǔ)算法（三）
【新手進階】之四：基礎(chǔ)算法（四）
【新手進階】之五：排序搜索（一）
【新手進階】之六：排序搜索（二）
【新手進階】之七：遞歸算法
【新手進階】之八：冒泡排序
【新手進階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進階】之十：工作日的計算
【新手進階】之十一：“庖丁解�！焙汀凹o(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進階】之十二：從四腳騰空的奔馬談起——原來界面可以這樣設(shè)計
【新手進階】之十三：Outlook風(fēng)格導(dǎo)航界面
【新手進階】之十四：倉庫管理系統(tǒng)

tmtony

坐到沙發(fā)

smilingkiss

有幸拜讀,并且搶到板凳,謝謝,辛苦roy版主了

smilingkiss

Private Sub 編號_Click()
Dim MyNum As Long
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
Set rst = Me.Form.Recordset
Set rst2 = Me.Form.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset
MyNum = rst("編號")
rst2.FindFirst "編號=" & MyNum

Me.Parent.Form.frm_Tab_查檔資料_sub1.Form.Recordset.Bookmark = rst2.Bookmark

End Sub

版主,我把代碼改成這樣也可以正常運行喔,就是bookmark的賦值反過來了(倒數(shù)第二行代碼)

roych

smilingkiss 發(fā)表于 2013-2-7 10:43
Private Sub 編號_Click()
Dim MyNum As Long
Dim rst As DAO.Recordset, rst2 As DAO.Recordset

從理論上來講，這兩個相同類型的變量，運行當(dāng)然是沒問題的，但是我們需要考慮到實際要求，因此不能反過來賦值。

huangli0356

學(xué)習(xí)了.謝謝分享..