Textbox kayıt

[abdullahss]

Private Sub TextBox37_Change()
'TextBox26 = Format(TextBox26.Value, "#,##0.00")
'TextBox27 = Format(TextBox27.Value, "#,##0.00")
Y = TextBox25
AK = TextBox37
Z = TextBox26
If TextBox25.Value = "" Then Y = 0
If TextBox37.Value = "" Then AK = 0
If TextBox26.Value = "" Then Z = 0
TextBox26.Value = Replace(((Y * AK) / 100 + Y) * 1, ".", ",")
TextBox27.Value = Replace(((Y * AK) / 100 + Y) * 1, ".", ",")
End Sub
Private Sub TextBox38_Change()
'TextBox27 = Format(TextBox27.Value, "#,##0.00")
'TextBox28 = Format(TextBox28.Value, "#,##0.00")
AA = TextBox27
Al = TextBox38
AB = TextBox28
If TextBox27.Value = "" Then AA = 0
If TextBox38.Value = "" Then Al = 0
If TextBox28.Value = "" Then AB = 0
TextBox28.Value = Replace((AA / Al) * 1, ".", ",")
End Sub

Kodda textbox 38 in change inde 27 yi string algılıyor çözemedim sayfaya kayıt yapamıyorum yardımcı olurmusunuz.

 

[Orion1]

en üstte bir yerde AA değişkeninin double olrak tanıtınız.

Dim AA As Double

 

[abdullahss]

denemiştim onu özür dilerim yazmayı unutmuşum
AA = TextBox27 string
AL = TextBox38 integer
AB = TextBox28 integer olarak görüyor dim ini integer olarakta denedim olmuyor.

 

[abdullahss]

konuyla ilgili yardımcı olabilecek arkadaşlar lütfen bakabilirmisiniz.