テーブルのプロパティの説明欄消失

質問

ACCESS VBAで以下のような指定でインポートを行っています。

DoCmd.TransferDatabase acImport _
, "Microsoft Access" _
, S_FileName _
, acTable _
, hairetu(j) _
, hairetu(j) _
, False

インポートは正常にできるのですが、テーブルのプロパティの説明の記述が消えてしまいます。
消えなくする方法はありますか？
できなければ、プログラムで付与する方法はありますか？

回答No.1

NotFound404 · ベストアンサー

こちら
（Access2010 試験ファイル形式は Accdb 。）では問題を再現できませんね。
エラー処理が手抜きですが、

Sub test()
Dim hairetu() As Variant
Dim i As Integer
Dim v As String
On Error GoTo errH
hairetu = Array("テーブル１", "テーブル２", "テーブルN") 'インポートしたいテーブル名
For i = LBound(hairetu) To UBound(hairetu)
DoCmd.TransferDatabase acImport, "Microsoft Access", "D:\tmp\インポート元.accdb", acTable, hairetu(i), hairetu(i), False
v = v & hairetu(i) & "_" & CurrentDb.TableDefs(hairetu(i)).Properties("description") & vbNewLine
Next
MsgBox v
Exit Sub
errH:
if err.number = 3270 then
v = v & hairetu(i) & "_" & "説明は設定されていません" & vbNewLine
end if
Resume Next
End Sub

ご参考まで。

お礼

プログラムはACCESS2010で作成していますが、保存形式の拡張子はMDBです。
インポートするファイルもMDB方式です。
ACCDBならうまくいくのかな？