Merhaba..

Sayın serdar_20'in önerisine ilaveten;

Bunu en kısayolu döngü ile tüm kontrolleri kontrol ettirmek olur..

Forumunuzun Geçerli Olduğunda kod bölümüne alttaki prosedürü uygularsanız (yeni kayıt değilse) veri girilmiş tüm metin kutuları ve açılan kutular kilitlenecektir..:

Dim trz As Control
For Each trz In Me.Controls
Select Case trz.ControlType
Case acTextBox, acComboBox
If IsNull(trz.Value) = 0 Then trz.Locked = -1 Else trz.Locked = 0
End Select
Next