İki seçenekli Mesage box
Tarih
14/09/2011 15:55
Konu Sahibi
iscinar
Yorumlar
5
Okunma
1460
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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.


Ek Dosyalar
.rar   iscinar_kur@l.rar (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


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.994
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,23:53
Çözüldü 
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.


Ek Dosyalar
.rar   iscinar_alpeki99.rar (Dosya Boyutu: 54,26 KB / İndirme Sayısı: 26)
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


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Çözüldü 
KAYDET düğmesinin tıklandığında olayına

Visual Basic Code
1
2
3
4
5
6
7
8
9
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


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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


Coskun0559
Uzman
Kullanici Avatari
Uzman
C.... Ç....
1.222
02/11/2008
505
Tekirdağ
-
07/12/2016,15:25
Çözüldü 
(14/09/2011, 16:26)BlackEagle Adlı Kullanıcıdan Alıntı: KAYDET düğmesinin tıklandığında olayına

Visual Basic Code
1
2
3
4
5
6
7
8
9
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;

Visual Basic Code
1
2
3
4
5
6
7
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


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Seçenekli Birden fazla değer girilmesine izin verilen satıra aynı anda kayıt dazi 3 1.417 09/04/2012, 16:14 dazi
Çözüldü seçenekli mesaj kutusu yapma. serdar_20 2 1.634 01/03/2012, 21:39 serdar_20
Çözüldü birden çok değer girilebilen seçenekli açılır kutu dazi 12 2.984 15/02/2012, 15:23 iscinar


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya