A.S.C Filtre, Grafik ve Raporlama Eklentisi

[ADO / DAO] Run time hatası 2465
#1
Yaşlı engelli isimli bir uygulama hazırladım. Değerli Hocamız Taruz'un Boş Alan Kontrolü Modülünü uyguladım. Ancak kaydet butonuna bastığımda Runtime hatası alıyorum. Yaklaşık 24 saat boyunca üzerinde çalıştım ancak sıkıntıyı çözemedim.

Kaydet butonuna tıkladığımda boş alan kontrolü yapacak Boş alan yoksa kaydedecek. Kullanıcı kayıt boşken kaydet butonuna tıkladığında Alanların boş olduğunu bildiren bir mesaj verecek, kullanıcı isterse kaydetmeden çıkabilecek. Çıkış butonuna tıkladığında ise yine boş alan kontrolü yapacak boş alanlar doldurulunca da formu kapatacak.

Saygı değer hocalarımın yardımlarını bekliyorum. Saygılarımı sunuyorum

Site de VT gönderme kaldırılmış sanırım yada ben bulamadım o yüzden kodu yazdım

Private Sub Kaydet_Click()

Dim rs As New ADODB.Recordset


Call BosKontrol(Form) 'Boş alan kontrolü yapıyor Alankontrol modülünden geliyor


If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kayıt Ediliyor") = vbYes Then

rs.Open "Yaşlı", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew
rs!SNO = Me.SNO
rs!KUTUK_NO = Me.KUTUKNO
rs!KABUL_TARİHİ = Me.KABUL_TARİHİ
rs!ADI_SOYADI = Me.ADI_SOYADI
rs!TC_NO = Me.TC_NO
rs!DOGUM_TARİHİ = Me.DOGUM_TARİHİ
rs!DOGUM_YILI = Me.DOGUM_YILI
rs!DOGUM_YERİ = Me.DOGUM_YERİ
rs!İLİ = Me.İLİ
rs!İLCESİ = Me.İLCESİ
rs!ANA_ADI = Me.ANA_ADI
rs!BABA_ADI = Me.BABA_ADI
rs!KABUL_YILI = Me.KABUL_YILI
rs!CİNSİYETİ = Me.CİNSİYETİ1
rs!ÜCRETLİ = Me.ÜCRETLİ
rs!STATÜ = Me.STATÜ
rs!KATEGORİ = Me.KATEGORİ
rs!KBLOK = Me.KBLOK
rs!KAT = Me.KAT
rs!ODA_NO = Me.ODA_NO
rs!ODA_TEL = Me.ODA_TEL
rs!ODA_TİPİ = Me.ODA_TİPİ
rs!ÖZEL_BAKIM = Me.ÖZE
rs!SOSYAL_GÜVENCE = Me.SOSYAL_GÜVENCE
rs!EGİTİM_DURUMU = Me.EGİTİM_DURUMU
rs!AYRILMA_DURUMU = Me.ADURUMU
rs!AYRILIS_TARİHİ = Me.AYRILIS_TARİHİ
rs!DURUMU = Me.DURUMU
rs!VEFAT_NEDENİ = Me.VEFAT_NEDENİ
rs!MEDENİ_DURUMU = Me.MEDENİ_DURUMU
rs!MESLEK = Me.MESLEK
rs!GELİR_DURUMU = Me.GELİR_DURUMU
rs!GELİR_TÜRÜ = Me.GELİR_TÜRÜ
rs!ÜCRETİNİ_ÖDEYEN = Me.ÜCRETİNİ_ÖDEYEN
rs!COCUK_SAYISI = Me.COCUK_SAYISI
rs!ENSONKALYER = Me.ENSONKALYER
rs!YERLESİM_YERİ = Me.YERLESİM_YERİ
rs!KABUL_NEDENİ = Me.KABUL_NEDENİ
rs!GELIS_NEDENI = Me.GELIS_NEDENI
rs!GELIS_SEKLI = Me.GELIS_SEKLI
rs!MSF = Me.MSF
rs!MBLOK = Me.MBLOK
rs.Update
rs.Close
Set rs = Nothing
Call KilitGuncelle
MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"
GoTo 777
Else
MsgBox "Kayıt İşleminden Vazgeçtiniz. Bilgileriniz Kaydedilmedi!", 64, "Kayıt İşlemi"
End If
777
Me.ServisListe.Requery
End Sub



  Alıntı
Bu mesajı beğenenler:
#2
hata uyarısı verdikten sonra hangi satıra gidiyor?



  Alıntı
Bu mesajı beğenenler:
#3
(06-09-2019, 11:38)Ahmet51 demiş ki: ...
...................
Site de VT gönderme kaldırılmış sanırım yada ben bulamadım o yüzden kodu yazdım

............

Ahmet bey selamlar..

Eklenti ekleme özelliği aslında kaldırılmadı.. Mesaj kutusunun hemen altındaki bölümden vt nizi winrar türevi bir uygulama ile sıkıştırıp eklemeyi dener misiniz?



  Alıntı
Bu mesajı beğenenler:
#4

.rar   YAŞLI-ENGELLİ UYGULAMA.rar (Boyut: 486,53 KB / İndirilme: 9)
Vt ekliyorum



  Alıntı
Bu mesajı beğenenler:
#5
(06-09-2019, 11:50)halily demiş ki: hata uyarısı verdikten sonra hangi satıra gidiyor?

Üstadım vt yi ekledim.



  Alıntı
Bu mesajı beğenenler:
#6
sayın @ahmet51 gönderdiğiniz dosyada yer alan  "Yaşlı" formundaki kaydet butonundan boş kontrol prosedürü  kaldırılmıştı yenden eklediğimde boş alanları kontrol edip uyarısını verdi. ama kaydederken "kblok" alanında sorun çıkardı. "Yaşlı" tablosunda galiba bir tek "Blok" alanı zorunlu tutulmuş, bu alan zorunlu olduğundan boş olduğunda hata veriyor.
ya "KBLOK" alanı zorunlu olmaktan çıkaracaksınız, yada bu haliyle kullanacaksanız
rs!KBLOK = Me.KBLOK satırını aşağıdaki ile değiştireceksiniz
rs!KBLOK = Nz(Me.KBLOK, "")
iyi  çalışmalar


Eklenti Dosyaları
.jpg   zaorunlu.jpg (Boyut: 45,53 KB / İndirilme: 16)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Run-time Error '3340' "sorgusu Bozuk Hatası ÜmitSamlı 8 238 02-12-2019, 10:22
Son Mesaj: ÜmitSamlı
  [TABLO] Excell'den access'e veri aktarma hatası ( Number formatı veri hatası) akkana 3 492 08-01-2019, 16:45
Son Mesaj: halily
  [VBA] Run time 94 hatası sbrcrk 6 1.170 29-11-2017, 02:35
Son Mesaj: sbrcrk
  [FORM] Run-time error 2115 hatası cakir_ferit 11 1.336 02-11-2017, 15:49
Son Mesaj: dsezgin
  [VBA] Run-Time error 3134 sorunu destinasi 5 969 03-03-2017, 09:40
Son Mesaj: destinasi
  [VBA] Run-time error 438... Doğan Uluduz 2 1.188 31-10-2016, 18:34
Son Mesaj: Doğan Uluduz
  [VBA] Dlookup Run Time hatası mengene 1 1.032 30-07-2016, 15:28
Son Mesaj: dsezgin
access-sql-9 [VBA] run time error 80040e14 bilader 2 1.504 14-02-2015, 16:30
Son Mesaj: bilader

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi