MÜkerrer Kayit Nasil Engellerİz "acces"

[SIDDIK]

ekte gönderdiğim listeyi inceleyebilirsiniz aynı fiş numarasını girdiğim zaman hata iletisi vermesini istiyorum bunu nasıl yaparım yardımcı olurmusunuz.hocam

 

[simendifer]

mükerrer kayıt

canım kardeşim ustalarımızı kızdıracaksınız bu soru defalarca soruldu form içerisinde çok güzel örnekleri üşenmeden bizlere sundular örnekleri var lütfen soru sormadan önce forum içerisinde arama cubugundan sorularımızı arattıralım bulamassak o zaman sorumuzu bir örnekle soralım alınma ilk sen degilsin bu hatalara devamlı düşüyorlar yeni olabilirsin bu forumda sizler yardımcı olacak çok arkadaş var sorunun cevabı bu forumda altta verdiğim linkte halledemessen yaz örneginle yaz hallederiz kolay gelsin
http://www.excel.web.tr/showthread.php?t=26884&highlight=m%FCkerrer+kay%FDt

 

[SIDDIK]

birşey daha sormak istiyorum 12.02.2007 tarihinde 54DK854 plakalı araca kayıt açılmış bu plaka aynı tarihde başka bir kayıt açmamasını istiyorum bunu nasıl yaparız

 

[simendifer]

örnekte

sevgili kardeşim senin örnegine ben taplo1 formu ekledim firma adı metin kutusunun özelliklerine güncelleştirme öncesine olay yardımının kodunu yerrleştirdim düzgün calışıyor aynı firma adı girdiğinde seni uyarıyor sen yeni çalışmalarına bu kodu aynı şekilde yerleştir ama metin kutusu alan adını ve taplo adını senin tasarladıgın taplo ve alan adını yaz
bu kodu forumdan aldım sende kendi formuna uyarlarsan çalışır bendeki programa uyguladım çalışıyor

Bu kodu o alanın güncelleştirme öncesine yazarsanız tekrarlanan kayıt olduğunu gösteren bir mesaj alırsınız..

üstadlar sorununun cevabını gönderirler ama sen de ugraşırsan daha iyi olur

kolay gelsin


Alıntı:
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

SID = Me.[ALAN ADI].Value
stLinkCriteria = "[ALAN ADI]=" & "'" & SID & "'"


If DCount("[ALAN ADI]", "TABLO_ADI", stLinkCriteria) > 0 Then
'Undo duplicate entry
Me.Undo

MsgBox "Girmeye çalıştığınız " _
& SID & " No'lu ALANADI daha önce girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtlarınızı Kontrol Ediniz.", vbInformation _
, "Tekrarlanan ALANADI Numarası"

rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If

Set rsc = Nothing

 

[SIDDIK]

teşekkürler aydınlattığın için