Access為子窗體設(shè)置數(shù)據(jù)源

1、Access 為子窗體設(shè)置數(shù)據(jù)源2014-05-13 19:58 coleev | 分類：數(shù)據(jù)庫 DB | 瀏覽 561 次設(shè)有一個數(shù)據(jù)庫 Db，其有窗體 frm，表 tbl，frm 中有一個子窗體控件 chd；*以上是前置條件LZ 已嘗試在 frm 的【打開】事件中對一個 DAO.Recordset 對象的數(shù)據(jù)源設(shè)置為tbl 的內(nèi)容，形式如下Dim SQL as StringSQL=SELECT * FROM tblDim rs as DAO.RecordsetSet rs=CurrentDb.OpenRecordset(SQL,dbopendynaset)求解：如何將子窗體 chd 的數(shù)據(jù)

2、源設(shè)置為這個 rs 的數(shù)據(jù)？因為考慮到動態(tài)靈活和數(shù)據(jù)安全，不愿意將 chd 直接和 tbl 綁定。我有更好的答案分享到：2014-05-13 23:38提問者采納Dim SQL as String SQL=SELECT * FROM tblDim rs as DAO.RecordsetSet rs=CurrentDb.OpenRecordset(SQL,dbopendynaset) 補上后面這行代碼即可將記錄集與窗體綁定Set Me.chn.Form.Recordset=rs其實 DAO 已經(jīng)非常古老了。如果用下面的的代碼將數(shù)據(jù)表與子窗體綁定將會更簡便有效：Private Sub Form_O

3、pen(Cancel As Integer) Me.chn.Form.RecordSource = SELECT * FROM tblEnd Sub追問3Q,目前只看到了 DAO但是，再請教一下：為毛還是報錯啊，如圖回答我給出的代碼，已經(jīng)測試過了。沒問題的。出錯的原因有很多種可能，請將你出錯的完整代碼貼出來，我全面檢查一下，如果有窗體的設(shè)計視圖截圖會更好一些。從表面上看可能是，控件名引用錯誤，例如，子窗體名稱不正確等追問就是一個自己想到的問題 - 如果的神得空，可否用 ADO 示范一下，我追加分哦 回答因為子窗體未綁定任何“源對象”，運行我的代碼當然會報錯。問題可以這樣解決先創(chuàng)建一個窗體，取名

4、 ChldTest,里面添加相應(yīng)數(shù)量的非綁定文本框（我加了 3 個非綁定文本框 Text0,Text2,Text4)，窗體數(shù)據(jù)源為空白，窗體默認視圖為“數(shù)據(jù)表”。這個窗體將作為你的子窗體的“源對象” 具體見圖假設(shè)數(shù)據(jù)表“ABC” 有 3 個字段分別為 A ,B,C為你的主窗體添加下了打開事件過程即可Private Sub Form_Open(Cancel As Integer) With Me.Child0.SourceObject = Form.ChldTest使用某個窗體作為子窗體的源對象.Form!Text0.ControlSource = A綁定字段.Form!Text2.Contro

5、lSource = B.Form!Text4.ControlSource = C.Form.RecordSource = select * from ABC綁定記錄集End With End Sub當然如果使用數(shù)據(jù)表或預置的查詢作為子窗體的源對象將會更加方便（無需設(shè)計子窗體），例如：Private Sub Form_Open(Cancel As Integer) With Me.Child0.SourceObject = Table.ABC使用表作為子窗體的源對象End WithEnd Sub又或者預置一個查詢 1(select * from Tbl）Private Sub Form_Open(Cancel As Integer) With Me.Child0.SourceObject = Query.查詢 1使用查詢作為子窗體的源對象End WithEnd Sub至 于 ADO 動態(tài)生成記錄集（事先不知道要使用什么表、什么字段）然后將記錄集與子窗體綁定（方法類似 VB 將 DataGrid、MSHFLEXGRID 控件與 記錄集