Skip to main content

AccessTr.neT


Ondalık Sayıyı Kadederken Tamsayı Olarak Kaydediyor

Ondalık Sayıyı Kadederken Tamsayı Olarak Kaydediyor

#2
Merhaba Sayın @yenginoglu

Öncelikle örneğinizdeki kodunuz
Kod:
Worksheets("ÜrünListesi").Cells(xsonsatir, 1) = 1
            Worksheets("ÜrünListesi").Cells(xsonsatir, 2) = txtUrunKodu.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 3) = txtUrunAdi.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 4) = cbFirma.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 5) = txtMakNo.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 6) = txtBrutGr.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 7) = txtCevrim.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 8) = txtKgoz.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 9) = cbHKodu.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 10) = txtHammCinsi.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 11) = cbHRengi.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 12) = degerAL(txtHammFiyatı, .Cells(xsonsatir, 12), "##0.00")
            Worksheets("ÜrünListesi").Cells(xsonsatir, 13) = txtGunlukBaskı.Value
            Worksheets("ÜrünListesi").Cells(xsonsatir, 14) = txtGunlukHammKg.Value

şeklinde paylaştığınız resimdeki kodlar da değişiklik mevcut. Ancak bu kod üzerinden hareket ederek aynı işlemi kendi kodunuza uyarlayarak
Kod:
Worksheets("ÜrünListesi").Cells(xsonsatir, 12) = degerAL(txtHammFiyatı, .Cells(xsonsatir, 12), "##0.00")
kısmını aşağıdaki gibi değiştirip dener misiniz?
Kod:
Worksheets("ÜrünListesi").Cells(xsonsatir, 12) = Format(txtHammFiyatı.Value, "##0.00")
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Ondalık Sayıyı Kadederken Tamsayı Olarak Kaydediyor - Yazar: atoykan - 05/01/2024, 13:16