AccessTr.neT

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

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 Img-grin

örnek eklemeniz daha sağlam cevaplar almanızı sağlayacaktır iyi geceler.

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

sayın moskovic,

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

bilginize...iyi çalışmalar,saygılar.

tesekkur ederim hocam...

moskovic

ozguryasin

moskovic

atoz112

moskovic