Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Mükerrer Kayıt Hk.

serkan1985
serkan1985
Access Cevaplanmış Soruları
2
1345

Mükerrer Kayıt Hk.

#1
serkan1985
Aktif Üye
serkan1985
Bul
Aktif Üye
Adı Soyadı: Se.... Çe....
Yaşı: 39
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 13/12/2024,08:39
Yorumları: 371
Konuları: 102
Kayıt Tarihi: 21/01/2016
Teşekkür Puanı: 0
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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/04/2025,12:45
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
serkan1985
Aktif Üye
serkan1985
Bul
Aktif Üye
Adı Soyadı: Se.... Çe....
Yaşı: 39
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 13/12/2024,08:39
Yorumları: 371
Konuları: 102
Kayıt Tarihi: 21/01/2016
Teşekkür Puanı: 0
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