英語で読む

次の方法で共有

Lock、Unlock ステートメント

  • [アーティクル]
  • 2024/10/25

Open ステートメントを使用して開かれたファイルのすべてまたは一部への他のプロセスによるアクセスを制御します。

構文

Lock [ # ] filenumber, [ recordrange ] . . .ロック解除 [ # ] filenumber, [ recordrange ]

Lock および Unlock ステートメントの構文には、次の指定項目があります。

指定項目 説明
filenumber 必須。 任意の有効なファイル番号です。
recordrange オプション。 ロックまたはロック解除するレコードの範囲です。

Settings

recordrange引数の設定は次のとおりです。

recnumber |[ start ]終了するには

設定 説明
recnumber ロックまたはロック解除が開始される場所のレコード番号 (Random モード ファイル) あるいはバイト番号 (Binary モード ファイル)。
start ロックまたはロック解除する最初のレコードあるいはバイトの番号。
end ロックまたはロック解除する最後のレコードあるいはバイトの番号。

解説

Lock および Unlock ステートメントは、複数のプロセスによる同じファイルへのアクセスが必要になる場合がある環境で使用されます。

Lock および Unlock ステートメントは常にペアで使用されます。 Lock および Unlock への引数は厳密に一致する必要があります。

ファイルの最初のレコードまたはバイトは位置 1 になり、2 番目のレコードまたはバイトは位置 2 になります。これ以降も同様です。 レコードを 1 つだけ指定した場合、そのレコードのみがロックまたはロック解除されます。 レコード範囲を指定し、開始レコード (開始) を省略すると、最初のレコードから範囲の末尾 (末尾) までのすべてのレコードがロックまたはロック解除されます。 recnumber なしで Lock を使用すると、ファイル全体がロックされます。recnumber なしで Unlock を使用すると、ファイル全体がロック解除されます。

シーケンシャル入力またはシーケンシャル出力用にファイルが開かれている場合、Lock および Unlock は、start および end によって指定された範囲に関係なくファイル全体に影響します。

重要

ファイルを閉じたり、プログラムを終了したりする前に、Unlock ステートメントを使用してすべてのロックを必ず削除してください。 ロックを削除しない場合、予期しない結果が生じます。

例

この例は、Lock および Unlock ステートメントの使用方法を示しています。 レコードが変更されている間、レコードへの他のプロセスによるアクセスは拒否されます。 この例では、 TESTFILE がユーザー定義型 Recordの 5 つのレコードを含むファイルであることを前提としています。

Type Record    ' Define user-defined type. 
    ID As Integer 
    Name As String * 20 
End Type 
 
Dim MyRecord As Record, RecordNumber    ' Declare variables. 
' Open sample file for random access. 
Open "TESTFILE" For Random Shared As #1 Len = Len(MyRecord) 
RecordNumber = 4    ' Define record number. 
Lock #1, RecordNumber    ' Lock record. 
Get #1, RecordNumber, MyRecord    ' Read record. 
MyRecord.ID = 234    ' Modify record. 
MyRecord.Name = "John Smith" 
Put #1, RecordNumber, MyRecord    ' Write modified record. 
Unlock #1, RecordNumber    ' Unlock current record. 
Close #1    ' Close file.

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

その他のリソース