If Me.cmdOk.Enabled Then
If gtxtCalTarget = Me.txtDate Then
'do nothing
Else
gtxtCalTarget = Fix(Me.txtDate) & IIf(IsDate(Me.txtSaat), " " & Me.txtSaat, "")
End If
End If
yukardaki kodu silip aşağıdaki gibi dener misiniz? If Me.cmdOk.Enabled Then gtxtCalTarget = Fix(Me.txtDate) + IIf(IsDate(Me.txtSaat), TimeValue(Me.txtSaat), 0)