Mükerrer Kayıt Hk.

01/12/2016, 10:39

serkan1985

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.
01/12/2016, 19:49

ozanakkaya

Sayın Serkan Çevik.

Yapılmaması Gereken Ölümcül Hatalar

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 Hatalar
konusunu tekrar inceleyin, öncesine ait hatalı işlemler olabilir ama yeni form veya tablo oluşturursanız mutlaka doğru oluşturun.
01/12/2016, 22:37

serkan1985

Ozan bey gayet iyi anladım şu an yardımınz sayesinde sorun çözülmüştür. Çok teşekkürler.