#7
Lütfen konunuza dönüş yapar mısınız? Olumlu ya da olumsuz bir cevap yazmadınız.
İnadına, ille de Accesstr.net...
Şartlı bilgi çağırmada takvimdan tarih seçme
#7
#8
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.
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.
#9
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.
) Oysa büyük harf olayı hariç diğer istedikleriniz harfiyen yerine getirildi ama sanırım farketmediniz.
İnadına, ille de Accesstr.net...
#11
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:
Bu fonksiyon da ayların adlarını getiriyor. Büyük harfle tabii
Diğer modül de günün ismini getiriyor. O da büyük harf
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)
Önce bir modülde public değikenler oluşturalım:
Kod:
Public Gun, ay, yil, sonuc, gununadi As StringKod:
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 SubKod:
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(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
Büyük Yazıyla Tarih_demiral.rar
(Dosya Boyutu: 17,99 KB | İndirme Sayısı: 25)
İnadına, ille de Accesstr.net...
#12
Paylaşım için teşkkürler Mehmet Hocam ..
Bu arada konu taşınmıştır.
Bu arada konu taşınmıştır.
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Konuyu Okuyanlar: 1 Ziyaretçi
