Sayın akem;
İki öneride bulunacağım denemeniz için.
1- b = Val("[txtTop" & i & "]")
2- b = CInt("[txtTop" & i & "]") ' sayılar tamsayı ise
Saygılar...
Gördüğüm kadarıyla dizi kullanmayı biliyorsunuz.
Dizi kullanarak rahatlıkla çözebilirsiniz diye düşünüyorum.
ReDim txtTop(1 To 500)
...
b = txtTop(i)
Bir şeyleri atlıyorsun sanırım ama örnek dosyanı göndermediğin için sende uğraşıyorsun bizi de uğraştırıyorsun.
Tahmin ettiğimiz gibi örnek göndermediğiniz için bir kaç dakikada çözebileceğimiz bir olay için bütün gün beklemek ve bir çok yazışma yapmak zorunda kaldık.
1. "Option Explicit" kullanarak değişken tanımlamayı zorunlu hale getirmeniz kodlamada ve hata ayıklamada size kolaylık sağlar. Bunu yapsaydınız problemi daha kolay görebilirdiniz.
2. txtTop adında dizi tanımladığınızda, dizinin elemanlarını txtTop(1), txtTop(2) şeklinde kullanmanız gerekiyor. txtTop1, txtTop2 şeklinde kullanamazsınız, vb bunları farklı bir değişken olarak algılar. "Option Explicit" kullansaydınız, bu değişkenler tanımlanmamış şeklinde hata alacaktınız.
Kodunuzu aşağıdaki şekilde düzeltin ve deneyin.
Option Compare Database
Option Explicit
Private Sub Komut0_Click()
ReDim txtTop(1 To 500)
txtTop(1) = 30
txtTop(2) = 45
txtTop(3) = 56
txtTop(4) = 105
Dim a, b, i
For i = 1 To 4
b = txtTop(i)
Me.txtDonen = b
Next i
'''' örnek ekranda 105 değerini görmem lazım
End Sub
Evet Büyüksün hocam
tanımlamaları yeniden düzenledim ve oldu teşekkürler
