Skip to main content

AccessTr.neT


Hesaplanmış Bir değeri Tekrar Atamak

Hesaplanmış Bir değeri Tekrar Atamak

Çözüldü #1
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
.rar vt1.rar (Dosya Boyutu: 10,43 KB | İndirme Sayısı: 7)
Son Düzenleme: 11/11/2010, 21:04, Düzenleyen: akem.
Cevapla
Çözüldü #2
Sayın Akem;
Keşke site kuralları na göre örnek uygulama ekleseydiniz de bizde daha kolay yardımcı olabilseydik.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
Sorunuzdan, ne yapmak istediğiniz tam olarak anlaşılmıyor.
Örnek eklerseniz daha kolay yardımcı olabiliriz.

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #4
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.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
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.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #6
(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ış
Son Düzenleme: 11/11/2010, 17:36, Düzenleyen: akem.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task