テキストファイルへ書き込み ： Access

［Accessフォーム実行結果］

テキストファイルへ書き込みボタンをクリックすると、 ExTextWriteを実行します。


書き込んだファイルをメモ帳で開いた画面

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub ExTextWrite()
    Dim fno As Integer
    fno = FreeFile
    Open "c:\test.txt" For Output As fno
    Print #fno, "Access"
    Print #fno, "アクセス"
    Print #fno, "あくせす"
    Close fno
End Sub

Private Sub コマンド0_Click()
    ExTextWrite
End Sub