değişken ve caption ilişkisi

09/12/2015, 02:07

moskovic

merhabalar arkadaslar 

aşağıdaki kodda mas değişkenini butonun captionuna atamak istiyorum acaba nerede hata yapıyorum ?

Kod:
Dim mas
Dim but
For i = 1 To 1
mas = Nz(DLookup("MASA", "T_MASALAR", "MASA_NO = " & i & ""), 0)
Next i

For b = 73 To 73

but = ("Komut" & b)

Next b

but.Caption = mas
09/12/2015, 02:37

ozguryasin

but  buton değil değişken. caption atayamazsınız. yani ismini değiştiremezsiniz.


eğer ki buton ise. yazdığınız kodda değişken olarak gözüküyor. buton olduğunu var sayalım.

örneğin 

dim mas as string

mas = "özgür"

me.but.caption = mas  yapmanız yeterli


ayrıca döngüye neden aldınız onuda anlamış değilim. 1 kayıt için döngü kullanmak mantıklı gelmedi bana ayrıca döngüye alınacak durumda görmedim. örnek yüklese idiniz tam ve net cevap alabilirdiniz.


MASA_NO alanınız string mi integer değer mi taşıyor?
string (metin alanı) ise "MASA_NO='" yapmanız gerekiyordu


sayısal alan ise tombul parantez öncesi çift tırnaklar olmamalı. 
for döngüsü için kullandığınız i değişkeni Dlookup içinde ne aradığını hâlâ düşünmekteyim.


bir değişken tanımlanmadan kullanılır ise dim mas gibi string değer alır.
eğer hiç dim ile başlamadan bir değer atanmaz ise Vba onu direkt string değer alır. 
for döngüsünde sayısal alanlar (sayı miktarınca döndürüleceği için dim i integer diye atamak daha mantıklıdır.


yazdıklarım biraz kafa karıştırıcı gibi oldu ama soruda öyle
09/12/2015, 02:42

moskovic

syn ozgur yasin

56 Adet buton var butonlarnı ismi "komut73" den baslayim "komut128" kadar gidiyor bunlari for dongusuyle captionlarini degistirmek istiyordum ( for i = 1 to 1 e takilmasiyin deneme yaparken msjboxda eziyet oluyordu...)
09/12/2015, 19:19

atoz112

sayın moskovic,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
09/12/2015, 21:12

moskovic

tesekkur ederim hocam...