Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル「#6:オーバーフロウしました。」とエラーがでてきてしまいます。
記事No16844
投稿日: 2017/01/17(Tue) 20:13
投稿者こうじ
OS:windows7
Access Version:access2013
AccessのVBAに関しての質問です。

クエリで抽出したファイルをCSVで出力させ、出力したファイル名を「連番&ファイル名」の形にしたく
下記のコードを使用しました。
6ファイルは出力は成功したのですが、7ファイル目を出力しようとしたところ、「#6:オーバーフロウしました。」とエラーがでてきてしまいます。
原因やここのコードを変えれば直るというのが、お分かりになる方がいればご教示頂けますでしょうか。
初心者ですのでコードも書いて頂けると非常に助かります。

Private Sub コマンド4_Click()
On Error GoTo ErrorTrap

Dim varAccess As Variant
Dim varCPass As Variant
Dim strmsg As String

varAccess = "ASN抽出"
Dim FolderPass As String
Dim FileName As String
Dim CheckCount As Integer
FolderPass = "C:¥Users¥エクスポート¥"
FileName = "_STORE_ASN_TRN.csv"
CheckCount = 0
Do Until Dir(FolderPass & FileName) = ""
CheckCount = CheckCount + 1
FileName = Format(CheckCount, Len(CStr(CheckCount)) + 1) & "_STORE_ASN_TRN" & ".csv"
Loop
varTextPass = FolderPass & FileName
strmsg = "csvファイルへ出力します。" & Chr(13) & _
"出力先は" & varTextPass & "です。" & _
"よろしければ、OKをクリックして下さい。"

If MsgBox(strmsg, vbOKCancel) = vbOK Then
DoCmd.TransferText acExportDelim, , varAccess, varTextPass, False
MsgBox "データ出力は、正常に完了しました。"

End If
Exit Sub

ErrorTrap:
If Err.Number = 3044 Then '
MsgBox "パス指定が誤っています。", vbCritical
Else
MsgBox "予期せぬエラーが発生しました。(#" & Err.Number & " : " & Err.Description & ")", vbCritical
End If

End Sub

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る