フォーム上での編集ロック

質問

フォームを作りました。

Ａフィールドに値を入力すると、Ｂフィールドには編集ロックがかかって、入力出来ないようにしたいのですがどうすればよいのでしょうか？

よろしくお願いします。

回答No.1

keikan · ベストアンサー

基本は

Private Sub Ａ_AfterUpdate()

If IsNull(Me!Ａ) Or Me!Ａ = "" Then
Me!Ｂ.Locked = False
Else
Me!Ｂ.Locked = True
End If

End Sub

の形になります。Ａに入力があればＢをロックし、Ａの入力が取り消されればＢの再編集可能になります。

ただこれだけですと、Ｂの方に書き込んだ後にＡを書くということが可能なので、Ａ，Ｂを排他的に用いるのであればＢ側にも同様にＡをロックするように記述してください。

お礼

お返事遅れましてすみません。

大変勉強になりました。
ありがとうございました。