mrh arkadaşlar, evrak kayıt programında daha eskiye ait kayıtlara arama veya gezmi tuşları ile bakılabiliyor, lakin bazen maus bir kayda gelip harf ekleyebiliyor veya silebiliyor, düzenleme yetkisini kaldırıp kayıtları hiç düzeltilemez olmasınıda istemiyorum, istediğim formda eski kayıtlarda bir değişiklik yapıldığında kayıtlarda değişiklik yaptınız kaydedeyimmi iptal edeyimmi gibi bir seçenek nasıl sunabilirim.
Formlarınıza aşağıdaki kodu eklerseniz probleminiz çözülecektir.
Private Sub Form_BeforeUpdate(Cancel As Integer)
' formda yanlışlıkla bir veri üzerinde değişiklik yapmayalım diye
' değişiklik durumunda onay alıyoruz.
If NewRecord = False Then
If MsgBox("Değişiklikler kaydedilsin mi?", _
vbYesNo) = vbNo Then
Cancel = True
DoCmd.RunCommand acCmdUndo
End If
End If
End Sub
Form Açılır özelliğine Metin kutularını kilitleyecek aşağıdaki kodu uyarla
Private Sub Form_Open(Cancel As Integer)
Me.AlanADI_1.Locked = True
Me.AlanADI_2.Locked = True
End Sub
Bir buton oluştur. Ben genelde buton ismini Duzenleme koyuyorum ona göre yazacağım.
Bu buton düzenleme yapılacağı zaman basıldığında değişim imkanı verecek, değişiklik yapıldıktan sonra tekrar basıldığında değişiklik yapma durumunu engelleyecektir.
Private Sub Duzenleme_Click()
If Me.Duzenleme.Caption = "Düzenleme Açık" Then
Me.Duzenleme.Caption = "Düzenleme Kapalı"
Me.Duzenleme.ForeColor = vbBlack
Me.AlanADI_1.Locked = True
Me.AlanADI_2.Locked = True
Else
Me.Duzenleme.Caption = "Düzenleme Açık"
Me.Duzenleme.ForeColor = vbBlue
Me.AlanADI_1.Locked = False
Me.AlanADI_2.Locked = False
End If
End Sub
Arkadaşım verdiğin kodlar için teşekkür ederim, kodları uyarladım yalnız şöyle bir sorun ortaya çıktı, düzenleme yap butonuna tıklanmayınca yeni kayıt eklenmiyor ben eski kayıtların düzenlenme ve değişikliğinde olsun istiyorum, fikrin varmı
Kural hocamın verdiği kodları uyguladın mı?
Saygılar...
uyguladım, kodları çalıştırdım yalnız yeni kayıt açtığımda bu sefer işlem yapamıyorum düzenleme düğmesine tıklamadan, işlemin sadece eski kayıtlarda geçerli olmasını istiyorum