台灣最大程式設計社群網站
線上人數
653
 
會員總數:246038
討論主題:189624
歡迎您免費加入會員
討論區列表 >> ACCESS >> 匯出重複檔案無詢問
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
匯出重複檔案無詢問
價值 : 20 QP  點閱數:75 回應數:4
樓主

陳建勛
門外漢
0 14
150 14
發送站內信

設有一表單。當離開時會自動將某資料表的資料匯出成EXCEL到指定資料夾。
當我使用巨集時。當重複匯出時。系統會自動詢問已有檔案。是否取代。

但因我匯出的路徑必須做判斷。所以改以事件寫程式碼的方式來匯出。
但以程式碼的方式遇重複匯出時。它就會自動將上一個覆蓋。我希望能跳出詢問視窗。
以下是我的程式碼:

If [類別] = "A區" Then
Save = "\\192.168.1.2\資料區\A區\" & [料號] & ".xlsx"
Else
Save = "\\192.168.1.2\資料區\B區\" & [料號] & ".xlsx"
End If

DoCmd.OutputTo acOutputTable, "清單", "ExcelWorkbook(*.xlsx)", [Save], False, "", , acExportQualityPrint

End Sub

請問是否需再加程式碼。麻請解答!謝謝!

搜尋相關Tags的文章: [ 匯出 ] , [ 無詢問 ] ,
本篇文章發表於2020-09-11 15:27
1樓
最有價值解答

P陳
檢舉此回應

If Dir("d:\temp\dir1.txt") = "Dir1.txt" Then MsgBox "檔案已存在"
本篇文章回覆於2020-09-12 00:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

陳建勛
檢舉此回應
感謝P陳大大的指導
但試過以後並不是我想要的
我希望是要跟使用巨集時的狀態一樣
當有重複檔名時。必須跳出視窗詢問是否要覆蓋。
而不是直接覆蓋後才跳出有重複檔名之提醒。
再麻請解答!謝謝!
本篇文章回覆於2020-09-14 10:13
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

彩虹
檢舉此回應
如果你要先判斷在坐後面動作
那你應該把判斷式移動到匯出之前不是嗎∼
本篇文章回覆於2020-09-14 11:44
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
不錯的參考

彩虹
檢舉此回應
(剛文字有打錯)
如果你要先判斷後才做匯出
那你直接把「判斷式」移動到「匯出之前」
然後再搭配 MsgBox 的彈出匡「是/否」來決定要怎麼做
本篇文章回覆於2020-09-14 11:47
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.