Saatli Takvim

1 2 3 4 5

(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.

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: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.

Uygun bir zamanda ilgilenmeye çalışırım. Iyi calismalar

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

Teşekkürler, sizi bekliyor olacağım.

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