AccessTr.neT

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 Hatalar 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 Hatalar 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.