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




BackHome BackTipsへ Backメニューへ

[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



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft