Kayıtlarda Yapılacak Hatalı Değişmede Uyarı
Tarih
26/12/2011 01:57
Konu Sahibi
sudamlasi79
Yorumlar
12
Okunma
2339
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.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çö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....
788
23/09/2009
560
Bursa
Ofis 2010 32 Bit
02/12/2016,21:12
Çö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 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
Bugün,19:00
Çö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ü 
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
  kayıtlarda arama yoluyla orantı kurarak hesap yapma mehmetb84 18 365 4 saat önce mehmetb84
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 142 16/11/2016, 23:08 mehmetb84
  uyarı mesajı kod sorunu dayko 2 85 19/10/2016, 14:56 dayko
  Access Liste Kutusu Sırayla Tek Harfe Bastıkça Kayıtlarda Sırayla Gezinme hasanak2 17 796 03/09/2016, 11:31 atoz112
  Kayıtlarda otomatik hesaplama yaptırma arasson 7 535 20/04/2016, 13:36 atoz112


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