Kod:
Private Sub Form_Current()
If IsNull(Me.sözlü2) Then
Me.yazılı1.Locked = False
Me.yazılı2.Locked = False
Me.sözlü1.Locked = False
Me.sözlü2.Locked = False
Else
Me.yazılı1.Locked = True
Me.yazılı2.Locked = True
Me.sözlü1.Locked = True
Me.sözlü2.Locked = True
End If
End Sub