AccessTr.neT

Bul · 25/05/2009, 14:42

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.

Bul · 25/05/2009, 15:38

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

Bul · 25/05/2009, 15:52

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

Bul · 25/05/2009, 18:10

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

Bul · 04/08/2009, 16:05

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

AccessTr.neT

Değerleri otomatik hesaplatma

Değerleri otomatik hesaplatma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri