Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FONKSiYON] Ondalık Sayı Ile Tam Sayıyı Ayrı Ayrı Gösterme

[FONKSiYON] Ondalık Sayı Ile Tam Sayıyı Ayrı Ayrı Gösterme
necasi
Yeni Üye 1-15

*
Kayıt Tarihi: 13.02.2021
Toplam 1 konu açtı.
Toplam 1 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 0 / 0
#1
28-03-2021, 13:38
Arkadaşlar mrb;
Tam sayı ile ondalık sayıyı (ör: 75,25) ayrı ayrı metin kutusunda gösterebiliyor muyuz. "int" komutu ile denetim kaynağına kod girdiğimde tam sayı (ör.75) olarak gösteriyor. Ancak virgülden sonraki 25 rakamını ayrı bir metin kutusunda gösteremiyorum. .çözümü varmıdır?



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.779 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#2
29-03-2021, 09:45
OndalikSayi=75,25
VBA da
Int(OndalikSayi) = 75
Split(OndalikSayi, ",", , vbTextCompare)(1) = 25

olarak ayirabilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
necdet.asik
Yeni Üye 1-15

*
Kayıt Tarihi: 05.11.2021
Toplam 0 konu açtı.
Toplam 1 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 0 / 0
#3
17-11-2021, 15:01
Özür dileyerek rica ediyorum. VBA nedir çok bilgim yok. Bunu hem formda hem raporda kullanıcam. Daha fazla ayrıntı verirseniz sevinirim. Ayrıca  75,02 olan bir sayıda kuruş bölümünü 02 olarak girebilir miyim?



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.779 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#4
18-11-2021, 03:52
(17-11-2021, 15:01)necdet.asik demiş ki: Özür dileyerek rica ediyorum. VBA nedir çok bilgim yok. Bunu hem formda hem raporda kullanıcam. Daha fazla ayrıntı verirseniz sevinirim. Ayrıca  75,02 olan bir sayıda kuruş bölümünü 02 olarak girebilir miyim?

VBA Access dosyasını açtıktan sonra Alt+F11 tuşları ile acılan editör penceresinin olduğu yerdir.

metin kutusu kayıt kaynağına =Int([OndalikSayi]) girmeniz halinde tamsayı olan yeri gösterir.
=Mid([OndalikSayi];InStr(Nz([OndalikSayi];0);",")+1) ondalık kısmını gösterir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 151 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#5
18-11-2021, 12:14
Sn sezgin hocamızın çözümüne ek olarak aşağıdaki VBA kodunu da uygulayabilirsiniz.
Visual Basic
  1. Sub OndalikSayiAyir()
  2. Dim OndalikSayi As Double
  3. Dim Ts As Integer
  4. Dim os As String
  5.  
  6. OndalikSayi = InputBox("Ondalık Sayıyı Giriniz: ", "Ondalık Sayı")
  7.  
  8. Ts = Int([OndalikSayi])
  9. os = Mid([OndalikSayi], InStr(Nz([OndalikSayi], 0), ",") + 1)
  10.  
  11. If Len(os) = 1 Then
  12. os = "0" & os
  13. End If
  14.  
  15. MsgBox "Tamsayı Kısmı: " & Ts & vbCrLf & "Ondalık Kısmı: " & os
  16.  
  17. ' Ondalık kısmını bu şekilde önünde 0 olarak gösterebilirsiniz.
  18. ' Fakat hesaplamada kullanacağınız Zaman
  19.  
  20. os = Val(os)
  21.  
  22. ' satırınıda eklemeniz gerekmektedir.
  23. ' bunu yaptığınızda 0 dikkate alınmaz. Sayı değeri alır.
  24.  
  25. End Sub





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Raporda Resimleri Gösterme ahmet114 53 1.022 05-04-2024, 00:43
Son Mesaj: dsezgin
  Raporda Tek Sayfada 2 Kayıt Gösterme adnnfrm 5 133 28-01-2024, 01:25
Son Mesaj: adnnfrm
  [SORGU] Sayı Formatı Bozulmadan Metinle Birleştirme atyaty 2 86 08-12-2023, 18:57
Son Mesaj: atyaty
  [VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak abkbek 13 319 10-11-2023, 22:26
Son Mesaj: abkbek
  Sayıyı Sese çevirme adnnfrm 19 1.444 23-07-2023, 18:32
Son Mesaj: onur_can
  [VBA] Yıl Ay Sayı Sıralama Kodu Hakkında Ahmet51 6 317 29-05-2023, 09:31
Son Mesaj: halily
  [FONKSiYON] Ardışık Sayı Toplama 1 Er Artan Ahmet51 3 145 27-03-2023, 13:58
Son Mesaj: halily
  Toplu Taksitlendirme Işleminde Her Taksit Için Tabloya Ayrı Kayıt Nasıl Yapabilirim. OĞUZ TÜRKYILMAZ 10 496 12-03-2023, 21:18
Son Mesaj: OĞUZ TÜRKYILMAZ

Foruma Git:


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