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