Skip to main content

AccessTr.neT


Açılan kutu tercihine göre sorgu değeri getirmek

Açılan kutu tercihine göre sorgu değeri getirmek

#4
Sayın Zafers, gerçekten de tüm soruların cevabı sitede var. Ben tek tek bulup aşağıya linklerini vermeye çalışacağım.

1- "aynı form üzerinde bir metin kutusunda, açılan kutu tercihine göre sorgu değerlerini göstermek" demişsiniz. Formunuza bir metin kutusu ekleyin, açılan kutu değerini oraya göndermek için de, açılan kutunun güncelleme sonrasında olayına

metin_kutusunun_adi= acilan_kutu_adi

yazabilirsiniz. Hatta direkt olarak metin kutusunun denetimini açılan kutuya bağlarsanız da aynı şey olur, sadece bir de güncellenme işi çıkmasın diye olay yordamına yazmak daha mantıklı geliyor. Eğer yapmak istediğiniz birden çok açılan kutu değerlerini tek bir metin kutusunda göstermekse o zaman her açılan kutunun güncelleştirme sonrası olayına

me.metin_kutusunun_adi = me.metin_kutusunun_adi & me.acilan_kutunun_adi

yazın. Böylece farklı açılan kutu değerleri tek bir metin kutusu içinde yan yana yer alır. Aralarında mesela bir virgül olması gerekiyorsa

me.metin_kutusunun_adi = me.metin_kutusunun_adi & " , " & me.acilan_kutunun_adi

yazarsınız. Boşluk için tırnak içinde boşluk bırakmak yeter.


2- Tarih girerken takvim olayını temelden anlatan bir çalışma:

Takvim denetimi uygulaması

Bunun yanında birçok formda activex denetimiyle yapılan (mesela Calendar.7) örnekler var. İnceleyin. Mutlaka yardımı olacaktır. Bunlarda tarih yazılacak alana girildiğinde bir nesne olan calender(takvim) açılır ve onun üzerinden tarih seçilir. Bu arada kendi takvimini tasarlayanlar da var.

3- Bir tarihe gün eklemek için dateadd fonksiyonu kullanılır. Bununla ilgili bilgi aktarıyorum:

"DateAdd Fonksiyonu:
Belirtilen tarihe belli bir süreyi ekler veya çıkartır.

Kullanımı;
DateAdd(süre,sayi,tarih)
Süre eklenecek süre türünü belirtir, seçilen süreden ne kadar ekleneceğini belirtir, sayının ekleneceği tarihi belirtir.

Süre Degerleri;
Değer Açıklama
yyyy Yıl
q Çeyrek yıl (3 ay)
m Ay
y Yılın günü
d Gün
w Haftanın günü
ww Hafta
h Saat
n Dakika
s Saniye

Örnek:
Şimdi ”22.08.2003” tarihine 3 ay ekleyelim.

Dim ilkTarih As Date ‘Ekleme yapacağımız tarihi tanımladık
Dim EklenecekSure As İnteger ‘Eklenecek süreyi tanımladık
ilkTarih=”22.08.2003” ‘Ekleme yapacağımız tarihin değerini atadık.
EklenecekSure = 3 ‘Eklenecek sürenin degerini atadık.
YeniTarih=DateAdd(“m”,EklenecekSure,ilkTarih) ‘”m” değeri ay belirtir.
Msgbox YeniTarih

Örnek:
Şimdi ”22.08.2003” tarihine 15 gün ekleyelim.

Dim ilkTarih As Date ‘Ekleme yapacağımız tarihi tanımladık
Dim EklenecekSure As İnteger ‘Eklenecek süreyi tanımladık
ilkTarih=”22.08.2003” ‘Ekleme yapacağımız tarihin değerini atadık.
EklenecekSure = 15 ‘Eklenecek sürenin degerini atadık.
YeniTarih=DateAdd(“d”,EklenecekSure,ilkTarih) ‘”d” değeri gün belirtir.
Msgbox YeniTarih


DİKKAT: Eğer zaman ile ilgili işlem yapılacak ise “12.06.2003 15:35:19” şeklinde olmalı"


Umarım yardımcı olabilmişimdir. Bu arada örneğinize hiç bakamadım.
İnadına, ille de Accesstr.net...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Açılan kutu tercihine göre sorgu değeri getirmek - Yazar: mehmetdemiral - 13/03/2013, 23:47
Task