AccessTr.neT

(16/05/2020, 21:01)m_demir yazdı: [ -> ]Hocam Cdbl olması şart değil yeterki doğru sonuç versin 
Hocam eklediğiniz kod resimdeki hatayı veriyor.

Bende hata vermedi ve alttaki gibi sıfır ekleyin.

ActiveCell.Offset(0, i).Value = CDbl(Me.Controls(arr(i - 3))) + 0

En son verdiğim sıfırlı koda göre hatasiz gifteki gibi doğru sonuç veriyor.

Yada ilk verdiğiniz dosyadaki kodları alttaki gibi yapın.
Böyle denemiştim hata vermişti şimdi vermedi.

ActiveCell.Offset(0, 4).Value = CDbl(TextBox3.Value) + 0

ActiveCell.Offset(0, 5).Value = CDbl(TextBox4.Value) + 0

ActiveCell.Offset(0, 6).Value = CDbl(TextBox5.Value) + 0

ActiveCell.Offset(0, 7).Value = CDbl(TextBox7.Value) + 0

ActiveCell.Offset(0, 8).Value = CDbl(TextBox9.Value) + 0

ActiveCell.Offset(0, 9).Value = CDbl(TextBox11.Value) + 0

ActiveCell.Offset(0, 10).Value = CDbl(TextBox8.Value) + 0

TeamViewer şifresini özelden gönderdim bağlanabilirsiniz.

.....

Hocam Şifreyi gönderdim.