Aynı kayıt varsa uyarı

[turkerdundar]

Slm
aynı kayıt varsa adısoyadı yerine yazınca uyarsın
bunu nasıl yapabilrim teşekkürler

 

[BKCAN]

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

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

 

[turkerdundar]

TeŞekkÜrler

Slm
TeŞekkÜrler
Sİzler İyİkİ Varsiniz

 

[turkerdundar]

bi türlü uyralayamadım bir yadım eden olsa

slm
kodu bi türlü programam uyarlayamadım bi r yardım lütfen

 

[BKCAN]

başka bir kodu uyarladım dosyanız ekte.

arkadaşlar mükerrer kayıt ile ilgili kod lazımsa kalın yazılı olan yerleri kendi formunuza göre düzeltip uyarlayın

olay>güncelleştirme öncesi>kod oluştur açılan yere aşagıdakileri uyarlayın

adı soyadı olan yer mükerrer kayıt kontrol edilmesi gereken yer giriş ise forumun ismi

kolay gelsin

Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
End Sub

 

[assenucler]

cevap

Merhaba Sn BKCAN,

Sağolasın. Teşekkür.

 

[turkerdundar]

BKCAN teşekkürler

Sağolunkardeşlerim

 

[takoo]

peki sevgili kardeşlerim, "bir" denetim üzerinden aynı kaydın olup olmadığını kontrol ediyoruz.adsoyad tek denetimde... muhtemelen aynı isimde başka değerlere sahip kayıt ta vardır.bu şekilde sağlıklı sonuç alınmaz diye düşünüyorum. bu kodları bird en fazla denetime nasıl uyarlayacağız? mesela "ad" "soyad" "adres" ...

 

[SIDDIK]

çok teşekkürler yardımcı olduğunuz için

 

[SIDDIK]

ben mükerrer kaydı yapamadım lütfen yardımcı olun dediklerinizin hepsini harfiyen yaptım ama olmuyor ekteki dosyayı yapıp bana gönderirmisiniz.bir türlü çözemedim sorunu

 

[SIDDIK]

ekteki dosyayı incelermisiniz

 

[karaayhan]

ekteki dosyayı incelermisiniz

sayın SIDDIK inceleyelim de dosya nerde

lütfen kontrol edip tekrar yükleyin dosyanızı.

 

[SIDDIK]

çok özür dilerim ekteki ekli dosyayı gönderiyorum

 

[oners]

Aynı kayıtta uyarması

arkadaşlar örnekleri inceledim aynısını uyguladım ama bir türlü yapamadım adı soyadı hanesinde yapamadım ekteki örnekte yaparsanız sevinirim.

 

[yasemincik]

örnek dosyanız istediğiniz gibi oldu

sayın oners örnek dosyanız istediğiniz gibi oldu
musteri forum adı olacak siz yanlış yazmış olabilirsiniz

 

[oners]

teşekkür ederim

elinize sağlık teşekkür ederim

 

[SIDDIK]

arkadaşlar benim ekteki dosyamı ARIZA NO kısmına aynı kayıtların girilmesini engellemek istiyorum ama bir türlü yapamadım dosya ektedir. yardımcı olurmusunuz.

 

[hocam1]

aynı kayıtları bulma

sayın Sıddık kardeşim sevkiyat access dosyası bana da aynı kayıtları tarayıp veren bir kod lazım senin access dosyanı inceledim ama göremedim. Yardımcı olursan sevinirim.

 

[takoo]

Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
End Sub

peki sevgili kardeşlerim, "bir" denetim üzerinden aynı kaydın olup olmadığını kontrol ediyoruz.adsoyad tek denetimde... muhtemelen aynı isimde başka değerlere sahip kayıt ta vardır.bu şekilde sağlıklı sonuç alınmaz diye düşünüyorum. bu kodları bird en fazla denetime nasıl uyarlayacağız? mesela "ad" "soyad" "adres" ...