Skip to main content

AccessTr.neT


Mükerrer Kayıt Hk.

Mükerrer Kayıt Hk.

#1
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.
.rar Sharp Eye.rar (Dosya Boyutu: 3,79 MB | İndirme Sayısı: 23)
Cevapla
#2
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.
Cevapla
#3
Ozan bey gayet iyi anladım şu an yardımınz sayesinde sorun çözülmüştür. Çok teşekkürler. +rep
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task