Kayıtlarda Yapılacak Hatalı Değişmede Uyarı

Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıtlarda Yapılacak Hatalı Değişmede Uyarı (/konu-kayitlarda-yapilacak-hatali-degismede-uyari.html)

Sayfalar: 1 2 3

Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - sudamlasi79 - 26/12/2011

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.

Cvp: Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - Kur@l - 26/12/2011

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

Cvp: Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - ozguryasin - 26/12/2011

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

Cvp: Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - sudamlasi79 - 26/12/2011

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ı Img-grin

Cvp: Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - benremix - 26/12/2011

Kural hocamın verdiği kodları uyguladın mı?
Saygılar...

Cvp: Kayıtlarda Yapılacak Hatalı Değişmede Uyarı - sudamlasi79 - 26/12/2011

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