Skip to main content

AccessTr.neT

Kayıt Ol

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

form üzerinde benzer kayıt uyarısı

metehan16
metehan16
Access Cevaplanmış Soruları
6
4983

form üzerinde benzer kayıt uyarısı

Çözüldü #1
metehan16
Aktif Üye
metehan16
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2007
Son Oturumu: 16/11/2023,09:32
Yorumları: 142
Konuları: 24
Kayıt Tarihi: 08/02/2012
Teşekkür Puanı: 24
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.

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ı: 79)
"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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 11/04/2025,18:25
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
Çözüldü #3
metehan16
Aktif Üye
metehan16
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2007
Son Oturumu: 16/11/2023,09:32
Yorumları: 142
Konuları: 24
Kayıt Tarihi: 08/02/2012
Teşekkür Puanı: 24
(24/01/2013, 20:11)ozanakkaya yazdı: 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


Son Düzenleme: 24/01/2013, 20:30, Düzenleyen: metehan16.
Cevapla
Çözüldü #4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 11/04/2025,18:25
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
kodu aşağıdaki ile değiştirip "numuneadid" metin kutusundaki veriyi sorgulat.

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
Çözüldü #5
metehan16
Aktif Üye
metehan16
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2007
Son Oturumu: 16/11/2023,09:32
Yorumları: 142
Konuları: 24
Kayıt Tarihi: 08/02/2012
Teşekkür Puanı: 24
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
access_delisi
Tımarhaneden Yeni Kaçtım
access_delisi
Bul
Aktif Üye
Adı Soyadı: Ah.... Fu.... Ce....
Yaşı: 49
Konum: Denizli
Ofis Versiyonu: -
Son Oturumu: 14/01/2023,00:45
Yorumları: 454
Konuları: 87
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 20
(24/01/2013, 20:51)ozanakkaya yazdı: kodu aşağıdaki ile değiştirip "numuneadid" metin kutusundaki veriyi sorgulat.

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
Task