- Mesajlar
- 1,177
Merhaba arkadaşlar..
Accessde şöyle bir kod var ama mesela a harfini bile girsek daha "Girmekte olduğunuz isim daha önce işlenmiş hatası alınıyor. Buradaki yanlış yazılan yer neresi acaba?? Yardım ederseniz çok sevinirim
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
Accessde şöyle bir kod var ama mesela a harfini bile girsek daha "Girmekte olduğunuz isim daha önce işlenmiş hatası alınıyor. Buradaki yanlış yazılan yer neresi acaba?? Yardım ederseniz çok sevinirim
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