aşağıdaki kodu çalıştırdığımda 5nci satırında (stLinkCriteria = "[sicil]=" SID) hata ikazı alıyorum ve kod işlevini yapmıyor. hata nedir yardımcı olabilir misiniz.
Private Sub sicili_BeforeUpdate(Cancel As Integer)
Dim SID As Long
Dim stLinkCriteria As String
SID = Me.[sicil].Value
stLinkCriteria = "[sicil]=" SID
If DCount("[sicili]", "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
Private Sub sicili_BeforeUpdate(Cancel As Integer)
Dim SID As Long
Dim stLinkCriteria As String
SID = Me.[sicil].Value
stLinkCriteria = "[sicil]=" SID
If DCount("[sicili]", "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