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. Her iki kutuda da değer duruyor. Lütfen bana yardım edermisiniz.
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
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. Her iki kutuda da değer duruyor. Lütfen bana yardım edermisiniz.
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