Excel VBA Accessへデータ書き込み

質問

お世話になります。
Excel VBAを使用し、ExcelのデータをAccessのテーブル書き込みたいと思っています。
そこで、Access側のテーブルのインデックス重複なしの設定により、書き込むExcelデータが重複となるレコードの場合は、警告を非表示にして書き込みを飛ばしたいと思い、書籍等を参考にして下記のようなコードを記述したのですが、DoCmd.SetWarnings Falseに対してDoCmdの変数が定義されていませんと警告が出されます。
DoCmd.SetWarnings Falseを記述しないと実行時エラーが出されます。
対応方法をご教授頂けないでしょうか。
よろしくお願い致します。

Option Explicit
Sub ExcelカレントExcelデータをAccessへ_重複除外_今村()

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim conStr As String
Dim sqlList As Collection
Set sqlList = New Collection 'コレクションを作成
Dim titleRow As Long
Dim endRow As Long
Dim tgtRow As Long '繰り返し用変数の宣言
Dim sql As Variant 'SQL文用変数の宣言
Dim i As Long 'For iステートメント用
Dim wbws As Object
Dim Accessteble As String

'ExcelのWorkbook名+Sheet名を指定
Set wbws = Workbooks("テーブル取り込み1.xlsm").Sheets("Sheet2")
'Accessのテーブル名を指定
Accessteble = "T_Excelデータ追加"

'Excelタイトル行初期化★
titleRow = 9
'Excelデータ最終行取得
endRow = wbws.Cells(Rows.Count, 2).End(xlUp).Row

'SQL文リストの作成
'Excelデータ取得
For i = titleRow + 1 To endRow '指定行を繰り返す
With wbws
sql = _
"INSERT INTO " & Accessteble & "(" & _
.Cells(titleRow, 2).Value & ", " & _
.Cells(titleRow, 3).Value & ", " & _
.Cells(titleRow, 4).Value & ") " & _
"VALUES(" & _
"'" & .Cells(i, 2).Value & "', " & _
"'" & .Cells(i, 3).Value & "', " & _
.Cells(i, 4).Value & ");"
End With
'コレクションへ追加
sqlList.Add sql
Next i 'iを次の値にしてForへ戻る

'Access絶対パス指定
conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data " & _
"Source=C:\Users\○○\Desktop\注文管理.accdb"

'DB接続
con.Open ConnectionString:=conStr

DoCmd.SetWarnings False

'実行文
For Each sql In sqlList 'SQL文リストをループ
con.Execute sql '1行ずつ取り出し実行
Next sql
con.DoCmd.SetWarnings True
con.Close: Set con = Nothing
End Sub

回答No.1

kkkkkm · ベストアンサー

DoCmd.SetWarnings False
はAccessのメソッドだと思いますから
エラーが出るのでしたら
エクセルの
On Error Resume Nextを利用してみてはいかがでしょう
https://nkmrdai.com/vba-on-error-resume-next-on-error-goto-excel-vba/

エラーではなく確認メッセージでしたら
Application.DisplayAlerts
https://www.moug.net/tech/exvba/0150081.html