Örnek kod aşağıda, "RaporCins" açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yaz.
Çalıştırdığında false yazılı açılan kutular kilitlenir, diğer kriterlere ve gizlenecek kutulara göre kodu düzenlemeniz gerekiyor.

Private Sub RaporCins_AfterUpdate()

Select Case Me.RaporCins.Column(1)

    Case "Kan Grubu"

        isim.Enabled = False

        kangrubu.Enabled = False

        ili.Enabled = False

    Case "Personel Adres"

        isim.Enabled = True

        kangrubu.Enabled = True

        ili.Enabled = False

    Case "Personel Raporu"

        isim.Enabled = True

        kangrubu.Enabled = False

        ili.Enabled = True

    Case Else

        isim.Enabled = True

        kangrubu.Enabled = True

        ili.Enabled = True

End Select

End Sub