Skip to main content

AccessTr.neT


Değerleri otomatik hesaplatma

Değerleri otomatik hesaplatma

Çözüldü #1
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.
.rar ÖRENEK ÇALIŞMA SORUSU.rar (Dosya Boyutu: 98,21 KB | İndirme Sayısı: 22)
işte bunu anladım Ohmy
Cevapla
Çözüldü #2
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..
.rar ÖRNEK DENEME.rar (Dosya Boyutu: 37,25 KB | İndirme Sayısı: 17)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #3
Puletin yapmış ama benim emek de boşa gitmesin.
.rar ÖRNEK DENEME_demiral.rar (Dosya Boyutu: 36,75 KB | İndirme Sayısı: 23)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
Katkı ve paylaşım için teşekkürler...
Cevapla
Çözüldü #5
herkese katkı ve yardımları için teşekkür ederim.
yaşasın bilgiyi paylaşanlar...
işte bunu anladım Ohmy
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da