Skip to main content

AccessTr.neT


İki seçenekli Mesage box

İki seçenekli Mesage box

Çözüldü #1
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.
.rar [email protected] (Dosya Boyutu: 107,75 KB | İndirme Sayısı: 10)
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #2
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.
.rar iscinar_alpeki99.rar (Dosya Boyutu: 54,26 KB | İndirme Sayısı: 29)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #5
(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
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #6
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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da