<track id="9vv7v"><strike id="9vv7v"><rp id="9vv7v"></rp></strike></track>
<pre id="9vv7v"></pre>
    
    

        
        

              <pre id="9vv7v"><strike id="9vv7v"></strike></pre>

              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.177700.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.177700.com/article-show.asp?id=20429




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

              常見問答:

              技術分類:

              相關資源:

              專欄作家

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