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.

gönderdim seruz hocam

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