Temporäre Variablen nehmen Variablen des Typs Variant <\/b>auf, also auch Strings, Zahlen et cetera, aber keine Objekte.<\/p>\nTemporäre Variablen im Makros<\/h2>\n
Schauen wir kurz auf die Verwendung von temporären Variablen in Makros. Diese legen Sie wie in mit dem Makrobefehl FestlegenTempVar<\/b> fest (siehe Bild 1). In diesem Fall heißt die Variable AktuelleAusgabe <\/b>und wird mit dem Wert 5\/2014 <\/b>gefüllt.<\/p>\n
Bild 1: Festlegen einer temporären Variablen per Makro<\/p>\n Das Makro macAktuelleAusgabeAusgeben <\/b>sieht wie in Bild 2 aus und gibt den Inhalt der temporären Variablen in einem Meldungsfenster aus.<\/p>\n Bild 2: Ausgabe des Inhalts der temporären Variablen<\/p>\n Das Ergebnis ist das Meldungsfenster aus Bild 3. Der Wert des Ausdrucks [TempVar]![AktuelleAusgabe]<\/b> erscheint als Teil der auszugebenden Zeichenkette. Wichtig: Der Zugriff auf die Elemente der TempVar<\/b>-Auflistung (die hier unsinnigerweise im Singular anzugeben ist) erfolgt über die Ausrufezeichen-Syntax.<\/p>\n Bild 3: Per Makro angezeigtes Meldungsfenster mit dem Inhalt einer temporären Variablen<\/p>\n Wenn Sie eine temporäre Variable per VBA festlegen möchten, erledigne Sie dies interessanterweise nicht mit einer der Methoden des DoCmd<\/b>-Objekts, welches ja fast alle in Makros verwendeten Befehle anbietet.<\/p>\n Stattdessen nutzen Sie direkt die TempVars<\/b>-Auflistung, in diesem Fall die Add<\/b>-Methode dieser Auflistung:<\/p>\n Eine auf diese Weise festgelegte Variable können Sie auch mit dem soeben definierten Makro macAktuelleAusgabeAusgeben <\/b>anzeigen. Damit ist schon einmal sichergestellt, dass Makros und VBA auf die gleichen temporären Variablen zugreifen.<\/p>\n Wenn Sie von VBA aus den Wert einer temporären Variablen zugreifen möchten, verwenden Sie die Item<\/b>-Eigenschaft der TempVars<\/b>-Auflistung und übergeben dieser den Namen der benötigten temporären Variablen:<\/p>\n Das Ergebnis sieht nun genauso aus wie beim Aufruf des Makros macAktuelleAusgabeAusgeben<\/b>.<\/p>\n Es gibt noch einen weiteren Weg, auf die Inhalte des TempVars<\/b>-Objekts zuzugreifen – und zwar, indem Sie einfach direkt den Namen der Variablen angeben:<\/p>\n Die nächste Variante ist der Zugriff über den numerischen Index:<\/p>\n Damit greifen Sie aber natürlich nicht mehr gezielt auf eine benannte temporäre Variable zu.<\/p>\n Es gibt einen wichtigen Unterschied beim Zugriff über den Namen der Variablen und über den Index: Wenn Sie über den Namen auf die temporäre Variable zugreifen, wird schlicht eine leere Zeichenfolge zurückgegeben. Wenn Sie es über den Index versuchen und für den Index keine Variable hinterlegt ist, löst dies einen Fehler aus (Fehler 2467<\/b>, In dem von Ihnen eingegebenen Ausdruck wird auf ein Objekt verwiesen, das geschlossen oder nicht vorhanden ist<\/b>).<\/p>\n Den Wert einer temporären Variablen ändern Sie auf zwei Arten – entweder durch direkte Zuweisung oder indem Sie die Variable einfach mit der Add-Methode neu erstellen. Die erste Version sieht so aus:<\/p>\n Oder so:<\/p>\n Beim überschreiben verwenden Sie diesen Befehl:<\/p>\n Wichtig: Nicht nur die letztere Variante legt eine neue temporäre Variable an, wenn diese noch nicht vorhanden ist – auch die einfache Zuweisung erzeugt gegebenenfalls eine neue temporäre Variable.<\/p>\n Die einfachste Möglichkeit, die Werte aller temporären Variablen auszugeben, ist das Durchlaufen aller TempVars <\/b>in einer For Each<\/b>-Schleife. Dabei verwenden wir eine Variable des Typs TempVar<\/b>, um die aktuelle temporäre Variable zu referenzieren. Die Prozedur aus Listing 1 zeigt, wie dies funktioniert.<\/p>\n Listing 1: Ausgeben aller temporären Variablen und ihrer Werte<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Festlegen](\"..\/tl_files\/images\/pic_241_001.png\")
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nTemporäre Variable per VBA festlegen<\/h2>\n
TempVars.Add \"AktuelleAusgabe\", \"5\/2014\"<\/pre>\n
Per VBA auf eine temporäre Variable zugreifen<\/h2>\n
MsgBox<\/span> \"Die aktuelle Ausgabe heißt \" & TempVars.Item(\"AktuelleAusgabe\")<\/pre>\nMsgBox<\/span> \"Die aktuelle Ausgabe heißt \" & TempVars(\"AktuelleAusgabe\")<\/pre>\nMsgBox<\/span> \"Inhalt der ersten TempVar: \" & TempVars(0)<\/pre>\nWert einer temporären Variablen ändern<\/h2>\n
TempVars(\"AktuelleAusgabe\") = \"6\/2014\"<\/pre>\n
TempVars(0) = \"6\/2014\"<\/pre>\n
TempVars.Add(\"AktuelleAusgabe\") \"6\/2014\"<\/pre>\n
Alle TempVars durchlaufen<\/h2>\n
Public Sub <\/span>AlleTempVarsAusgeben()\r\n Dim <\/span>objTempVar As <\/span>TempVar\r\n For Each objTempVar In TempVars\r\n MsgBox<\/span> \"Name: \" & objTempVar.Name & vbCrLf<\/span> & \"Wert: \" & objTempVar.Value\r\n Next<\/span> objTempVar\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t