Kod:
Private Sub MMEVCUT_AfterUpdate()
Dim A, B As Integer
A = Me.MNORM.Value
B = Me.MMEVCUT.Value
If A > B Then
Me.MIHTIYAC.Value = A - B
Me.MFAZLA.Value = 0
ElseIf A < B Then
Me.MIHTIYAC.Value = 0
Me.MFAZLA.Value = B - A
ElseIf A = B Then
Me.MIHTIYAC.Value = A - B
Me.MFAZLA.Value = A - B
End If
End SubKod:
Private Sub MNORM_AfterUpdate()
Dim A, B As Integer
A = Me.MNORM.Value
B = Me.MMEVCUT.Value
If A > B Then
Me.MIHTIYAC.Value = A - B
Me.MFAZLA.Value = 0
ElseIf A < B Then
Me.MIHTIYAC.Value = 0
Me.MFAZLA.Value = B - A
ElseIf A = B Then
Me.MIHTIYAC.Value = A - B
Me.MFAZLA.Value = A - B
End If
End SubAyrıca konuyu yanlış yerde açmışsınız taşıyorum
Lütfen Forum Kurallarına dikkat edelim...
Ayrıca konu başlığıda tarafımdan değiştirilmiştir..
