AccessTr.neT
Değerleri otomatik hesaplatma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Değerleri otomatik hesaplatma (/konu-degerleri-otomatik-hesaplatma.html)

Değerleri otomatik hesaplatma - 67-MKZSG - 25/05/2009

Herkese merhaba;

Access ile uğraşan herkese en derinden saygılarımı sunarım.
Arkadaşlar ben tam bir acemiyim. Kendi çapımda bir şeyler yapmaya çalışıyorum, tabi bilmemek ayıp değil öğrenmemek ayıp diyerekten sizlerden yardım ve bilgi bekliyorum. Ekli dosyamda yapmak isteğimi anlatan bir resim var .Elimden geldiğince meramımı anlatmaya çalıştım.
Şimdiden teşekkür ederim.

Cvp: Değerleri otomatik hesaplatma - Puletin - 25/05/2009

Kodlar

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 Sub
Kod:
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 Sub

Ayrı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..

Cvp: Değerleri otomatik hesaplatma - mehmetdemiral - 25/05/2009

Puletin yapmış ama benim emek de boşa gitmesin.

Cvp: Değerleri otomatik hesaplatma - assenucler - 25/05/2009

Katkı ve paylaşım için teşekkürler...

Cvp: Değerleri otomatik hesaplatma - 67-MKZSG - 04/08/2009

herkese katkı ve yardımları için teşekkür ederim.
yaşasın bilgiyi paylaşanlar...