TextBox Exit Olayında Enabled = False kullandığım zaman 2 kere hesaplıyor

[programer]

Arkadaşlar merhaba textbox1'e Sayfa1 Den veri alıyorum textbox2'ye girdiğim veriyi textbox2'den Çıktıktan sonra textbox1'den düşüyor. Buraya kadar herşey normal ama ikinci kez mause ile üzerine gelip çıktığım zaman veri tekrar düşüyor bende bunu engellemek için TextBox2.Enabled = False kodunu ekledim fakat bu sefer şöyle bir sorun oluştu. Diyelim textbox1'de 100 yazıyor ben textbox2'ye 10 girip çıktığımda textbox1'deki rakkam 80 oluyor. Aşağıdaki kodda yanlış olan neresi bir türlü çözemedim

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
TextBox1 = TextBox1 - TextBox2
TextBox2.Enabled = False
End Sub

 

[alpi]

Dim OncekiDeger As Variant
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2.Text <> OncekiDeger Then
        OncekiDeger = TextBox2.Text
        If TextBox2 = "" Then Exit Sub
        TextBox1 = TextBox1 - TextBox2
    End If
End Sub

 

[programer]

Sayın alpi yardımınız için teşekkür ederim ama textboxtan çıktıntan sonra enabled özelliğini false yapmamız mümkünmü bunu nasıl ayarlaya biliriz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Dim a

Private Sub TextBox2_Enter()
If a = 1 Then TextBox2.Enabled = False
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
TextBox1 = TextBox1 - TextBox2
a = 1
End Sub

 

[Tasarım]

Kodları bu şekilde değiştirirseniz sanırım istediğiniz olur.

Dim OncekiDeger As Variant
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2.Text <> OncekiDeger Then
        OncekiDeger = TextBox2.Text
        If TextBox2 = "" Then Exit Sub
        TextBox1 = TextBox1 - TextBox2
        TextBox2.Enabled = False
    End If
End Sub

 

[programer]

Arkadaşlar öncelikle yardımlarınız için sağolun. Ama nasıl denediysem olmadı ekteki örnegi gönderiyorum. TextBoxtan çıktıktan sonra yazdırğım değeri 2 kere düşüyor ve 2 ci textbox a geçmeden başa dönüyor. Sayın leventm'in verdiği kodları denedim onlarda aynı şelilde oluyor. Nerde bir hatam var anlayamadım

 

[programer]

Arkadaşlar ben bi türlü beceremedim sayın alpi ve leventm in verdiği şekilde denedim ama olmuyor nerde eksik yapıyorum bulamadım. Yardımcı olabilirmisiniz.

 

[programer]

Arkadaşlar hepinize yardımlarınız için teşekkür ederim. Sorunumu Çözdüm inşallah ileride bir sorun çıkmaz. Sayın alpi ve leventm'in kodlarını birleştirerek çözdüm iki usta bir araya gelirde çözüm olmazmı dimi. Kodlar aşağıda.

Private Sub GN1_Enter()
If a = 1 Then GN1.Enabled = False
End Sub
Private Sub GN1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If GN1 = "" Then Exit Sub
KA1 = KA1.Value - GN1.Value
a = 1
End Sub
Private Sub GC1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If GC1.Text <> OncekiDeger Then
OncekiDeger = GC1.Text
If GC1 = "" Then Exit Sub
KA1 = KA1 - GC1
End If
End Sub
Private Sub MN2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
GC1.Enabled = False
End Sub