Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/01/2018 01:31
Konu Sahibi
1tk
Yorumlar
3
Okunma
523
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

1tk

Aktif Üye
24947
Ne.... AR....
 49
 13
 46
 23/09/2010
0
 İzmir
 Emekli
 Ofis 2010 32 Bit
 11/03/2018,20:54
Çözüldü 
iyi aksamlar arkadaşlar,
ekteki çalışmamdaki formumda mükerrer kayıtları engellemek istiyorum. forumda benzer konular üzerindeki kodları uygulamaya çalıştım ama devamlı sorun verdi. öğrencinin bilgilerini süzerek mükerrer kayıtların öğrenci bilgileri üzerinden kontrol edilmesini istiyorum. veli bilgileri aynı olabilir lakin öğrenci bilgileri olamaz şeklinde kayıt yaptırmak istiyorum.


Herkesin aynası kendisidir.

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.055
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:26
Merhaba,
tabloda Ogrencinin_Adi_Soyadi alanı birincil anahtar olmaz, birincil anahtar S/N alanı olmalıdır. 

Kaydet butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Key_Adet As Integer
Dim kriter
kriter = Me.Ogrencinin_Adi_Soyadi & Me.Ogrencinin_Okul_Numarasi & Me.Ogrencinin_Cep_Telefonu_Numarasi
Key_Adet = DCount("*", "Ana_Tablo", "Ogrencinin_Adi_Soyadi&Ogrencinin_Okul_Numarasi&Ogrencinin_Cep_Telefonu_Numarasi='" & kriter & "'")
If Key_Adet > 0 Then
    MsgBox "Dikkat..! Bu öğrenci bilgilerine sahip bir kayıt zaten var olduğundan tekrar kaydedemezsiniz."
    Me.Undo
    Exit Sub
End If

'*******KAYDET**********
DoCmd.RunCommand acCmdSaveRecord
'******YENI KAYIT********
DoCmd.GoToRecord , , acNewRec


Ayrıca, aynı veriyi girdikten sonra uyarı verdirip Me.Undo kodu ile eski haline getirirseniz aynı verileri tekrar yazmak zorunda kalırsınız.
Me.Undo yerine

Ogrencinin_Adi_Soyadi.setfocus


 kodlarını ekleyerek uyarı sonrası düzeltme yapılabilmesi için öğrenci adı soyadı alanına odaklanılmasını sağlayabilirsiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

1tk

Aktif Üye
24947
Ne.... AR....
 49
 13
 46
 23/09/2010
0
 İzmir
 Emekli
 Ofis 2010 32 Bit
 11/03/2018,20:54
(03/01/2018 14:33)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba,
tabloda Ogrencinin_Adi_Soyadi alanı birincil anahtar olmaz, birincil anahtar S/N alanı olmalıdır. 

Kaydet butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Key_Adet As Integer
Dim kriter
kriter = Me.Ogrencinin_Adi_Soyadi & Me.Ogrencinin_Okul_Numarasi & Me.Ogrencinin_Cep_Telefonu_Numarasi
Key_Adet = DCount("*", "Ana_Tablo", "Ogrencinin_Adi_Soyadi&Ogrencinin_Okul_Numarasi&Ogrencinin_Cep_Telefonu_Numarasi='" & kriter & "'")
If Key_Adet > 0 Then
    MsgBox "Dikkat..! Bu öğrenci bilgilerine sahip bir kayıt zaten var olduğundan tekrar kaydedemezsiniz."
    Me.Undo
    Exit Sub
End If

'*******KAYDET**********
DoCmd.RunCommand acCmdSaveRecord
'******YENI KAYIT********
DoCmd.GoToRecord , , acNewRec


Ayrıca, aynı veriyi girdikten sonra uyarı verdirip Me.Undo kodu ile eski haline getirirseniz aynı verileri tekrar yazmak zorunda kalırsınız.
Me.Undo yerine

Ogrencinin_Adi_Soyadi.setfocus


 kodlarını ekleyerek uyarı sonrası düzeltme yapılabilmesi için öğrenci adı soyadı alanına odaklanılmasını sağlayabilirsiniz.



Sayın Ozan,
teşekkür ederim kodunuz çalışıyor ve mükerrer kayıt olarak uyarıyı veriyor. sonrasında sizin de dediğiniz gibi formu boşaltıyor. bunun içinde dediginiz kodu me.undo yerine koydum bu seferde VBA'da hata veriyor kabul etmiyor.


Herkesin aynası kendisidir.

1tk

Aktif Üye
24947
Ne.... AR....
 49
 13
 46
 23/09/2010
0
 İzmir
 Emekli
 Ofis 2010 32 Bit
 11/03/2018,20:54
Sayın Ozan olay çözülmüştür. programsal hatadan kaynaklanıyor du. sizin me.undo yerine vermiş olduğunuz kod çalışıyor, ilginize teşekkürler.


Herkesin aynası kendisidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Mükerrer Kayıt Sorunu Fatih34 5 284 13/05/2019, 16:08
Son Yorum: haliliyas
Çözüldü Mükerrer Kayıt (il Ve İlçe Sorunu) Dart Reder 6 390 16/02/2019, 08:16
Son Yorum: Dart Reder
Çözüldü Mükerrer Kaydı Nasıl Önlerim. Oğuz Türkyılmaz 22 600 23/01/2019, 10:06
Son Yorum: Oğuz Türkyılmaz
Çözüldü Raporda Üstbilgi Ya Da Altbilgiyi Diğer Sayfalardandan Engellemek İstiyorum alimadam 3 273 31/10/2018, 08:09
Son Yorum: alimadam
Çözüldü İsime Göre Mükerrer Girişi Engelleme mehmetb84 2 246 31/07/2018, 18:51
Son Yorum: mehmetb84

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