Saatli Takvim

1 2 3 4 5
15/07/2020, 23:01

enginbeyy

(15/07/2020, 13:50)userx yazdı:
(15/07/2020, 08:34)enginbeyy yazdı: Evet ama ordaki takvim ve şimdi ekledigim dosyadaki takvim aynı değil ordaki takvim çok fonksiyonlu bir takvim ben ise şimdiki dosyada olan sade bir takvim olsun istiyorum. Dediğim gibi @userx beyin takvimindeki saati bu takvime ekleyemedim. Bana ekledigim fotograftaki gibi saat dakika ve saniyeyi dosyadaki takvime ekleme konusunda yardımcı olursaniz minnettar olurum. Teşekkürler.

Daha önce paylaştığım mini takvimi biraz daha sadeleştirdim. Örnek ektedir.
Dosya ve kullanımı alttadır.


15/07/2020, 23:05

berduş

Sayın @userx in eklediği son dosyadaki sorun ne? Istediğiniz dosyadaki özelliği zaten sağlıyor ve fazladan ozelligi de var.
15/07/2020, 23:17

enginbeyy

(15/07/2020, 23:05)berduş yazdı: Sayın @userx in eklediği son dosyadaki sorun ne? Istediğiniz dosyadaki özelliği zaten sağlıyor ve fazladan ozelligi de var.
Aslında dediğiniz gibi bu hali özellik olarak yeterli fakat ben fazla özellik olsun istemiyorum sadece eklediğim dosyadaki takvimin görseli biraz daha iyi duruyor o yüzden. Birde userx beyin eklediği takvimde geçmişten veya gelecekten bir ay seçince seçilen ayları değil içinde olduğumuz ayı metin kutusuna aktarıyor örnek 2 nisan 2020 seçildiğinde 2 temmuz 2020 metin kutusuna aktarılıyor.

Sayın Berduş Bey sizden rica etsem ekli dosyadaki takvime tarafımdan eklenen aktif saati tarih ile beraber metin kutusuna yazdırabilir miyiz? Lütfen.
15/07/2020, 23:20

berduş

Uygun bir zamanda ilgilenmeye çalışırım. Iyi calismalar
15/07/2020, 23:23

enginbeyy

(15/07/2020, 23:20)berduş yazdı: Uygun bir zamanda ilgilenmeye çalışırım. Iyi calismalar
Teşekkürler, sizi bekliyor olacağım.
16/07/2020, 10:03

berduş

1 - Metin729 metin kutusunun adını txtSaat olarak değiştirin
2 - cmdOk butonunun tıklanma olayındaki koda (cmdOk_Click olayındaki)  bu kodu ekleyin & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")
Private Sub cmdOk_Click()
On Error Resume Next
    'Purpose:  Transfer the result back to the calling text box (if there is one), and close.
   
    If Me.cmdOk.Enabled Then
        If gtxtCalTarget = Me.txtDate Then
            'do nothing
        Else
            gtxtCalTarget = Me.txtDate & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")'<== kod buraya eklendi
        End If
    End If
    gtxtCalTarget.SetFocus
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub
ayrıca form açıldığında/form open olayındaki aşağıdaki kodlar da değişecek
    If IsDate(gtxtCalTarget) Then
Me.txtDate = gtxtCalTarget.Value
Else
Me.txtDate = Date
End If
yukardaki kodu aşağıdaki gibi değiştirin
    If IsDate(gtxtCalTarget) Then
Me.txtDate = CDate(gtxtCalTarget.Value) 'değişti: verinin sadece tarih kısmı
Me.txtSaat = Format(gtxtCalTarget.Value, "hh:mm:ss") ' verinin saat kısmı
Else
Me.txtDate = Date
End If
dilerim işinize yarar
1 2 3 4 5