(16/07/2020, 10:03)berduş yazdı: 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

Merhaba hocam teşekkürler metin kutusuna istediğim gibi yazıyor. Fakat tarih ve saati girip kaydet işlemi yapmadan ve bi süre sonra tarihi değiştirmeden sadece saati değiştirdiğimde fotoğraftaki gibi saati iki defa yazıyor.

[img][/img]

(16/07/2020, 10:03)berduş yazdı: gtxtCalTarget = Me.txtDate & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")'<== kod buraya eklendi

aşağıdaki kodla :

gtxtCalTarget = Fix(Me.txtDate) & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")

(16/07/2020, 10:03)berduş yazdı: 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ı

satırlarını da aşağıdaki kodla değiştirip dener misiniz?

    Me.txtDate = CDate(gtxtCalTarget.Value) 'değişti: verinin sadece tarih kısmı

    Me.txtSaat = TimeValue(gtxtCalTarget.Value) 'Format(gtxtCalTarget.Value, "hh:mm:ss") ' verinin saat kısmı

(18/07/2020, 00:46)berduş yazdı:

(16/07/2020, 10:03)berduş yazdı: gtxtCalTarget = Me.txtDate & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")'<== kod buraya eklendi

aşağıdaki kodla :

gtxtCalTarget = Fix(Me.txtDate) & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")

(16/07/2020, 10:03)berduş yazdı: 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ı

satırlarını da aşağıdaki kodla değiştirip dener misiniz?

    Me.txtDate = CDate(gtxtCalTarget.Value) 'değişti: verinin sadece tarih kısmı

    Me.txtSaat = TimeValue(gtxtCalTarget.Value) 'Format(gtxtCalTarget.Value, "hh:mm:ss") ' verinin saat kısmı

Hocam örnekteki dosyada tarih ve saati yazdırdığımız metin kutusunun adı "txtStartDate" benim asıl dosyamdaki adı ise "txtBasTarih"

Fotoğraftaki alanda değişiklik yaptım. başka bir yerde değişiklik yapmam gerekiyor mu? çünkü bu halde tarih ve saati ilk girdiğimde metin kutusuna yazıyor ama kaydet işlemi yapmadan sadece saati değiştirmek istediğimde eski saat kalıyor yenisini aktarmıyor.
[img][/img]

Bu değişikliği hangi formda yaptınız?
Değişiklikleri yaptıktan sonra, çalıştırmadan önce kaydettiniz mi?

---

Sormayı unuttum metin kutularinin ismini değiştirmeden önce çalışma istediğiniz gibi calisiyor muydu?

Takvimi "frmCalendar" , modülü "ajbCalendar" ve butonu "cmdCalDateEnd" kopyalayıp olduğu gibi asıl dosyaya ekledim.
fotoğraftaki değişikliği de butonun tıklanmasında yaptım hocam.

---

(18/07/2020, 20:14)berduş yazdı: Bu değişikliği hangi formda yaptınız?
Değişiklikleri yaptıktan sonra, çalıştırmadan  önce kaydettiniz mi?

---

Sormayı unuttum metin kutularinin ismini  değiştirmeden önce çalışma istediğiniz gibi calisiyor muydu?

evet hocam sizin eklediğiniz dosya tam istediğim gibi çalışıyor sadece ben asıl dosyama uygularken bu sorunu yaşıyorum

sizin anlattıklarınıza uygun olarak yeni bir form oluşturup denedim, yeni VT oluşturup denedim sorunsuz çalıştı.
Sorun çalışmanızdaki diğer kodlardan kaynaklanıyor olabilir.