TransferDatabaseで送り先が存在しないとエラーが出る

Access2019で「TransferDatabase acImport」を使って、PostgreSQLよりデータ取得を考えています。
設定を試してみると、以下のようなエラーが発生します。
送り先のテーブルが存在しない、ということかと思いますが「DeleteObject acTable」で削除済みです。
参照）https://teratail.com/questions/191065

これを回避する方法があれば、教えてください。

発生している問題・エラーメッセージ

オブジェクト'H_送り先'が見つかりませんでした。オブジェクトが存在していること、名前やパスが正しいことを確認してください。
'H_送り先'がローカル オブジェクトでない場合は、ネットワークの接続を確認するか、サーバー管理者に問い合わせてください。

該当のソースコード

VBA
1Const strType As String = "ODBC Database"
2Const strConnect As String = "ODBC;DSN=**;DATABASE=**;SERVER=192.*.*.*;PORT=**;UID=**;PWD=**;"
3
4Private Sub ImportODBC
5
6    DoCmd.DeleteObject acTable, "H_送り先"
7    DoCmd.TransferDatabase acImport, strType, strConnect, acTable, "h1_", "H_送り先" False
8
9End Sub
10

行動規範の内容に同意します

回答2件

ベストアンサー

エラーが出たときに、デバッグボタンをクリックしたときにどのコードが反転表示されますか。
もし、DoCmd.DeleteObject acTable, "H_送り先"なら、「H_送り先」テーブルが既に削除済みということではないでしょうか。

存在しない場合に対処するなら、エラー処理を追加すればいいでしょう。

vba
1Private Sub ImportODBC
2    On Error Resume Next
3    DoCmd.DeleteObject acTable, "H_送り先"
4    On Error Goto 0
5    DoCmd.TransferDatabase acImport, strType, strConnect, acTable, "h1_", "H_送り先", False
6
7End Sub

投稿2022/11/29 05:39

hatena19

総合スコア34345

goulok

2022/11/29 07:06 編集

回答ありがとうございます。説明不足にて失礼いたしました。 `DoCmd.TransferDatabase acImport`の行が反転表示されます。送り先のテーブルを削除したあとに上記エラーが表示されたのでためしに、送り先のテーブル削除させずにTransferDatabase まで進めると、「オブジェクト 'H_送り先1' が見つかりませんでした」と表示されました。この対処をすると、以下の1-2が延々と繰り返され、処理を進めることができません。 1）指定テーブルと同名のテーブルを必要とする 2）同名のテーブルを回避して、指定テーブルを作成しようとするどの点を改善すればよいのか、よければご教示ください。