[vba] Variabele variabelenaam in sub

[Boogie]

Als je een sub aanroept en een integer meegeeft,
en je wilt vervolgens de integer in de variabelenaam gebruiken.
Hoe moet dat?

Wat wil ik:
Geef 2 mee aan sub:

code:

sub knoptekst(knopnr as integer)
  knop2.capion=foo
  'iets als:  knop & knopnr.caption?
EndSub

ik plak dus de "2" aan "knop" zodat ik iets met knop2 kan

in PHP zou ik

PHP:

function fnaam($i){
    $glob_var{$i}="foo"
}

gedaan hebben.

In vba heb wel alle mogelijke leestekens geprobeerd en flink gezocht.

[RobIII]

Dit kan niet (iig niet zonder terug te vallen op érg ranzige code ). Je kunt wel een array van controls gebruiken en een index meegeven.

code:

Sub knoptekst(lIndex as long, strMyText as string)
  cmdBla(lIndex).caption = myString
End Sub

'Aanroepen:
KnopTekst 2, "Dit is een test"
KnopTekst 3, "W00t! First post!"

Een array van controls maak je door het object (knop in dit geval) te kopiëren en plakken en "ja/yes" te geven als 'ie vraagt of 'ie een array moet maken. In dit voorbeeld heb ik de knoppen cmdBla genoemd.

Of de control zelf mee geven aan je sub/functie...

code:

Sub knoptekst(ByRef oMyKnop as CommandButton, strMyText as string)
  oMyKnop.caption = myString
End Sub

'Aanroepen:
KnopTekst Command2, "Dit is een test"
KnopTekst Command3, "W00t! First post!"

[ Voor 112% gewijzigd door RobIII op 12-08-2004 12:51 ]

[Verwijderd]

Klopt, je kunt geen concatenation doen op die wijze ter referentie aan een control. De control meegeven aan je subroutine (byref) of je controls in een array dumpen en eraan refereren met de index. Misschien heb je hier ook wat aan: VB HOWTO'tje

[Verwijderd]

Volgens mij kun je dit doen met:

Eval ("Forms!<Formuliernaam>!knop" & knopnr & ".caption = foo")

Ik heb iets dergelijks eerder voor elkaar gekregen, maar dat is al weer een tijdje geleden. suc6


-Edit-

Ik heb even gekeken, maar het is niet mogelijk om met Eval() eigenschappen van het object zelf aan te passen. Je kunt met Eval wel 'functies' van het object uitvoeren (bvb SetFocus) of vergelijkingen maken. Mischien een beetje knullige code, maar het werkt wel:

code:

Private Sub knoptekst(knopnr As Integer)
   Eval ("Forms!test!knop" & knopnr & ".setfocus")
   Me.ActiveControl.Caption = "foo"
End Sub

[ Voor 75% gewijzigd door Verwijderd op 12-08-2004 13:47 ]

[Bud_s]

eeuhhh ... als je bedoelt om de waarde van de integer achter de string te plakken , probeer dan eens :

code:

Knop & format(KnopNr)

als je :

code:

Knop & str(KnopNr)

zou gebruiken, krijg je zo'n vervelende voorloopspatie

Ik gebruik een soortgelijke constructie om met een "For I = 1 to x" een SQL statement op te bouwen voor een x aantal "select Sum(veld) as Varx " op te bouwen en vervolgens
in een "array(x)" te proppen

[ Voor 37% gewijzigd door Bud_s op 12-08-2004 14:45 ]

[thomrob]

ik gebruik de volgende soort code om dynamisch aan veldnamen te refereren

code:

dim i as integer
dim RS as recordset
for i =1 to 100
RS(("c") & (i)) = "de waarde die het veld uit de tabel moet krijgen"
next i

de tabel bevat in dit geval de veldnamen c1,c2,c3.....etc tot en met c100. Door de naamgeving van de velden te beeindigen met nummers is het mogelijk er met een loop doorheen te gaan (een soort van array heb je dan). Ik kan me herinneren dat ik aardig wat gezocht heb om de syntax hiervoor gevonden te krijgen maar het is erg nuttig.

Wat jij wil is dynamisch refereren aan een variabele en ik denk dat dit wel mogelijk moet zijn omdat een veld in een recordset evenals een variabele gewoon een object is waarnaar je door middel van naamgeving naar kunt verwijzen.

code:

dim Svar as Variable

iets in deze trant, ben nu even uit het uitproberen

[ Voor 40% gewijzigd door thomrob op 13-08-2004 00:14 ]

[RobIII]

Toch leuk dat er nog steeds mensen zijn die denken dat het (makkelijk) kan Trust me, maak er gewoon een Array van of geef het ByRef mee aan je functie...

[Verwijderd]

RobIII schreef op 12 augustus 2004 @ 12:46:
Dit kan niet (iig niet zonder terug te vallen op érg ranzige code ). Je kunt wel een array van controls gebruiken en een index meegeven.

in vbA?, nee geen controlarrays mogelijk (wel in vb).

code:

sub knoptekst(knopnr as integer)
  controls("knop" & cstr(knopnr)).caption=foo
EndSub

[RobIII]

Verwijderd schreef op 13 augustus 2004 @ 00:55:
[...]


in vbA?, nee geen controlarrays mogelijk (wel in vb).

code:

sub knoptekst(knopnr as integer)
  controls("knop" & cstr(knopnr)).caption=foo
EndSub

Ik las toch echt VB6
My mistake

[ Voor 6% gewijzigd door RobIII op 13-08-2004 01:09 ]