Arkadaşlar kolay gelsin.
Sorunum şu ki. Yapmış olduğum programda bulunan üç ayrı alandaki verilere baktırarak bu veriler daha önce bu şekilde yanyana gelmişse uyarı versin. "bu kayıt daha önce yapılmış" gibi. Örnek olarak ta: 1. alan: ankara 2. alan: domates 3. alan 19.01.2009 tarihi olsuh, daha önce aynı bu şekilde başka bir kayıt girilmişse yazacağımız kod, deyim ona baksın ve kullanıcıyı uyarsın mümkünse, bilen arkadaşların yardımlarını bekliyorum.
Benim yine buradan sadece bir alandaki sayı mükerrer yazılıysa uyarması için aldığım kod vardı. Ancak buna uyarlayamadım. İlgilenenler için aşağıya kopyalıyorum.
Benim üç alan dediğim yerin ikisi açılır kutu ve alan özelliği metin, birisi ise tarih ilgilenen arkadaşlara şimdiden teşekkürler.
Bir alandaki daha önce girilmiş aynı sayıyı uyaran kod..
Güncelleştirme öncesinde olayına:
Dim SID As Long
Dim stLinkCriteria As String
SID = Me.[edairesayisi].Value
stLinkCriteria = "[edairesayisi]=" & SID&
If DCount("[edairesayisi]", "sorgu&data", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Yazmakta oldugunuz " _
& SID & " sayılı evrak daha önce kaydedilmiş !!!!" _
& vbCr & vbCr & "BU EVRAĞI TEKRAR YAZMANIZA GEREK YOK !!", vbInformation _
, "Mükerrer Kayıt"
End If
Sorunum şu ki. Yapmış olduğum programda bulunan üç ayrı alandaki verilere baktırarak bu veriler daha önce bu şekilde yanyana gelmişse uyarı versin. "bu kayıt daha önce yapılmış" gibi. Örnek olarak ta: 1. alan: ankara 2. alan: domates 3. alan 19.01.2009 tarihi olsuh, daha önce aynı bu şekilde başka bir kayıt girilmişse yazacağımız kod, deyim ona baksın ve kullanıcıyı uyarsın mümkünse, bilen arkadaşların yardımlarını bekliyorum.
Benim yine buradan sadece bir alandaki sayı mükerrer yazılıysa uyarması için aldığım kod vardı. Ancak buna uyarlayamadım. İlgilenenler için aşağıya kopyalıyorum.
Benim üç alan dediğim yerin ikisi açılır kutu ve alan özelliği metin, birisi ise tarih ilgilenen arkadaşlara şimdiden teşekkürler.
Bir alandaki daha önce girilmiş aynı sayıyı uyaran kod..
Güncelleştirme öncesinde olayına:
Dim SID As Long
Dim stLinkCriteria As String
SID = Me.[edairesayisi].Value
stLinkCriteria = "[edairesayisi]=" & SID&
If DCount("[edairesayisi]", "sorgu&data", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Yazmakta oldugunuz " _
& SID & " sayılı evrak daha önce kaydedilmiş !!!!" _
& vbCr & vbCr & "BU EVRAĞI TEKRAR YAZMANIZA GEREK YOK !!", vbInformation _
, "Mükerrer Kayıt"
End If