救急！Access-匯入資料錯誤訊息如何處理

Question

請問Access高手：
我以VBA程式執行匯入資料的作業，但每次執行時都會出現提醒的訊息，都要手動按「是」才能繼續執行，可是我想要程式能順利的自動執行，請問我可以用何種方式讓訊息不要出現，仍繼續執行匯入資料的程式？或是可以寫程式讓系統回覆「是」後繼續匯入資料？
有點急！多謝啦！

程式如下：
Public Sub ImportRawData()
DoCmd.TransferText acImportDelim, "D21 規格", "D21", "D:\D21.txt", False, ""
End Sub

提醒訊息如下：
！Microsoft Access無法將全部的資料新增到資料表
欄位中0筆記錄內容已刪除，而且因為索引衝突，導致52筆記錄已遺失。
*如果資料已刪除，您貼上或輸入的資料不符合在目的資料表的[欄位資料類型]或[欄位大小]屬性。
*如果資料已遺失，您貼上的記錄在目的資料表中的主索引數值已經存在，或由於資料表之中所定義的關聯，造成它們違反參考完整性規則。
無論如何您都要繼續嗎？
是(Y)　否(N)　說明(H)

Answer 1

DoCmd.SetWarnings False
DoCmd.TransferText acImportDelim, "D21 規格", "D21", "D:D21.txt", False, ""
程式最後要再以DoCmd.SetWarnings true回復警告功能