Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/12/2011 01:57
Konu Sahibi
sudamlasi79
Yorumlar
12
Okunma
2971
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.034
05/11/2008
-
Ofis 2010 32 Bit
01/04/2018,01:44
Çö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....
930
23/09/2009
589
Bursa
Yazılım
Ofis 2010 32 Bit
Bugün,20:03
Çö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ü 
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

Onursal Üye
Kullanici Avatari
Onursal Üye
R.... S....
4.439
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
02/04/2018,18:54
Çö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
Çözüldü Birden Fazla Alana Aynı Giriş Yapıldığında Uyarı Verilebilir Mi? yturan 22 569 31/01/2018, 16:17 ozanakkaya
Çözüldü Mükerrer Uyarı golf2000 11 247 25/01/2018, 12:23 golf2000
Çözüldü Metin Kutusuna Eksik Giriş Yaptığımızda Uyarı prestij06 3 133 09/12/2017, 22:38 prestij06
Çözüldü Alt Formda Kayıt Yok İse Uyarı Mesajı macirercan 4 121 08/12/2017, 18:07 macirercan
Çözüldü Uyarı Mesajı metin02 8 251 06/12/2017, 19:25 metin02

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
 
 
Forum use Krzysztof "Supryk" Supryczynski addons.