Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/12/2011 01:57
Konu Sahibi
sudamlasi79
Yorumlar
12
Okunma
3056
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

sudamlasi79


 39
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.



Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
2.034
05/11/2008
-
Ofis 2010 32 Bit
12/07/2018,01:23
Çö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



Kullanici Avatari

ozguryasin

Uzman
Uzman
ÖZ.... YA....
 35
1.019
23/09/2009
597
Bursa
Yazılım
Ofis 2010 32 Bit
Bugün,00:07
Çö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

Kullanici Avatari

sudamlasi79


 39
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



Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
 51
4.440
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
08/07/2018,19:27
Çö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



Kullanici Avatari

sudamlasi79


 39
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Birden Fazla Alana Aynı Giriş Yapıldığında Uyarı Verilebilir Mi? yturan 22 702 31/01/2018, 16:17
Son Yorum: ozanakkaya
Çözüldü Mükerrer Uyarı golf2000 11 336 25/01/2018, 12:23
Son Yorum: golf2000
Çözüldü Metin Kutusuna Eksik Giriş Yaptığımızda Uyarı prestij06 3 187 09/12/2017, 22:38
Son Yorum: prestij06
Çözüldü Alt Formda Kayıt Yok İse Uyarı Mesajı macirercan 4 180 08/12/2017, 18:07
Son Yorum: macirercan
Çözüldü Uyarı Mesajı metin02 8 316 06/12/2017, 19:25
Son Yorum: metin02

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.