Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
14/09/2011 15:55
Konu Sahibi
iscinar
Yorumlar
5
Okunma
1846
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

iscinar

İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
Bugün,15:22
Çö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

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.092
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Dün,08:50
Çö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/09/2017,13:09
Çö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
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
Bugün,15:22
Çö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.221
02/11/2008
505
Tekirdağ
-
11/10/2017,11:43
Çö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
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
Bugün,15:22
Çö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ü Çok seçenekli ve onaya kutulu nesneleri array ile kontrol mc1 6 704 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.644 09/04/2012, 16:14 dazi
Çözüldü seçenekli mesaj kutusu yapma. serdar_20 2 1.935 01/03/2012, 21:39 serdar_20
Çözüldü birden çok değer girilebilen seçenekli açılır kutu dazi 12 3.559 15/02/2012, 15:23 iscinar

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.