Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/01/2013 16:08
Konu Sahibi
metehan16
Yorumlar
6
Okunma
3194
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
metehan16

metehan16

Aktif Üye
45925
 Belirtilmemiş
 24
 142
 08/02/2012
24
 Belirtilmemiş
 
 Ofis 2007
 13/05/2019,07:43
Çözüldü 
merhaba arkadaşlar!

formum üzerinde aynı kayıdı ikinci defa girilmesini engellemek için
kaydın güncelleme sonrasına şöyle bir kod yazdım.

Visual Basic Code
1
2
3
4
5
6
Private Sub numuneadid_AfterUpdate()
If numuneadi = DLookup("[numuneadi]", "tbl_numadi") Then 'Form_frm_numadi.numuneadi
 If MsgBox("Aynı kayıt var Yinede Kaydetmek İstiyormusunuz", vbCritical + vbYesNo, "Kayıt Tekrarı") = vbNo Then
 Me.Undo
 Else
 End If


güncelleme yaptığımda ilk kayıtta msj veriyor fakat sonraki kayıtların benzeerini girdiğimde msj vermiyor.
hocalarımın engin bilgi ve tecrübelerine dayanarak soruyorum
cvplar için şimdiden teşekkürler

dosya örneğide yüklüyorum



"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:23
Çözüldü 
yeni kayıt ekleyip numuneadı kısmına şebeke yazdım, uyarı verdi. sonra tekrar yeni kayıt ekledim, yine şebeke yazdım, yine uyarı mesajı çıktı.


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

...........
metehan16

metehan16

Aktif Üye
45925
 Belirtilmemiş
 24
 142
 08/02/2012
24
 Belirtilmemiş
 
 Ofis 2007
 13/05/2019,07:43
Çözüldü 
(24/01/2013 20:11)ozanakkaya Adlı Kullanıcıdan Alıntı: yeni kayıt ekleyip numuneadı kısmına şebeke yazdım, uyarı verdi. sonra tekrar yeni kayıt ekledim, yine şebeke yazdım, yine uyarı mesajı çıktı.



sayın ozanakkaya şebeke tablonun ilk kaydı onda msj veriyor fakat kuyu yazınca msj vermiyor. ben tablo numune adi kısmındaki bütün kayıtları arayıp benzeri varsa bana msj versin


"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:23
Çözüldü 
kodu aşağıdaki ile değiştirip "numuneadid" metin kutusundaki veriyi sorgulat.

Visual Basic Code
1
2
3
4
5
6
7
8
If DLookup("[idnumuneadi]", "tbl_numadi", "[numuneadi]=" & "'" & Me.numuneadid & "'") > 0 Then 'Form_frm_numadi.numuneadi
    If MsgBox("Aynı kayıt var Yinede Kaydetmek İstiyormusunuz", vbCritical + vbYesNo, "Kayıt Tekrarı") = vbNo Then
        Me.Undo
        'DoCmd.GoToRecord , , , Me.idnumuneadi
        Else
    End If
Else
End If



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

...........
metehan16

metehan16

Aktif Üye
45925
 Belirtilmemiş
 24
 142
 08/02/2012
24
 Belirtilmemiş
 
 Ofis 2007
 13/05/2019,07:43
Çözüldü 
sayın ozanakkaya verdiğiniz kod işe yaradı


çok çok teşekkür ederimm


"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin



access_delisi

access_delisi

Aktif Üye
20
Ah.... Fu.... Ce....
 41
 63
 400
 30/10/2008
17
 -
 Yönetici
 Ofis 2016 64 Bit
 18/06/2019,12:02
Çözüldü 
(24/01/2013 20:51)ozanakkaya Adlı Kullanıcıdan Alıntı: kodu aşağıdaki ile değiştirip "numuneadid" metin kutusundaki veriyi sorgulat.

Visual Basic Code
1
2
3
4
5
6
7
8
If DLookup("[idnumuneadi]", "tbl_numadi", "[numuneadi]=" & "'" & Me.numuneadid & "'") > 0 Then 'Form_frm_numadi.numuneadi
    If MsgBox("Aynı kayıt var Yinede Kaydetmek İstiyormusunuz", vbCritical + vbYesNo, "Kayıt Tekrarı") = vbNo Then
        Me.Undo
        'DoCmd.GoToRecord , , , Me.idnumuneadi
        Else
    End If
Else
End If


tesekkurler, kodu uygulamamda kullandim


SÖZ VERİYORUM... USLU DURUCAM...

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Liste Kutusundan Aynı Tablo Üzerinde Güncelleme Yapmak Yunus Bozkurt 14 467 10/06/2019, 16:31
Son Yorum: Yunus Bozkurt
Çözüldü Alt Form Kayıt most 6 200 31/05/2019, 09:12
Son Yorum: most
Çözüldü Access İle Basit Kayıt Programı musti35 4 181 27/05/2019, 17:07
Son Yorum: musti35
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 196 20/05/2019, 11:58
Son Yorum: haziran4
Çözüldü Mükerrer Kayıt Sorunu Fatih34 5 346 13/05/2019, 16:08
Son Yorum: halily

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