Hocam daha önce eklediğim konuda mesaj 5e eklediğiniz örnekte aşağıdaki kodlar hatalı olduğu için iptal etmişsiniz. Benim aslında bütün sorunum TextBox26 da. TextBox26 da FIYATI göstermesini istiyorum. Yani TextBox28/TextBox25 TextBox26 da FIYATI olarak görünmesini istiyorum. Aşağıdaki kodlar hatlı olduğuna göre nasıl bir kod eklemek lazım.
Private Sub TextBox25_Change()
Dim deg1, deg2
'İPTAL...deg1 = Replace(IIf(TextBox28 = "", 0, TextBox28), ".", ",")
'İPTAL...deg2 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
deg1 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
deg2 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
If TextBox28 <> "" And TextBox25 <> "" Then
'İPTAL...TextBox26 = Format(Replace(CDbl(deg1) / CDbl(deg2), ".", ","), "#,##0.00")
Else
TextBox26 = ""
End If
End Sub
Private Sub TextBox28_Change()
Dim deg1, deg2
'İPTAL...deg1 = Replace(IIf(TextBox28 = "", 0, TextBox28), ".", ",")
'İPTAL...deg2 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
deg1 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
deg2 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
If TextBox28 <> "" And TextBox25 <> "" Then
'İPTAL...TextBox26 = Format(Replace(CDbl(deg1) / CDbl(deg2), ".", ","), "#,##0.00")
Else
TextBox26 = ""
End If
End Sub
Son Düzenleme: 08/05/2015, 21:35, Düzenleyen: kenan827.