<pre id="p1prn"><ruby id="p1prn"><b id="p1prn"></b></ruby></pre>
<pre id="p1prn"><ruby id="p1prn"><b id="p1prn"></b></ruby></pre>
<track id="p1prn"></track>

<pre id="p1prn"></pre>

<noframes id="p1prn">
    <pre id="p1prn"><strike id="p1prn"></strike></pre>
      <p id="p1prn"><ruby id="p1prn"></ruby></p>
        <p id="p1prn"><pre id="p1prn"><b id="p1prn"></b></pre></p>
        Access快速開發基礎教程
        網站公告
        ·Access專家課堂QQ群號:151711184    ·Access快速開發平臺下載地址及教程    ·歡迎加入Access專家課堂微信群!    ·如何快速搜索本站文章|示例|資料    
        您的位置: 首頁 > 技術文章 > Access數據庫-教程

        Access窗體查詢制作步驟第二課,Access創建模糊查詢窗體第二課--Access如何將查詢結果導出到Access新表的示例,Access如何將查詢結果導出到Excel表的示例,Access查詢后導出結果

        時 間:2022-08-16 13:36:39
        作 者:麥田   ID:11  城市:上海  QQ:3002789054點擊這里給麥田發消息
        摘 要:Access窗體查詢制作步驟第二課,Access創建模糊查詢窗體第二課--Access如何將查詢結果導出到Access新表的示例,Access如何將查詢結果導出到Excel表的示例,Access查詢后導出結果。
        正 文:

        一、學友問題描述:
        秋明山(190428731) 2022-08-15 09:02:50
        向各位請教,我想將每次查詢的內容自動記錄到一張表里,應該怎樣做才可以實現呢?

        二、解決方法:
        之前我們學習過教程第一課:Access窗體查詢制作步驟,Access創建模糊查詢窗體,Access如何通過查詢為窗體添加功能,ACCESS實例教程,自學access數據庫經典教程(access教程入門基礎);Access如何創建窗體查詢?創建窗體查詢的詳細步驟來了【Access軟件網】
        http://www.sm-cnc-aktiv.com/article-show.asp?id=16527

        得到了廣大Access初學者朋友的青睞,訪問量近20萬閱讀數,看來大家還是喜歡這種基礎教程,今天分享一下第二課,即在第一課基礎上制作了Access查詢后導出結果,我們稱為第二課:

        Access如何將查詢結果導出到Access新表的示例,Access如何將查詢結果導出到Excel表的示例。


        先看一下制作完成的效果,如下圖

        點擊圖片查看大圖


        下面講解制作步驟,如下
        第一步,大家在接著上面第一課學會的基礎上,只需要在查詢窗體的設計視圖,再增加兩個按鈕,一個命名為“導出到Excel”,如下圖:
        點擊圖片查看大圖

        然后按鈕單擊事件過程,如下圖,
        點擊圖片查看大圖

        寫如下導出代碼:
            On Error Resume Next
            Me.sfrDetail.SetFocus
            If Me.sfrDetail.Form.CurrentRecord > 0 Then
                ExportToExcel "查詢結果"
            End If

        保存一下即可實現查詢后的結果,導出到Excel文件。

        第二步,再增加一個命令按鈕,我們命名為“導出到Access新表”,如下圖:
        點擊圖片查看大圖

        然后按鈕單擊事件過程,如下圖,
        點擊圖片查看大圖

        寫如下導出代碼:
            Dim strSQL As String
            If ObjectIsExists(acTable, "TEMP_tbl查詢結果") Then
                DoCmd.DeleteObject acTable, "TEMP_tbl查詢結果"
            End If

            strSQL = "select * into TEMP_tbl查詢結果 from 查詢窗口"
            DoCmd.SetWarnings False
            DoCmd.RunSQL strSQL
            DoCmd.SetWarnings True
            MsgBox "已生成臨時表【TEMP_tbl查詢結果】"
            DoCmd.OpenTable "TEMP_tbl查詢結果"

        保存一下即可實現查詢后的結果,導出到一個新的Access表。


              以上就是完整的制作步驟,大家按教程提示操作,就可以學會,如果還沒有學會,或者制作到最后功能還沒有實現的Access朋友,可以下載一下我制作好的完整示例,作為參考對比一下。


        附   件:

        點擊下載此樣例程序附件


        導出自定義代碼在模塊里面,請下載附件將模塊導入到你新建的數據庫:

        點擊圖片查看大圖


        演   示:

        點擊圖片查看大圖




        需要對查詢結果進行打印預覽的學習一下第三課:

        Access窗體查詢制作步驟第三課:Access如何將查詢結果打印報表的教程

        http://www.sm-cnc-aktiv.com/article-show.asp?id=20429




        Access軟件網QQ交流群 (群號:115180141)       Access源碼網店

        常見問答:

        技術分類:

        相關資源:

        專欄作家

        關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助