Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Topla Sonucunu Yukarı Yuvarlama

[FORM] Topla Sonucunu Yukarı Yuvarlama
anno
Aktif Üye 100-150

*
Kayıt Tarihi: 20.05.2012
Toplam 42 konu açtı.
Toplam 134 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#1
29-01-2022, 15:58
merhaba arkadaşlar toplam sonuç 1mt. altında ise 1mt. ye yuvarlanacak 1mt. üstündeki sonuçlar 10cm. katlarına yuvarlanacak.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#2
29-01-2022, 16:03
Visual Basic
  1. IIf(txtboy <1,1, (Int(txtboy * 10 - 0.1 + 1) / 10))


dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
anno
Aktif Üye 100-150

*
Kayıt Tarihi: 20.05.2012
Toplam 42 konu açtı.
Toplam 134 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#3
31-01-2022, 10:37
olmadı sonuç çarpım sonucu 1mt. altında çıkarsa 1mt. ye tamamlanacak  sonrası 10cm. katları olarak toplanacak



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#4
31-01-2022, 11:16
diğer konunuzda benzer bir soruda 2 metrenin altı için aynı koşul uygulanacaktı kod orda çalışmıştı.
Alıntı: boylar 200cm altında yazılırsa 200cm ye tamamlanacak  201 cm den itibaren 10cm ara ile boy hesaplanacak
Visual Basic
  1. Boy = IIf(txtboy < 2, 2, (Int(txtboy * 10 - 0.1 + 1) / 10))





  Bul
  Alıntı
Bu mesajı beğenenler:
anno
Aktif Üye 100-150

*
Kayıt Tarihi: 20.05.2012
Toplam 42 konu açtı.
Toplam 134 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#5
31-01-2022, 11:43
Visual Basic
  1. Private Sub txtboy_Exit(Cancel As Integer)
  2.  
  3. txtboy = IIf(txtboy < 0.1, 1, IIf(txten > 1.1, 1, (Int(txtboy * 10 - 0.1 + 1) / 10)))
  4.     
  5.     Metrekare = txten * txtboy
  6.   
  7. End Sub
  8.  
  9. Private Sub txten_Exit(Cancel As Integer)
  10.  txten = IIf(txten < 0.1, 1, IIf(txten > 1.1, 1, (Int(txten * 10 - 0.1 + 1) / 10)))
  11.     
  12.     Metrekare = txten * txtboy
  13.    
  14. End Sub
  15.  
  16. Metrekare:
  17. çarpım sonuç: 1mt.altı çıkarsa 1mt.ye tamamlanacak sonrası 10cm. katları olarak toplanacak





  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#6
31-01-2022, 12:07
Size önerdiğim kod ile sizin yazdığınız arasında ilişki kuramadım



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Aşağı Yukarı Yuvarla golf2000 16 388 01-10-2022, 10:59
Son Mesaj: golf2000
access-sql-4 [VBA] Yuvarlama Işlemi alperalper 8 269 18-08-2022, 23:15
Son Mesaj: alperalper
  [FORM] Ile Başlayanları Topla alikagan 4 144 29-06-2022, 00:03
Son Mesaj: alikagan
  [FORM] Sorgu Sonucunu Forma Yazdırma husem 3 143 28-06-2022, 08:35
Son Mesaj: husem
  Tarih Say-topla-filtrele Saygın 31 1.783 01-04-2022, 20:08
Son Mesaj: Saygın
  [RAPOR] Dsum Veya Dcount Grupla Say Topla Bora34 20 720 01-02-2022, 15:06
Son Mesaj: husem
  [TABLO] Tabloda Yuvarlama Işlemi golf2000 8 643 18-01-2021, 23:20
Son Mesaj: halily
  [VBA] Kod Sonucunu Yuvarlama edacan19 22 1.262 06-07-2020, 12:15
Son Mesaj: userx53

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi