AccessTr.neT

Tam Versiyon: Mükerrer Kayıt Hk.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Arkadaşlar merhaba ek'teki formda mevcut olan "tank sorgulama" formunda kayıt ekranında kayıt yaptığımda hata kodu aynı veri olmasa dahi çıkıyor. Kodda bi sorun var galiba sizde yardımcı olursanız sevinirim. Teşekkürler.
Sayın Serkan Çevik.

Yapılmaması Gereken Ölümcül HatalarURL'ye Git konusu, açmış olduğunuz diğer konularda mutlaka belirtilmiştir. Tablonuzdaki alan adı "Konteyner no" olursa, bu tür Dlookup , DCount gibi kriter içeren kodları çalıştırmakta zorluk yaşarsınız.

Ayrıca, sizin uygulamanıza göre mükerrer kayıt kontrolünde, kodu metin kutusunun güncelleştirme sonrasında olayında kullanmalı ve Undo kodu yerine kontrol yapılan metin kutusunu temizlemelisiniz.

metin kutusunun güncelleştirme öncesindeki kodun tamamını silin, metin kutusunun güncelleştirme sonrasında olayına da aşağıdaki kodu ekleyerek deneyin.


Private Sub Konteyner_no_AfterUpdate()
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, MyForm.Name, False
MsgBox "Kayıt Tamamlanmıştır.", vbApplicationModal
Dim SID As String
Dim stLinkCriteria As String
SID = Me.Konteyner_no.Value
stLinkCriteria = "[Konteyner no]=" & "'" & SID & "'"
If DCount("[Konteyner no]", "Tank Tablo", stLinkCriteria) > 0 Then
'Me.Undo
Me.Konteyner_no = Null
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
Set rsc = Nothing
End Sub


bu koddaki
Set rsc = Nothing

kodunun hiçbir anlamı yok, bu kodu silmeniz gerekli, ayrıca kayıt tamamlanmıştır mesaj kutusunun olmaması gerekli, çünkü tamamlanan kayıt henüz yok.

Yapılmaması Gereken Ölümcül HatalarURL'ye Git konusunu tekrar inceleyin, öncesine ait hatalı işlemler olabilir ama yeni form veya tablo oluşturursanız mutlaka doğru oluşturun.
Ozan bey gayet iyi anladım şu an yardımınz sayesinde sorun çözülmüştür. Çok teşekkürler. +rep