AccessTr.neT
Hesaplanmış Bir değeri Tekrar Atamak - Baskı Önizleme

+- 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ığı: Hesaplanmış Bir değeri Tekrar Atamak (/konu-hesaplanmis-bir-degeri-tekrar-atamak.html)

Sayfalar: 1 2


Cvp: Hesaplanmış Bir değeri Tekrar Atamak - Hayri16 - 11/11/2010

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...


Cvp: Hesaplanmış Bir değeri Tekrar Atamak - Seruz - 11/11/2010

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)



Cvp: Hesaplanmış Bir değeri Tekrar Atamak - Seruz - 11/11/2010

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.


Cvp: Hesaplanmış Bir değeri Tekrar Atamak - akem - 11/11/2010

gönderdim seruz hocam Img-grin


Cvp: Hesaplanmış Bir değeri Tekrar Atamak - Seruz - 11/11/2010

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



Cvp: Hesaplanmış Bir değeri Tekrar Atamak - akem - 11/11/2010

Evet Büyüksün hocam
tanımlamaları yeniden düzenledim ve oldu teşekkürler