AccessTr.neT

Tam Versiyon: eval fonksiyonu kullanımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
iyi günler
eval fonksiyonununda hata alıyorum

Dim metinci , metinci1 As String
Dim son ,b As Integer
b = 1
metinci1 = "5 + 5"
metinci = "metinci" & b
son = Eval(metinci) ----------------> bu satır hata veriyor
metinci1 bulunamadı diyor
metinci1 i bulamıyor
neden olabilir
Sayın Accessman;
Eval fonksiyonu rakamlardan oluşan değerleri hesaplar;
Siz kodunuzu şu şekilde değiştirin.
Kod:
Dim son, b As Integer
b = 1
metinci1 = "5 + 5"
metinci = metinci1 & b
son = Eval(metinci)
teşekkürler
yapmak istediğim
metinci1
metinci2
metinci3
metinci4
........
........
şeklinde devam eden metinlerin değerini eval ile buldurmak
b değeri değiştikçe metinci1,metinci2,metinci3 diye değişecek
metinci = metinci1 & b
yazarsam
metinci=metinci11
metinci=metinci12
metinci=metinci13
olur
şöyle bir şey yapamaya çalıştım
metinci = Me("metinci" & b)
ama olmuyor
yardimcı olmak isteyen yok mu acaba

Dim son, b As Integer
for b = 1 to 3
metinci1 = "5 + 5"
metinci2 = "5 * 5"
metinci3 = "5 / 5"
metinci = metinci & b
son = Eval(metinci) ----> bu satır hata veriyor
next b

metinci1 bulunamadı diyor
son
Sayın accessman lütfen flood yapmayın. Ekleyeceğiniz bir şey olacaksa son konunuzu düzenleyin. Konuya örnek dosya ekleyin. Sizin sorunuz için bizim örnek hazırlamamızı beklemeyin.
uyarınız için teşekkürler
ama bunun için örnek gerektiğini düşünmediğim için eklemedim
sizin örnek eklemenizi istediğim anlaşılıyorsa bu yanlış anlama olabilir
koda dikkat edilirse ilk yazdığım ile arasında fark var daha kolay olacağını düşündüm
yazdığım sorunun göz önünde dikkat çekici olup daha kısa sürede neticeye ulaşmak için ne yapmalıyım
kötü niyet aramamalı
zaten uyarılardan uzaklaştırmalardan sabıkalıyım
amacım derdime çare aramak
yaptığımın flood olduğunuda uyarıldıktan sonra sözlükten öğrendim
yetki sizlerde
Sayfalar: 1 2