Öncelikle tüm metin kutusu ve açılan kutuları aktif/pasif yapacak prosedürü yazalım:

Sub TumAlanlariPasifYap()

' Bu prosedür içinde tüm metin kutusu ve açılan kutular pasif hale getirilir.

    

    For Each kontrol In Form_FrmMusteri.Controls

        If kontrol.ControlType = acTextBox Or kontrol.ControlType = acComboBox Then

            kontrol.Enabled = False

        End If

    Next



End Sub



Sub TumAlanlariAktifYap()

' Bu prosedür içinde tüm metin kutusu ve açılan kutular aktif hale getirilir.

    

    For Each kontrol In Form_FrmMusteri.Controls

        If kontrol.ControlType = acTextBox Or kontrol.ControlType = acComboBox Then

            kontrol.Enabled = True

        End If

    Next



End Sub

Form ilk açıldığında tüm alanlar kilitli gelsin diye TumAlanlariPasifYap prosedürünü çağıracağız.

TumAlanlariPasifYap

Sizin düzelt butonunu bulamadığım dediğiniz noktadayız. Zaten öyle bir buton yok biz kendimiz bir buton koyup üzerindeki yazıyı değiştiriyoruz. Bu butonu ne zaman kullanacağız? Bilgilerde değişiklik yapmamız gerektiği zaman yani tüm alanların kilidini açtırmak için kullanacağız. Düzelt butonunun tıklanma olayına kodumuzu yazalım:

' Prosedürü çalıştırarak alanların kilidini açıyoruz.

    TumAlanlariAktifYap

Diyelim ki Düzelt butonuna bastık ve bir şeylerde değişiklik yaptık. Tüm yaptıklarımızı iptal edip alanları kilitlemek istiyoruz. Bunun için bir buton daha ekliyoruz ve ismini Vazgeç olarak değiştiriyoruz. Bu butonun tıklanma olayındaki kodlarımız ise şu şekilde olacak :

    If Me.Dirty = True Then

        

        ' Eğer kayıtlarda değişiklik yapılmış ise Dirty true olmuştur buradaki kodlar işler

        If MsgBox("Bilgilerde değişiklik yapılmış. İptal etmek istediğinize emin misiniz?", vbQuestion + vbYesNo, "Dikkat!!!") = vbYes Then

            ' Yapmış olduğu değişiklikleri kaydetmek istemiyormuş işlemleri iptal edelim

            Me.Undo

            ' Tüm alanları kilitleyelim

            TumAlanlariPasifYap

        End If

    Else

        

        ' Eğer kayıtta değişiklik yapılmamış ise Dirty false haldedir buradaki kodlar işler

        TumAlanlariPasifYap

    End If

Yeni butonu için kilit açılacak ve yeni kayıt aç kodu yazılacak:

TumAlanlariAktifYap

DoCmd.GoToRecord , , acNewRec

Ekte örnek olarak dosyanız mevcut.

Önce FrmMusteri formunuzun özellikler penceresindeki GezintiDüğmelerini Hayır olarak değiştirin. Sonra form üzerine Komut Düğmesi Sihirbazını kullanarak Önceki Kayda Git ve Sonraki Kayda Git butonları ekleyin.