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


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

Elimden geldiğince kısa anlatmaya çalışayım..

txtTop1=Hesaplanan
txtTop2=Hesaplanan
........
..........
Yukardaki gibi hesaplanan değerlerim var diyelim
Sormak istediğim şu. Oluşturduğum döngüdeki b değeri
"txtTop1"
"txtTop2" ..... şeklinde devam ediyor bu text değerlerinin
yukarda hesaplattığım değer olduğuna bilgisayarı nasıl inandırabilirm..

yani aşağıdaki hesapta

a=txtTop1 'yukardaki hesaplanan değerini bana verebilirmi
hangi çeviriciyi yada komutu kullanmalayım yada varmı böyle bir cevap çözemedim..


ReDim txtTop(1 To 500)
Dim a, b, i
For i = 1 To 153
b = "txtTop" & i
a = b
Next i


Varsa Bir Kural Uymak Lazım .. Örnek gönderiyorum


Cvp: Hesaplanmış Bir değeri Tekrar Atamak - Kur@l - 11/11/2010

Sayın Akem;
Keşke site kuralları na göre örnek uygulama ekleseydiniz de bizde daha kolay yardımcı olabilseydik.



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

Sorunuzdan, ne yapmak istediğiniz tam olarak anlaşılmıyor.
Örnek eklerseniz daha kolay yardımcı olabiliriz.




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

Sayın akem;
Sadece bir tahmin olarak yazıyorum. Kur@l ve Seruz Hocalarımızın dediği gibi örnek eklerseniz daha doğru cevap alabilir, hatta bizlerin farketmediği olası hatalar da tesbit edilebilir.
Metin kutusundaki değeri işleme alma konusunda forumda gördüğüm çalışmalarda 3 farklı şekil ortaya çıkıyor.
1.si o metin kutusunu "Me." kalıbıyla Me.Metin0 şeklinde kullanmak
2.si o metin kutusundaki değeri "value" ile belirtmek Metin0.value
3.sü bulunduğu formu da tanımlayarak. Forms![Form1].Metin0 şeklinde.
Benim elimden bu geliyor. Saygılar, iyi çalışmalar.


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

Soruyu bende aşağı yukarı tahmin edebiliyorum ama emin değilim.

txtTop ifadelerinin textbox (metin kutusu) gibi kontroller mi yoksa bir dizi değişkeni mi olduğundan emin olamadım.
Ona göre çözüm değişir, bu nedenle örneği görmek gerekir.

Üstte "txtTop1=Hesaplanan" şeklinde ifade var,
altta "ReDim txtTop(1 To 500)" ifadesi var.

Gönderdiği bu ifade için;
b = "txtTop" & i 

Dizi ise;
b = txtTop(i)

TextBox ise;
b = Me("[txtTop" & i & "]").Value
ifadesi kullanılabilir.

Deneyemediğim için emin olamıyorum tabii.
Belki de farklı bir şey vardır gerçek dosyada.


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

(11/11/2010, 14:18)Seruz yazdı: Soruyu bende aşağı yukarı tahmin edebiliyorum ama emin değilim.

txtTop ifadelerinin textbox (metin kutusu) gibi kontroller mi yoksa bir dizi değişkeni mi olduğundan emin olamadım.
Ona göre çözüm değişir, bu nedenle örneği görmek gerekir.

Üstte "txtTop1=Hesaplanan" şeklinde ifade var,
altta "ReDim txtTop(1 To 500)" ifadesi var.

Gönderdiği bu ifade için;
b = "txtTop" & i 

Dizi ise;
b = txtTop(i)

TextBox ise;
b = Me("[txtTop" & i & "]").Value
ifadesi kullanılabilir.

Deneyemediğim için emin olamıyorum tabii.
Belki de farklı bir şey vardır gerçek dosyada.

Teşekkürler...

txtTop=Hesaplanan dediğim Form üzerinden ve tablodan aldığı değerlerle hesaplanan bir değeri ifade ediyor.

örnek txtTop1=15, txtTop2=106, .... şeklinde
yani kodda

txtTop1=15
txtTop2=106
txtTop3=101
....
....txtTop500=96
daha sonra bu değerlerden 100 den büyük ama 100'e en yakın değeri buluyorum
diyelim bu değer 101

işte sorun burda başlıyor
bu 101 değeri hangisine ait
bunu da for next döngüsüyle bulmaya çalışıyorum

bu değeri form üzerine göndermiyorum.. (ama olmasa bu şekilde çözmeye çalışacağım)
o yüzden b = Me("[txtTop" & i & "]").Value ifadesinde Me olduğunda bulunamadı diyor me ifadesini kaldırınca value değerini kabul etmiyor text olarak görüyor "[txtTop1]"











Arkadaşlar Kuralları biliyorum ama Kod o kadar uzunki bide bitmemiş halde yani tam olarak çalışmıyor.
En Kısa şekilde derdimi anlatmaya çalıştım.. Seruz hocam olayı yakalamış