ACCESS:97→2002のモジュールの変換エラーについて
ACCESS97で作成したファイルをACCESS2002に変換したいのですが、
変換中にコンパイルエラー発生しましたとメッセージが表示されてしまいました。
ファイル自体は変換できておりエラーテーブルを見るとモジュールが変換エラーを起こしていました。そのモジュールを実行させるとやはりエラーが出て止まってしまいます。
~モジュールの内容は~
テーブルを削除するために削除クエリーの実行(これはうまく動いてます。)
フォームに入力されたパスのCSVファイルをインポートする。定義名:CSVインポート定義"インポート先:"CSVテーブル"
(これがうまく動かないようです。実行させると「このファイルをインポートできません」とメッセージがでます。)
以下のものになります。
Option Compare Database
Option Explicit
'------------------------------------------------------------
' CSVインポート
'
'------------------------------------------------------------
Function CSVインポート()
On Error GoTo CSVインポート_Err
Dim parm1 As String
parm1 = Forms!報告書作成!インポートパス & " "
' 入力データ削除query
DoCmd.OpenQuery "全て削除クエリー", acNormal, acEdit
' インポート実施
DoCmd.TransferText acImportDelim, "CSVインポート定義", "CSVテーブル", parm1, False, ""
CSVインポート_Exit:
Exit Function
CSVインポート_Err:
MsgBox Error$
Resume CSVインポート_Exit
End Function
もし不足な点がありましたら補足させていただきます。
よろしくお願いします。
お礼
解決しました。 なにぶんアクセスはほとんど使ったことがなかったので、1人であれば解決出来なかったと思います。 本当にありがとうございました。