AccessTr.neT

Hocam dediklerinizi aynen yaptım. Üstten aşağıya yazdığınız mesajları ezberledim. Değişik değişik denedim. Geldiğim nokta arka planda form yaptım. İlk o açılıyor ve görünmüyor. İlk istediğim form da açılıyor. Buraya kadar sıkıntı yok. 

Ancak "Public Kapat_OK As Boolen" bu kodu eklemeden PENCEREYİ KAPAT butonu pasif olmuyor. Yani istediğim sistem kurulamıyor. Fareyle sağ tıklayıp kapat diyince halen kapanıyor. Bu kodu ekleyince olması gerektiği gibi Access in kapanması engelleniyor. Tam istediğim gibi. Ancak bu kodu nereye eklersem ekleyeyim hata veriyor. Arka plandaki forma da ekledim, diğer formlara da ekledim. Olmuyor. Biryerde hata yaptığımı da düşünmüyorum. Çıkamadım yine işin içinden. 

bu kodu arka plan formuna ekleyince "olay özellik ifadesi ayarı olarak girdiğiniz kaldırıldığında ifadesi hataya neden oldu: user-defined type not defined"
hatası veriyor. 
kaldırıldığında kodunu kaldırıyorum, yüklendiğinde diyor, onu kaldırıyorum farklı birşey diyor. 

bu kodu eklenmemiş olarak hazırladığım arka plan formlu dosyayı ekte gönderiyorum. Bakabilir misiniz.

Ekli dosyayı inceler misiniz?
Çok sayıda formunuz olduğu için kapat_OK kapatdenetim adlı modüle tanımlayarak çağırılıyor. Formlarınızda kapat_ok ile ilgili hepsine işlem yapmanız gerekli yaptınız mı bilmiyorum formdan forma geçerken true değer almasını sağlamalısınız cevabımda bu hususu atlayacağınızı düşünmediğim için ince detaylarına kadar yazmamıştım ama yoğun tempo arasında benim hatam kusura bakmayın ilk defa uygulayacağınız bir işlemde detaylara takılabileceğinizi düşünmem gerekirdi.

DoCmd.OpenForm "formdeneme3"
kapat_ok = True
DoCmd.Close acForm, "formdeneme2"
kapat_ok = False


2 gündür uğraşıyorum. Sonunda buldum. En sonuna Kapat_ok = False komutunu eklemem gerekiyormuş. Bunu kendi formumda yapamıyordum, çok karışıktı. Yeni bir form denemesi yaptım. Kodları yerleştirdim ve eksikliği giderdim. True değerinin form' un kapatılmasını engelleyen kodu kaldırdığını farkettim ancak yeni açılan formda false haline döndürülmesi için ne yapmam lazım onu bulamamıştım. Form açılışına, yüklenişine, geçerli olduğunda hepsine koydum ancak olmadı. Son olarak formlar arası geçiş kodu son kısmına yazdığımda istediğim şeye ulaştığımı farkettim.

Aslında Vba bilen birisi bunu çok hızlı yapabilirdi ama bende hiç olmadığından 4 günü mü aldı. Bunu yeni yaptığım form üzerinden başardım. Dosyayı da ekliyorum. Basit ama çok önemli bir husustu benim için. Atoykan hocam çok teşekkür ediyorum. Bu benim yaptığım projenin sağlıklı şekilde yürümesini sağlayacak olan çalışmalardan biriydi. 


ARTIK Access DOSYAM görev çubuğundan "PENCEREYİ KAPAT" tuşuyla kapanmıyor.

Saygılar...

Rica ederim, iyi çalışmalar.