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