Pomocí akce makra SetTempVar v desktopových databázích Accessu můžete vytvořit dočasnou proměnnou a nastavit ji na určitou hodnotu. Proměnnou pak můžete použít jako podmínku nebo argument v následných akcích nebo ji můžete použít v jiném makrech, v proceduře události nebo ve formuláři nebo sestavě.
Nastavení
Akce makra SetTempVar má následující argumenty.
Akční argument |
Popis |
Název |
Zadejte název dočasné proměnné. |
Expression |
Zadejte výraz, který se použije k nastavení hodnoty pro tuto dočasnou proměnnou. Před výraz nepoužívejte znaménko rovná se (=). Můžete kliknout na tlačítko Sestavit a použít Tvůrce výrazů k nastavení tohoto argumentu. |
Poznámky
-
Najednou můžete definovat až 255 dočasných proměnných. Pokud neodeberete dočasnou proměnnou, zůstane v paměti, dokud databázi nezavřete. Po dokončení jejich používání je vhodné dočasné proměnné odebrat. Pokud chcete odebrat jednu dočasnou proměnnou, použijte akci RemoveTempVar a nastavte její argument na název dočasné proměnné, kterou chcete odebrat. Pokud máte více než jednu dočasnou proměnnou a chcete je odebrat všechny najednou, použijte akci RemoveAllTempVars.
-
Dočasné proměnné jsou globální. Po vytvoření dočasné proměnné na ni můžete odkazovat v Obslužná procedura události, modulu jazyka VBA (Visual Basic for Applications), dotazu nebo výrazu. Pokud jste například vytvořili dočasnou proměnnou s názvem MyVar, mohli byste proměnnou použít jako zdroj ovládacího prvku pro textové pole pomocí následující syntaxe:
=[TempVars]![MyVar]
Poznámka: V makrech, dotazech a procedurách událostí nemusíte před výrazem používat rovnítko.
Můžete také odkazovat na dočasné proměnné v libovolném doplňku nebo odkazovaných databázích.
-
Pokud chcete spustit akci makra SetTempVar v modulu VBA, použijte metodu Add objektu TempVars .
Příklad
Následující makro ukazuje, jak vytvořit dočasnou proměnnou pomocí akce makra SetTempVar , pak pomocí dočasné proměnné v podmínce a okně se zprávou a pak odebrat dočasnou proměnnou.
Podmínka |
Akce |
Argumenty |
SetTempVar |
Jméno: MyVar Výraz: InputBox("Zadejte nenulové číslo.") |
|
[TempVars]! [MyVar]<>0 |
OknoSeZprávou |
Zpráva: ="Zadali jste " & [TempVars]! [MyVar] & "." ZvukovýSignál: Ano Typ: Informace |
RemoveTempVar |
Jméno: MyVar |