Kayıtlarda Yapılacak Hatalı Değişmede Uyarı
Tarih
26/12/2011 01:57
Konu Sahibi
sudamlasi79
Yorumlar
12
Okunma
2482
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
sudamlasi79

Kullanici Avatari
24
7
22/12/2011
İstanbul
Belirtilmemiş
09/01/2012,05:12
Çözüldü 
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.
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,16:07
Çözüldü 
Sponsor Reklam
Formlarınıza aşağıdaki kodu eklerseniz probleminiz çözülecektir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
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


Cevapla

ozguryasin
Uzman
Kullanici Avatari
Uzman
Ö.... Y....
812
23/09/2009
565
Bursa
Ofis 2010 32 Bit
Bugün,23:15
Çözüldü 
Form Açılır özelliğine Metin kutularını kilitleyecek aşağıdaki kodu uyarla

Visual Basic Code
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis
Cevapla

sudamlasi79

Kullanici Avatari
24
7
22/12/2011
İstanbul
Belirtilmemiş
09/01/2012,05:12
Çözüldü 
Sponsor Reklam
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
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
22/05/2017,20:13
Çözüldü 
Kural hocamın verdiği kodları uyguladın mı?
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

sudamlasi79

Kullanici Avatari
24
7
22/12/2011
İstanbul
Belirtilmemiş
09/01/2012,05:12
Çözüldü 
Sponsor Reklam
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
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tekrar Eden Kayıtlarda Kritere Göre İstenen Kaydın Getirilmesi. direnist 9 279 24/04/2017, 14:04 atoz112
  ACCESS UYARI MESAJI raburabu 3 146 23/01/2017, 15:26 raburabu
  Raporda doğru fakat pdf yapınca hatalı değerler kadirdursun 10 382 18/01/2017, 17:17 kadirdursun
  kayıtlarda arama yoluyla orantı kurarak hesap yapma mehmetb84 18 722 04/12/2016, 17:13 mehmetb84
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 287 16/11/2016, 23:08 mehmetb84


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status