+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma (/konu-matematiksel-islemlerde-tam-sayi-ile-ondalik-sayiyi-ayri-ayri-hucreye-yazdirma.html)
Sayfalar:
1
2
Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma - necasi123 - 27/03/2021
matematiksel işlemlerde tam sayı ile ondalık sayıyı ayrı ayrı hücreye yazdırmak istiyorum. Örnek; farklı metin kutularındaki rakamları matematiksel işlem yaptığım metin kutusundaki sonucu (75,25) tam sayı (75) bir hücreye (25) bir hücreye yazırabiliirmiyiz
RE: Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma - necasi123 - 28/03/2021
çözümü yokmudur?
RE: Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma - feraz - 28/03/2021
Access sorusumu excelmi?
Ve örnek lazım yardım için çünkü boşuna kürek sallıyoruz.
RE: Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma - necasi123 - 28/03/2021
(28/03/2021, 13:41)feraz yazdı: Access sorusumu excelmi?Access sorusu.
Ve örnek lazım yardım için çünkü boşuna kürek sallıyoruz.
Örnek : Formdaki metin kutusunda olan matematiksel bir sayıyı (75,25 gibi) raporda 75 rakamını ve 25 rakamını ayrı ayrı metin kutularında göstermek istiyorum.
RE: Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma - userx - 28/03/2021
Sayın necasi123
Alttaki kodu kendi metin kutu isimlerinize göre değiştirerek dener misiniz?
Private Sub Metin0_Exit(Cancel As Integer)
Dim LString As String
Dim LArray() As String
LString = Me.Metin0
LArray = Split(LString, ",")
Me.Metin1 = LArray(0)
Me.Metin2 = LArray(1)
End Sub
RE: Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma - necasi123 - 28/03/2021
(28/03/2021, 14:41)userx yazdı: Sayın necasi123Çalıştıramadım. Ekte örnek dosya gönderiyorum. teşekkürler.
Alttaki kodu kendi metin kutu isimlerinize göre değiştirerek dener misiniz?
Private Sub Metin0_Exit(Cancel As Integer)
Dim LString As String
Dim LArray() As String
LString = Me.Metin0
LArray = Split(LString, ",")
Me.Metin1 = LArray(0)
Me.Metin2 = LArray(1)
End Sub