Mükerrer Kayıtların Engellenmesi
Tarih
12/03/2011 02:07
Konu Sahibi
durkheim
Yorumlar
15
Okunma
3572
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sponsor Reklam
Merhaba.
Arkadaşlar, mükerrer kayıtların önlenmesi konusunda sürekli sıkıntı yaşıyorum. Eklentideki çalışmada KarnerVER isimli formdaki Liste2'ye çift tıkladığımda veriler ilgili yerlere(ADI,SOYADI vs.) aktarılıyor. Karne Seri No sadece bir kişiye ait olabilir. Başka birini aynı seri ile kaydetmek isteyince "Bu Seri No kullanılmaktadır!Önce Seri Numarasını Değiştiriniz" uyarısı gelmekte. Fakat siz değiştirsenizde değiştirmezsenizde verileri kayıt ediyor. Bu nedenlede aynı seri numarası bir çok kişiye verilebiliyor. Uyarı geldiğinde Seri Numarasını değiştirmediğim takdirde kesinlikle kayıt edilmemesi için ne yapabilirim?


Ek Dosyalar
.rar   Dlookup_durkheim.rar (Dosya Boyutu: 97,31 KB / İndirme Sayısı: 25)
Cevapla

Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
10/02/2017,23:37
Çözüldü 
formunuz tabloya bağlı bir yapıda olduğu için ne girerseniz onu kabul edip kaydediyor. mantığı değiştirmeniz gereklidir. yada inputbox komutu ile girişi deneyin
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sponsor Reklam
(12/03/2011, 02:21)Yandemir Adlı Kullanıcıdan Alıntı: formunuz tabloya bağlı bir yapıda olduğu için ne girerseniz onu kabul edip kaydediyor. mantığı değiştirmeniz gereklidir.

Sayın Hocam, başka türlü nasıl çözümleyebilirim? Öneriniz nedir?
Cevapla

Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
10/02/2017,23:37
Çözüldü 
ekteki örneği inceleyin.


Ek Dosyalar
.rar   Dlookup_durkheim.rar (Dosya Boyutu: 107,8 KB / İndirme Sayısı: 35)
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sponsor Reklam
Sayın Yandemir hocam, örnek ve yardım için çok teşekkür ederim. Çok fazla karne kaydı yaptığımız için "Bu Seri No kullanılmaktadır!Önce Seri Numarasını Değiştiriniz" uyarısını unutarak seri numarasını değiştirmediğimizde bile aynı seri numarası başka kişiler için yine de kayıt ediliyor. Kesinlikle aynı seri numarasının başka kişiler için kaydedilmesinin önlenmesi ve "Bu Seri No kullanılmaktadır! Seri Numarasını Değiştirmeden Yeni Kayda Geçemezsiniz" işlemini gerçekleştirmek mümkün değil midir?
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Çözüldü 
Programınız bende hata verdiği için tam olarak bakamadım

Şunu bir denermisiniz.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim a, b, C, d As String
a = Me.txt_Ykartserino & "" & Me.Ykartseri
b = DLookup("[Ykartserino]", "KarneVER", "[Ykartserino]= " & Me.txt_Ykartserino)
C = DLookup("[Ykartseri]", "KarneVER", "[Ykartseri]=" & "'" & Me.Ykartseri & "'")
d = b & "" & C
   If a = d Then
        MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
         
   Me.txt_Ykartserino.BackColor = vbGreen
     Undo
     DoCmd.GoToControl "Ykartserino"
     Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      End If
Exit_Komut40_Click:
    Exit Sub
Err_Komut40_Click:
    MsgBox Err.Description


Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  ListBox'a Eklenen Veriyi Kontrol Etme ve Mükerrer Engelleme dufrety 13 182 Dün, 10:35 dufrety
Exclamation Mükerrer Kayıtları Farklı Sütuna Taşıma rmznaydemr 2 198 18/01/2017, 00:25 ozanakkaya
  mükerrer Kayıt taha1234 7 274 25/12/2016, 03:17 taha1234
  Mükerrer Kayıt Hk. Serkan Çevik 2 139 01/12/2016, 22:37 Serkan Çevik
Çözüldü koşullu mükerrer kayıt silme sorgusu mehmetb84 14 776 02/03/2016, 22:43 mehmetb84


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