[VBA] Variabele 'bij naam' aanroepen *

[Verwijderd]

Ik ben in bezig om met VBA; VB code te genereren. In een module definieer ik hierbij een groot aantal constanten.

Bij het openen van bepaalde formulieren moeten deze constanten opgehaald worden. Nou is het mogelijk om de naam van deze constante samen te voegen (door een woordje en een tagname). Nu moet ik echter het woord koppelen, zodat VB weet welke constante daarbij hoort (uit de module)....

de module ziet er ongeveer zo uit:

code:

Public Const Start_P_1 = 4
Public Const Start_P_1 = 8
Public Const Start_P_1 = 45
Public Const Start_P_1 = 234

In het formulier doe ik dan het volgende:

code:

dim Startaddres as string

Startaddres = "Start_" & me.tag

In dit geval is me.tag dan P_1, P_8, of wat dan ook. Nu weet ik dat hij "startaddres" als een string behandeld, terwijl ik daar eigenlijk het getal uit de module had gezien. Iemand enig idee hoe ik deze link moet leggen?

[NMe]

Hmm, is er niet zoiets als Eval of Evaluate?

[Verwijderd]

Hmmm... die optie kent VB6 niet

[NMe]

Zeker weten? http://www.4guysfromrolla.com/webtech/030300-1.shtml

[Verwijderd]

idd.. maar bij mij geeft hij de melding 'sub or function not defined'

[bigbeng]

VBA <> VBScript

Ik vrees dat je zelf de mapping aan zult moeten leggen.

[Verwijderd]

is dat eenvoudig te realiseren?

[Kappie]

Waarom gebruik je geen arrays hiervoor? Voorbeeldje:

Module:

code:

Public Const Start_P = Array(4, 8, 35, 234)

Formulier:

code:

dim Startaddres as string
Startaddres = Start_P(Val(me.tag))

[Verwijderd]

geen gek id, alleen heb ik dan te maken met een 2d array...
één kolom met tags (Start_P1, Start_P2, ... enz)
en een kolom met waarden (4, 35, ...)

Hoe komt de code er dan ongeveer uit te zien?

[Tukk]

Verwijderd schreef op 08 juni 2004 @ 14:30:
geen gek id, alleen heb ik dan te maken met een 2d array...
één kolom met tags (Start_P1, Start_P2, ... enz)
en een kolom met waarden (4, 35, ...)

Hoe komt de code er dan ongeveer uit te zien?

Of gebruik een collection, met als key je tag.

(zie msdn voor collections)

[Verwijderd]

Maak een Collection collA en vul die met ID's en Values. De Waardes kan je dan ophalen met : StartAddres = collA( "Start_" & Me.Tag )

Net te laat!

[ Voor 14% gewijzigd door Verwijderd op 08-06-2004 14:41 ]