EOF関数 : Access

Access EOF関数はファイルの現在位置がファイルの末尾かどうか調査します。

スポンサーリンク




BackHomeへ BackAccess関数メニューへ

■ 構文
EOF(filenumber)

■ 引数
filenumber : (必須) 任意の有効なファイル番号を表す整数型 (Integer) の数値を指定

■ 戻り値
ファイルの末尾に達していない場合は、偽 (False) を返し、ファイルの末尾に達している場合、真 (True) を返します。

■ Access実行画面

 テキストファイルをEOF関数がTRUEになるまで一行づつ読み、テキストボックスに表示します。

スポンサーリンク



■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド0_Click()
    Dim s1 As String
    Me!テキスト1 = ""
    'テキストファイルを開く
    Open "c:\dam\お読みください.txt" For Input As #1
    '最後の行までループ
    Do While Not EOF(1)
        '一行づつ読む
        Line Input #1, s1
        'テキストボックスに追加
        Me!テキスト1 = Me!テキスト1 & s1 & vbCrLf
    Loop
    Close #1
End Sub

スポンサーリンク




BackHomeへ BackAccess関数メニューへ

Copyright(C) FeedSoft