- Katılım
- 9 Ocak 2007
- Mesajlar
- 33
- Excel Vers. ve Dili
- 2003
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.
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.