Kayıtlarda Yapılacak Hatalı Değişmede Uyarı
Tarih
26/12/2011 01:57
Konu Sahibi
sudamlasi79
Yorumlar
12
Okunma
2399
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ü 
Sponsor Reklam
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.030
05/11/2008
KONYA
Ofis 2010
Dün,15:58
Çözüldü 
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....
801
23/09/2009
565
Bursa
Ofis 2010 32 Bit
20/01/2017,19:07
Çözüldü 
Sponsor Reklam
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 http://www.accesstr.net Ailesi Yeter. alkis
Cevapla

sudamlasi79

Kullanici Avatari
24
7
22/12/2011
İstanbul
Belirtilmemiş
09/01/2012,05:12
Çözüldü 
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.432
17/05/2009
365
Ankara
Ofis 2010
17/01/2017,20:35
Çözüldü 
Sponsor Reklam
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ü 
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
  Raporda doğru fakat pdf yapınca hatalı değerler kadirdursun 10 185 18/01/2017, 17:17 kadirdursun
  kayıtlarda arama yoluyla orantı kurarak hesap yapma mehmetb84 18 476 04/12/2016, 17:13 mehmetb84
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 195 16/11/2016, 23:08 mehmetb84
  uyarı mesajı kod sorunu dayko 2 121 19/10/2016, 14:56 dayko
  Access Liste Kutusu Sırayla Tek Harfe Bastıkça Kayıtlarda Sırayla Gezinme hasanak2 17 891 03/09/2016, 11:31 atoz112


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