Aynı kayıt varsa uyarı

turkerdundar · 7 Şubat 2007

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

BKCAN · 8 Şubat 2007

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 · 8 Şubat 2007

TeŞekkÜrler

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

turkerdundar · 8 Şubat 2007

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 · 9 Şubat 2007

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 · 9 Şubat 2007

cevap

Merhaba Sn BKCAN,

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

turkerdundar · 9 Şubat 2007

BKCAN teşekkürler

Sağolunkardeşlerim

takoo · 10 Şubat 2007

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 · 15 Mart 2007

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

SIDDIK · 16 Mart 2007

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 · 16 Mart 2007

ekteki dosyayı incelermisiniz

karaayhan · 16 Mart 2007

SIDDIK' Alıntı:
ekteki dosyayı incelermisiniz

sayın SIDDIK inceleyelim de dosya nerde

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

SIDDIK · 17 Mart 2007

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

oners · 22 Mart 2007

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 · 22 Mart 2007

ö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 · 23 Mart 2007

teşekkür ederim

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

SIDDIK · 24 Mart 2007

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 · 1 Nisan 2007

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 · 14 Ekim 2007

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

takoo' Alıntı:
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" ...