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