テキストファイルを他の人が使えないようロックし開く ： Access

[Accessフォーム実行画面]

---

Home　Tips　メニュー

[Access VBA実行コード]

■Lock Read で開く　（他からのReadはできないがWriteはOK。 ）
Option Compare Database
Option Explicit

Private fno As Integer

Private Sub ExTextRead()
    Dim s1 As String
    fno = FreeFile
    Open "c:\test.txt" For Input Lock Read As fno
End Sub

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

Private Sub コマンド3_Click()
    Close fno
End Sub

・メモ帳で開くと「プロセスはファイルにアクセスできません。別のプロセスが使用中です。」とエラーになります。

■Lock Write で開く　（Readは許可するがWriteはできない ）
Option Compare Database
Option Explicit

Private fno As Integer

Private Sub ExTextRead()
    Dim s1 As String
    fno = FreeFile
    Open "c:\test.txt" For Input Lock Write As fno
End Sub

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

Private Sub コマンド3_Click()
    Close fno
End Sub

・メモ帳で変更し保存しようとすると、「パスおよびファイルが正しいか確認してください。」とエラーになります。