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源碼網店
常見問答:
技術分類:
源碼示例
- 【源碼QQ群號19834647...(12.17)
- 【Access源碼示例】分隔數...(01.10)
- 【轉載】在Access中使用B...(01.04)
- 【Access計算周歲、虛歲示...(12.30)
- 【Access高效辦公】本年累...(12.27)
- 【Access源碼示例】按輸入...(12.06)
- 【Access Dcount函...(12.05)
- 【Access源碼示例】按輸入...(12.03)
- 【Access列表框聯動示例】...(12.02)
- 【Access源碼示例】按輸入...(11.29)

學習心得
最新文章
- 《Access快速開發基礎教程》免...(01.14)
- Access奇葩問題系列之使用向導...(01.13)
- VBA編程-使用數組(01.12)
- VBA編程-使用 Select C...(01.12)
- Access+SQLServer數...(01.11)
- Access延遲10秒鐘VBA代碼...(01.11)
- 《Access快速開發基礎教程》免...(01.11)
- 【Access源碼示例】分隔數據簡...(01.10)
- Access通過代碼更改子窗體里面...(01.09)
- 【Access布爾型變量知識】布爾...(01.09)