Şartlı bilgi çağırmada takvimdan tarih seçme

1 2 3
27/09/2011, 13:25

mehmetdemiral

Lütfen konunuza dönüş yapar mısınız? Olumlu ya da olumsuz bir cevap yazmadınız.
27/09/2011, 21:07

aguney16

sn.mehmetdemiral
mesaiden çok geldiğim için geç saatlerde bakabildim.
cevap yazamadığım için özür dilerim.
sanırım ben bir yerde hata yapıyorum.
örneğinizi de kontrol ettim.takvim tuşundan tarih seçtiğimde hiçbir şekilde tarihin tamamını büyük harf yapamadım.
benim yapmak istediğim tablo kısmaındaki kayıt dosyasına beçen tarih bilgilerinin tamamı büyük olması.sitedeki bulduğum örneklere de baktım fakat benim isteğimi karşılamadı.
herhalde olmayacak.
yinede ilgin alakan için çok teşekkür ederim.
iyi çalışmalar diliyorum.
27/09/2011, 22:13

mehmetdemiral

Pardon ama ben bu örnekte büyük harf olayını yapmadım ki zaten. Uzun tarih formatıyla bilgilerin filtre edilmesine bakın. Siz takmışsınız büyük harf olayına, başka yere bakmıyorsunuz galiba ) Oysa büyük harf olayı hariç diğer istedikleriniz harfiyen yerine getirildi ama sanırım farketmediniz.
27/09/2011, 22:29

aguney16

haklısınız farketmemişim.
teşekkür ediyorum.
çok sağolun.
30/09/2011, 22:20

mehmetdemiral

Tarihleri uzun tarih formatında büyük harfli yazıya çevirme ve tabloya da tamamen bir String değer olarak kaydetme amaçlı bir örnek hazırladım. Buna sebep olan sizin örneğiniz olduğu için bu konu altında yayınlamayı uygun buldum. Takvim için sizin takvim yerine access'in kendi activexini kullandım. Giriş yazan yere elle yazılan veya takvimden tıklanan bir değer, diğer metin kutusuna girildiği anda yazıyla ve tam da sizin istdiğiniz gibi büyük harfle geliyor. Siz bu olayı istediğiniz yerde kullanın. Bu işin temelinde hazırladığım aşağıdaki fonksiyonlar var:

Önce bir modülde public değikenler oluşturalım:

Kod:
Public Gun, ay, yil, sonuc, gununadi As String

Bu fonksiyon da ayların adlarını getiriyor. Büyük harfle tabii
Kod:
Sub cevirtarih()
On Error Resume Next
Select Case ay
Case "01"
sonuc = "OCAK"
Case "02"
sonuc = "ŞUBAT"
Case "03"
sonuc = "MART"
Case "04"
sonuc = "NİSAN"
Case "05"
sonuc = "MAYIS"
Case "06"
sonuc = "HAZİRAN"
Case "07"
sonuc = "TEMMUZ"
Case "08"
sonuc = "AĞUSTOS"
Case "09"
sonuc = "EYLÜL"
Case "10"
sonuc = "EKİM"
Case "11"
sonuc = "KASIM"
Case "12"
sonuc = "ARALIK"

End Select
End Sub

Diğer modül de günün ismini getiriyor. O da büyük harf

Kod:
Sub gunver()
Dim Tarih
Dim Gunk
Dim GunAdi
Tarih = Me.Metin0
Gunk = Weekday(Tarih, vbMonday)
Select Case Gunk
Case "1"
GunAdi = " PAZARTESİ"
Case "2"
GunAdi = " SALI"
Case "3"
GunAdi = " ÇARŞAMBA"
Case "4"
GunAdi = " PERŞEMBE"
Case "5"
GunAdi = " CUMA"
Case "6"
GunAdi = " CUMARTESİ"
Case "7"
GunAdi = " PAZAR"
End Select
gununadi = GunAdi
End Sub

Daha sonra da bunları değişkenler üzerinden bir metin kutusunda birleştirelim:
(Tabii modülde tanımlanan değişkenlere değerleri de burda atıyorum. mid komutunu çok severim)

Kod:
Me.Calendar0.Visible = False
Gun = Mid(Metin0, 1, 2)
ay = Mid(Metin0, 4, 2)
yil = Mid(Metin0, 7, 4)
cevirtarih
gunver

Me.Metin2 = Gun & " " & sonuc & " " & yil & gununadi
02/10/2011, 15:51

Puletin

Paylaşım için teşkkürler Mehmet Hocam ..
Bu arada konu taşınmıştır.
1 2 3