Skip to main content

AccessTr.neT

Kayıt Ol

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

aynı kayıt sorunu

murata
murata
Access Cevaplanmış Soruları
23
8235

aynı kayıt sorunu

Çözüldü #7
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Kaydet butonunuzun olay kodunu şu şekilde değiştiriniz:


Dim ad_no, soyad_no As String
Dim rs As Object

    soyad_no = Dlookup ("no", "musteri", "soyad='" & Me.soyad & "'")
    ad_no = DCount("ad", "musteri", "soyad='" & Me.soyad & "' AND ad='" & Me.ad & "'")
      
    If ad_no > 0 Then
        Me.Undo
        MsgBox "Böyle bir kayıt daha önceden var"
        
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[no] = " & Str(Nz(soyad_no, 0))
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Else
        MsgBox "yok"
    End If

Ben kabaca yazdım siz istediğiniz gibi düzenlersiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #8
murata
Üye
murata
Bul
Üye
Adı Soyadı:
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 27/09/2013,12:24
Yorumları: 13
Konuları: 1
Kayıt Tarihi: 04/05/2009
Teşekkür Puanı: 0
deniyorum ama bende olmuyo arkadaşlar.
kafayı yedirtecek banaya, nasıl sıkıntı oldu bana.

Yinede bu konu ile ilgilenen herkese cok teşekkür ederim.
Son Düzenleme: 23/09/2010, 09:53, Düzenleyen: murata.
Cevapla
Çözüldü #9
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Ben test ettim bir problem yok. Eğer aynı ad ve soyad ile bir kayıt var ise uyarıyor mevcut işlemi iptal edip o kaydı ekrana getiriyor. Eğer aynı ad ve soyaddan kimse yoksa direkt kaydediyor.

NOT: Access 2010 ile 2003 formatında kaydettiğim için sizde açmaz ise eğer Kaydet butonundaki TÜM KODLARI SİLİP aşağıdakileri içine yapıştırın:


On Error GoTo Hata_Kontrol
Dim ad_no, soyad_no As String
Dim rs As Object

    soyad_no = Dlookup ("no", "musteri", "soyad='" & Me.soyad & "'")
    ad_no = DCount("ad", "musteri", "soyad='" & Me.soyad & "' AND ad='" & Me.ad & "'")
      
    If ad_no > 0 Then
        Me.Undo
        MsgBox "Böyle bir kayıt daha önceden var"
        
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[no] = " & Str(Nz(soyad_no, 0))
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        Me.Liste12.Requery
    End If
    

Hata_Cikis:
    Exit Sub

Hata_Kontrol:
    MsgBox Err.Description
    Resume Hata_Cikis

NOT : Ufak bir hata var şimdi dışarı çıkacağım için bakamıyorum geri gelince düzelteceğim ancak şu anda eksikte olsa çalışıyor.
.rar VT_alpeki99.rar (Dosya Boyutu: 78,05 KB | İndirme Sayısı: 13)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #10
murata
Üye
murata
Bul
Üye
Adı Soyadı:
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 27/09/2013,12:24
Yorumları: 13
Konuları: 1
Kayıt Tarihi: 04/05/2009
Teşekkür Puanı: 0
evet şimdi oldu ALPEKİ99 arkadaşa cok teşekkür ederim.

bişey daha ricaetsem,
silme butonu ekleyip o müşterinin tüm tablolardaki o müşteriye ait bilgileri silinsin istiyorum mümkünmüdür.
Saygılarımla.
Son Düzenleme: 22/09/2010, 18:03, Düzenleyen: murata.
Cevapla
Çözüldü #11
benremix
Onursal Üye
benremix
www Bul
Onursal Üye
Adı Soyadı: Ra.... So....
Yaşı: 58
Konum: Ankara
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 06/03/2025,06:35
Yorumları: 4.446
Konuları: 127
Kayıt Tarihi: 17/05/2009
Teşekkür Puanı: 365
Mesleğiniz: Şirket Sahibi
Sn Murata lütfen Site Kurallarını okuyunuz ve uygulayınız. Mesajınızın tamamını büyük harfle yazmayınız. Yazdıklarınızı düzeltiniz. Sanırım arkadaşlar uyarmayı unutmuşlar...

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
Çözüldü #12
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Bütün tablolar dediğiniz "şikayet ve sonuç" ve "ürün" isimli tablolar anladığım kadarıyla. Bu tablo isimleri problem yalnız. Lütfen 🔍yapılmaması gereken ölümcül hatalar konusunu ciddi ciddi okuyun.

Benimde sizden iki ricam olsun. Site Kuralları gereği tamamen büyük harfler ile yazmayınız. Diğeri ise sorularınızı adım adım sorarsanız çok daha iyi yardımcı olabiliriz.

Tablolar bahsettiğim bu iki tablo ise ona göre işlem yapalım.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task