veri kontrolü kodunda düzeltme

[abkbek]

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

 

[modalı]

Sanırım bu kod dün düzelttiğim kod idi.

stLinkCriteria = "[sicil]=" SID

Örnek üstünde olmayınca hatalar oluyor

stLinkCriteria = "[sicil]="  & SID

olarak değiştirin.
stLinkCriteria metin olarak tanımlanmış ve metinde ekleme & ilşe oluyor.

İyi çalışmalar

 

[abkbek]

Sayın modalı ,
yapmak istediğim şu; girdiğim değer (Sayı değeri) eğer daha önceden varsa alandan çıkmadan beni ikaz etsin. bunun için kodu söylediğiniz şekilde düzelttim ve son hali aşağıdaki gibi oldu, fakat hala hata veriyor.
gerçi tabloda yineleme yok seçeneği ile kaydın sonunda ikaz alıyorum ama ben alandan çıkmadan bunu yapmak istiyroum.

Private Sub sicili_BeforeUpdate(Cancel As Integer)
Dim SID As Long
Dim stLinkCriteria As Long
SID = Me.[sicili].Value
stLinkCriteria = "[sicili]=" & SID
If DCount("[sicili]", "giriş", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " sicil Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If

End Sub

 

[abkbek]

kodda hata

Sayın modalı,
bu aralar size çok müracaat ediyorum, kusuruma bakmayın lütfen. yukarıdaki hata ile ilgili ornek dosyayı ekte gonderiyorum, bakabilirseniz sevinirim.

teşekkürler ve iyi çalışmalar dilerim:yardim:

 

[modalı]

Sayın abkbek,

Kaç gündür koda bakıyorum ama stLinkKriteria nın veri türünün Long olduğunu göremiyor. Orayı String ile değiştirin.

Örneğe bakamadım akşama evde bakacağım çok yoğunum bugün.

İyi çalışmalar

 

[abkbek]

Sayın Modalı,
Dediğiniz gibi string düzeltmesi ile problem çözümlendi. Çok teşekkür ederim bir de size gonderdigim ornekteki tablo ile, kodda yazılı tablo adları farklıymış, onu da düzelttiğimde kod çokgüzel çalıştı.

Sayın modalı tablodaki anahtar alanların yinelenmesi durumunda Acces'in standart yineleme hata mesajı çok uzun olduğundan kullanıcılar mesajı görünce problemi anlamıyor ve bunu bir sorun gibi algılıyorlar. bu mesajın yerine yukarıdaki (Sizin düzeltmesini yaptığınız koddaki gibi mesela) gibi basit, kısa ve anlaşılır bir mesajı vermek için ne yapmamız gerekiyor. yani Access'in varsayılan yineleme hata mesajını iptal edip kendi mesajımı verebilmek için ne yapmalıyım.

 

[abkbek]

yineleme hata mesajını özelleştirme hakkındaki sorumla ilgilenebilir misiniz