テキストファイルを読込み ： Access

［Accessフォーム実行結果］

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

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub ExTextRead()
    Dim fno As Integer
    Dim s1 As String
    fno = FreeFile
    Open "c:\test.txt" For Input As fno
    Do Until EOF(fno)
        Line Input #fno, s1
        Me!リスト1.AddItem s1
    Loop
    Close fno
End Sub

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