Aynı kayıt varsa uyarsın ancak kayıt etsin

[fatihselman]

Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"


If DCount("[adısoyadı]", "giriş", 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
End Sub

Ardakaşlar iyi akşamlar bu kodu bir uygulamada kullanmak istiyorum ancak benim isdediğim aynı kayıt varsa uyarsın FAKAT AYNI AD SOYADA SAHİP KİŞİ OLACAĞI İÇİN YENİ KAYIT YAPILMASINA İZİN VERSİN nasıl yapabilirim. İlgileriniz için teşekkürler.

 

[fatihselman]

Cevap

Tamam arkadaşlar sorunu çözdüm teşekkürler. Forumun 3, Sayfasında bu konu ile ilgili bir örnek var. Orada BKCAN isimli arkadaşın göndermiş olduğu kod benim işimi gördü herkese teşekkürler. Saygılarımla