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: 33)
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: 47)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Accessda Adı Soyadı Ve Time Ve Tarih Alanım Da Ilk Girileni Göster ahmet114 7 107 15-07-2021, 22:20
Son Mesaj: ahmet114
  Geçerlilik Kuralı Hatası (check Hatası) adnnfrm 5 230 24-03-2021, 21:38
Son Mesaj: halily
  Run-time Error '3061: çok Az Parametre, 1 Bekleniyor Hatası. volkan.gulbahar 3 197 21-03-2021, 08:56
Son Mesaj: dsezgin
  MS Access 1 kaydı anahtar hatası yüzünden tabloya ekleyemiyor" hatası Access70 2 362 24-05-2020, 18:18
Son Mesaj: Access70
  [SORGU] Run-time Error '3340' "sorgusu Bozuk Hatası ÜmitSamlı 8 915 02-12-2019, 10:22
Son Mesaj: ÜmitSamlı
  [TABLO] Excell'den access'e veri aktarma hatası ( Number formatı veri hatası) akkana 3 1.055 08-01-2019, 16:45
Son Mesaj: halily
  [VBA] Run time 94 hatası sbrcrk 6 1.472 29-11-2017, 02:35
Son Mesaj: sbrcrk
  [FORM] Run-time error 2115 hatası cakir_ferit 11 1.786 02-11-2017, 15:49
Son Mesaj: dsezgin

Foruma Git:


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