Skip to main content

AccessTr.neT M.

form üzerinde benzer kayıt uyarısı

Konu

Çözüldü #1
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

.rar kayıtbulornk.rar (Dosya Boyutu: 21,31 KB | İndirme Sayısı: 71)
"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
Çözüldü #2
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. 
Cevapla
...........
Çözüldü #3
Son Düzenleme: 24/01/2013, 20:30, Düzenleyen: metehan16.
(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
Çözüldü #4
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. 
Cevapla
...........
Çözüldü #5
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
Çözüldü #6
(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
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da