form üzerinde benzer kayıt uyarısı
Tarih
24/01/2013 16:08
Konu Sahibi
metehan16
Yorumlar
6
Okunma
2114
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
17/05/2016,10:50
Çö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ı: 67)
"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 http://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.009
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çö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
17/05/2016,10:50
Çö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 http://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.009
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çö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
17/05/2016,10:50
Çö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 http://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla


accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
314
30/10/2008
24
-
Ofis 2010 32 Bit
Dün,01:22
Çö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
  Mükerrer Kayıt Hk. Serkan Çevik 2 69 01/12/2016, 22:37 Serkan Çevik
  Run-Time error "2450" uyarısı mmert06 3 115 01/12/2016, 21:00 accessdelisi
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 210 29/11/2016, 13:49 Mesut Kaytan
  Güncelleştirme Sorgusu Çalıştırınca Kayıt Kilit Hatası Hakkında shalala 2 51 23/11/2016, 00:39 shalala
  Evrak Kayıt uygulaması için nasıl bir yol izlemeliyim talebe10 7 227 06/11/2016, 13:57 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya