Verilerin tekrar girişini önlemek

[zeugma07]

Sayın arkadaşlar,
Araştırıp da cevabını bulamadığım bir sorum olacak izninizle.
Form üzerinde Adı Soyadı alanına daha önce girilmiş bir Mehmet Acar var ise ikincisini girmeme izin vermeyecek ve uyaracak bir kod arıyorum.Bana yardımcı olacağınızı bilerek şimdiden teşekkür ederim,
kolay gelsin dileklerimle,

 

[ofbalki]

Adı Soyadı kısmının B sütununda olduğunu düşünürsek, programın kayıt düğmesinin kod bölümünün en üstüne, aşağıdaki kodlarıda ekleyin.


Dim bak As Range '****
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
MsgBox "Bu İsimde Bir Kaydınız Bulundu, Lütfen Başka Bir İsim Girin.", , "Mükerrer Kayıt!!!"
Exit Sub
End If
Next bak


Pardon arkadaşlar, ben soruyu excel olduğunu düşünerek cevaplamışım.

 

[Taruz]

Merhaba..

http://www.excel.web.tr/showthread.php?t=26884&highlight=m%FCkerrer+kay%FDt

 

[zeugma07]

Sn.Taruz, ilginize çok teşekkür ederim sorunumu hallettim.

 

[zeugma07]

Sn.Ofbalki, size de teşekkür ederim.Duyarlılığınız yeter, Sorunum Acsess ile ilgili idi.Sn Taruz yardımcı oldu.