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

Derecelendirme: 0/5 - 0 oy

metehan16

Aktif Üye
Kullanici Avatari
Aktif Üye
142
08/02/2012
24
Belirtilmemiş
Ofis 2007
06/08/2017,22:21
Çö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


Ek Dosyalar
.rar   kayıtbulornk.rar (Dosya Boyutu: 21,31 KB / İndirme Sayısı: 69)
"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


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.797
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,05:24
Çö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ı.


Cevapla

metehan16

Aktif Üye
Kullanici Avatari
Aktif Üye
142
08/02/2012
24
Belirtilmemiş
Ofis 2007
06/08/2017,22:21
Çö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


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.797
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,05:24
Çö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


Cevapla

metehan16

Aktif Üye
Kullanici Avatari
Aktif Üye
142
08/02/2012
24
Belirtilmemiş
Ofis 2007
06/08/2017,22:21
Çö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


Cevapla

accessdelisi

Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Gümüş Üye
343
30/10/2008
27
-
-
19/09/2017,21:30
Çö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...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kayıt Silme Hatası burhanb 6 179 08/09/2017, 14:01 burhanb
Çözüldü form üzerinde filtre ve sorgu bazk 17 9.376 07/09/2017, 09:08 alperen2006
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 335 21/08/2017, 12:04 direnist
Çözüldü Döneme Göre Kayıt Etme haziran4 5 203 17/08/2017, 08:22 haziran4
Çözüldü Kayıt Sayısı metin02 7 255 13/08/2017, 11:05 metin02

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.