ACCESSでtxt出力を・・・。

すいません・・教えてください。
ACCESSに存在するテーブルをtxt形式に出力したいと思っています。

テーブルの内容をTXT出力したいのですが、

管理番号　　　金額　　　名前
00001　　　　20000 田中
00002 10000 志村
00003 5000 小屋
00004 80 島

とあります。
これを、txtにする際に、
「00001
20000
田中」　←これは、0000001.txt

「00002
10000
志村」　←これは、0000002.txt
と、レコード毎に別々のtxtを作成したいのですが、
その方法が全く分かりません。

よろしくお願いします。

VBAは、初心者なので、まずはtxtに全てを出力しようと、
Public Sub FileExport1()
Dim path As String
path = "C:\"
DoCmd.TransferText acExportDelim, , "テーブル名", path & "テキスト名"
End Sub
とやったら、元々存在するテキストに出力はできました。
後は、これに出力条件を追加すれば・・と思っているのですが。
また、実際はレコード数が６０００件くらいあるので、元々にテキストを用意する事もできません。。。

よろしくお願いします。

No.1 回答者： nicotinism 回答日時： 2007/03/26 23:37

いくつか不明な点があります。

例では
「00001
20000
田中」　←これは、0000001.txt
と改行していますが
DoCmd.TransferText acExportDelim なら
"00001",20000,"田中"
となりますが、
改行の有無と""で囲むか否は？

あと、同氏名のレコードがあった場合は
同じファイルにまとめる、別ファイルにする
どっち？

実際はレコード数が６０００件くらいあるので
本当に6000個 ファイルを作る必要があるの？

以上３点は？