Değerleri otomatik hesaplatma
Tarih
25/05/2009 14:42
Konu Sahibi
67-MKZSG
Yorumlar
4
Okunma
1403
Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 1 oy



67-MKZSG
Aktif Üye
Kullanici Avatari
Aktif Üye
57
22/05/2009
0
Zonguldak
Ofis 2003
02/08/2016,02:17
Çözüldü 
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.


Ek Dosyalar
.rar   ÖRENEK ÇALIŞMA SORUSU.rar (Dosya Boyutu: 98,21 KB / İndirme Sayısı: 22)
işte bunu anladım Ohmy
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Kodlar

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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..



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


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Dün,02:10
Çözüldü 
Puletin yapmış ama benim emek de boşa gitmesin.


Ek Dosyalar
.rar   ÖRNEK DENEME_demiral.rar (Dosya Boyutu: 36,75 KB / İndirme Sayısı: 23)
İnadına, ille de Accesstr.net...
Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Katkı ve paylaşım için teşekkürler...
Cevapla


67-MKZSG
Aktif Üye
Kullanici Avatari
Aktif Üye
57
22/05/2009
0
Zonguldak
Ofis 2003
02/08/2016,02:17
Çözüldü 
herkese katkı ve yardımları için teşekkür ederim.
yaşasın bilgiyi paylaşanlar...
işte bunu anladım Ohmy
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Ürün Satış Birimi ADET ise otomatik kaydedip bir sonraki Combobox'a geçmesini sağlama hasanak2 5 217 16/09/2016, 11:00 atoz112
  Tarih ve saatten otomatik sayı üretme cagatay1234 6 228 11/09/2016, 10:19 atoz112
Lightbulb Aynı tablo içinde otomatik hareket Yunus Bozkurt 5 215 03/08/2016, 10:20 Yunus Bozkurt
Question Alt Form Otomatik Yeni Satıra Geçiş Akifff 6 330 11/07/2016, 14:35 Akifff
Exclamation Denetime yazdıkça alandaki verinin devamını otomatik yazdırmak metince54 sakarya 3 330 23/05/2016, 18:44 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya