AccessTr.neT

Daha önce farenin yeni kayıt açmasını engellemek konulu bir sorum olmuştu bu konuyu MouseHook yöntemiyle engellemiştik fakat zamanla kayıtlar arasında gezindikçe de yeni kayıt açtığını farkedip Sn. Kur@l'ın Form üzerinden girilen veriyi çoğaltma konulu soruma verdiği cevap örneğini bu formuma uyarlamak suretiyle yeni kayıt açılmasını engelledim. Örneğime uyarladım fakat bu örnekte birkaç kod ilavesine ihtiyacım var.

1. Liste kutusuna tıklayıp zimmet kaydını formumun ilgili kutularına atıp diğer bilgileri elle girdikten sonra Kaydet butonuna tıkladığımızda veriyi tablomuza kaydediyor.

Kaydet butonuna Tıkladığımızda "Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz? mesajıyla birlikte "Evet" dersek Raporumuzu yazdırmasını "Hayır" dersek Form üzerindeki metin kutularını boşaltıp (Geliş Tarihi hariç) yeni kayda hazır olmasını istiyorum.

1. Liste kutusuna demişsiniz ancak zaten 1 tane liste kutusu var. Bir yanlışlıkmı var?

---

Mevcut tek liste kutusuna göre yaptım siz diğer liste kutunuza göre revize edersiniz.

KAYDET düğmesinin tıklandığında olayına

Select Case MsgBox("Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz?", vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")



 Case vbYes

'Bu alana açılmasınıı istediğiniz raporu belirtin.

 Case vbNo

'Bu kısıma boşaltılmasını istediğiniz alanları belirtin.

'Örneğin 

'Me.CezaYeri=""

End Select

Sn.alpeki99
1.Liste kutusu derken ufak bir hata olmuş.
oradaki 1. nin anlamı aslında iki sorum olacaktı fakat Site Kuralları gereği ikinci sorumu bu konuya yazmaktan vazgeçtim o yüzden orada kalmış kusura bakmayın.
Örneğinizi birazdan inceliyorum, fakat paydos vakti yaklaştı evden geri dönüş yapabilirim ancak.

(14/09/2011, 16:26)BlackEagle yazdı: [ -> ]KAYDET düğmesinin tıklandığında olayına

Select Case MsgBox("Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz?", vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")



 Case vbYes

'Bu alana açılmasınıı istediğiniz raporu belirtin.

 Case vbNo

'Bu kısıma boşaltılmasını istediğiniz alanları belirtin.

'Örneğin 

'Me.CezaYeri=""

End Select

bu güzel koda alternatif olarak;

dim deger as string

deger=msgbox(("Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz?",36, "DİKKAT")

if deger=6 then

docmd.openreport,,"raporadı"

else

me.cezayeri.value=""

end if

şeklindede kullanabilirsin

Sn.alpeki99, BlackEagle, Coskun0559 Hepinize ayrı ayrı teşekkür ediyorum.
Alternatif çözümler sürekli hoşuma gitmiştir her biri insaının ufkunu açıyor. Dün akşam evde inceleme fırsatım olmadı başka bir yerden bakayım dedim onda da office yüklü değildi o yüzden cevap gecikti kusura bakmayın.