Değerleri otomatik hesaplatma
Tarih
25/05/2009 14:42
Konu Sahibi
67-MKZSG
Yorumlar
4
Okunma
1477
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
24/12/2016,00:18
Çözüldü 
Sponsor Reklam
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.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Dün,09:55
Çö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.053
31/10/2008
63
İstanbul
-
22/03/2017,13:18
Çözüldü 
Sponsor Reklam
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
  Worde Aktarımda Ön İzmele Ve Wordü Otomatik Kaydetme derzulya 6 156 25/05/2017, 14:42 ozanakkaya
Çözüldü Otomatik Sms Gönderme kyskys_2017 2 79 24/05/2017, 15:55 kyskys_2017
  Faklı Değerleri Sayma Hk. serkan1985 3 97 17/05/2017, 14:06 serkan1985
  Silinen Otomatik Sayının Yerini Doldurma serkandiker 7 206 02/05/2017, 10:42 serkandiker
  Otomatik Mail Gönderimi temre 16 537 21/04/2017, 01:06 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status