Form da fark hesaplatma

[murat_06]

Formum üzerinde çeşitli alanların toplamını ve farkını aşağıdaki kodları kullanarak aldırdım. Yalnız şöyle bir sıkıntım var.
Form Üzerinde bu ilgili alanlarda değer sıfır oluğunda fark alanlarında ki en son değer silinmiyor.
Örneğin yaptığım işlem sonucunu metin277 ye yazdı, ben
Form üzerindeki değişiklik yaptım. Bu sefer işlem sonucunu metin279 a yazması gerekiyor. İşlem sonucunu metin279 a yazıyor fakat metin277 deki değeri silmeden yazıyor. İlk yazdığı fark duruyor. Sonuç olarak 2 değer arasında fark bir adet olacağı için bır yere yazdığında diğerini silmesini istiyorm.


Private Sub Form_Current()
Dim GenelToplam, Fark As Long
GenelToplam = Nz(Me.Metin271, 0) + Nz(Me.Metin273)
Fark = Nz(Me.Metin269, 0) - GenelToplam
If Fark > 0 Then
Me.Metin277 = Fark
Else
Me.Metin279 = Fark
End If
End Sub
---------------------------------------------------
Private Sub Form_Load()
Dim GenelToplam, Fark As Long
GenelToplam = Nz(Me.Metin271, 0) + Nz(Me.Metin273)
Fark = Nz(Me.Metin269, 0) - GenelToplam
If Fark > 0 Then
Me.Metin277 = Fark
Else
Me.Metin279 = Fark
End If
End Sub

 

[karaayhan]

araya şöyle yazsan
If Fark> 0 Then
me.metin277=Fark
me.metin279.value=""
else
me.metin279=Fark
me.metin277.value=""

 

[murat_06]

Selam

Yardiminiz İÇİn TeŞekkÜr Ederİm Sayin Karaayhan