Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Mükerrer Kayıtların Engellenmesi

durkheim
durkheim
Access Cevaplanmış Soruları
15
6746

Mükerrer Kayıtların Engellenmesi

Çözüldü #1
durkheim
Aktif Üye
durkheim
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 15/09/2013,13:39
Yorumları: 320
Konuları: 49
Kayıt Tarihi: 13/09/2010
Teşekkür Puanı: 20
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?
.rar Dlookup_durkheim.rar (Dosya Boyutu: 97,31 KB | İndirme Sayısı: 25)
Cevapla
Çözüldü #2
Yandemir
Only Office 2003
Yandemir
www Bul
Onursal Üye
Adı Soyadı: Mu.... Ya....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2003
Son Oturumu: 23/03/2024,00:44
Yorumları: 1.461
Konuları: 17
Kayıt Tarihi: 26/08/2009
Teşekkür Puanı: 487
Mesleğiniz: Yazılım
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
Çözüldü #3
durkheim
Aktif Üye
durkheim
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 15/09/2013,13:39
Yorumları: 320
Konuları: 49
Kayıt Tarihi: 13/09/2010
Teşekkür Puanı: 20
(12/03/2011, 02:21)Yandemir yazdı: 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
Çözüldü #4
Yandemir
Only Office 2003
Yandemir
www Bul
Onursal Üye
Adı Soyadı: Mu.... Ya....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2003
Son Oturumu: 23/03/2024,00:44
Yorumları: 1.461
Konuları: 17
Kayıt Tarihi: 26/08/2009
Teşekkür Puanı: 487
Mesleğiniz: Yazılım
ekteki örneği inceleyin.
.rar Dlookup_durkheim.rar (Dosya Boyutu: 107,8 KB | İndirme Sayısı: 36)
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #5
durkheim
Aktif Üye
durkheim
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 15/09/2013,13:39
Yorumları: 320
Konuları: 49
Kayıt Tarihi: 13/09/2010
Teşekkür Puanı: 20
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
Çözüldü #6
Puletin
Onursal Üye
Puletin
Bul
Onursal Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 24/12/2016,00:18
Yorumları: 1.717
Konuları: 40
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 416
Programınız bende hata verdiği için tam olarak bakamadım

Şunu bir denermisiniz.

Kod:
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task