İki seçenekli Mesage box
Tarih
14/09/2011 15:55
Konu Sahibi
iscinar
Yorumlar
5
Okunma
1516
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
13/12/2016,16:01
Çözüldü 
Sponsor Reklam
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....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
Çö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
22/12/2016,18:59
Çözüldü 
Sponsor Reklam
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
13/12/2016,16:01
Çö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ğ
-
12/01/2017,15:21
Çözüldü 
Sponsor Reklam
(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
13/12/2016,16:01
Çö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
  Çok seçenekli ve onaya kutulu nesneleri array ile kontrol mc1 6 226 15/12/2016, 11:33 mc1
Çözüldü Seçenekli Birden fazla değer girilmesine izin verilen satıra aynı anda kayıt dazi 3 1.448 09/04/2012, 16:14 dazi
Çözüldü seçenekli mesaj kutusu yapma. serdar_20 2 1.671 01/03/2012, 21:39 serdar_20
Çözüldü birden çok değer girilebilen seçenekli açılır kutu dazi 12 3.033 15/02/2012, 15:23 iscinar


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