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

hata uyarısı verdikten sonra hangi satıra gidiyor?

(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?

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

(06-09-2019, 11:50)halily demiş ki: hata uyarısı verdikten sonra hangi satıra gidiyor?

Üstadım vt yi ekledim.

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