Ajutise muutuja loomiseks ja selle määramiseks kindlale väärtusele saate kasutada Accessi töölauaandmebaasis makrotoimingut SetTempVar. Siis saab seda muutujat kasutada tingimuse või argumendina või saate muutujat kasutada teises makros, sündmuseprotseduuris või vormil või aruandes.
Säte
Makrotoimingul SetTempVar on järgmised argumendid.
|
Toimingu argument |
Kirjeldus |
|
Nimi |
Sisestage ajutise muutuja nimi. |
|
Avaldis |
Sisestage avaldis, mida kasutatakse sellele ajutisele muutujale väärtuse määramiseks. Ärge alustage avaldist võrdusmärgiga (=). Avaldisekoosturi kasutamiseks selle argumendi määramise jaoks saate klõpsata nuppu Koosta |
Märkused
-
Korraga saate määrata kuni 255 ajutist muutujat. Kui te ajutist muutujat ei eemalda, jääb see mällu seniks, kui sulgete andmebaasi. Mõistlik oleks ajutised muutujad eemaldada, kui te neid enam ei kasuta. Ühe ajutise muutuja eemaldamisekes kasutage toimingut RemoveTempVar ja määrake selle argument eemaldatava ajutise muutuja nimele. Kui teil on mitu ajutist muutujat ja soovite need kõik eemaldada, kasutage toimingut RemoveAllTempVars.
-
Ajutised muutujad on globaalsed. Kui ajutine muutuaj on loodud, saate sellele viidata sündmuseprotseduuris, moodulis Visual Basic for Applications (VBA), päringus või avaldises. Kui te näiteks lõite ajutise muutuja nimega MyVar, saate muutujat kasutada tekstivälja juhtelemendi allikana, kui kasutate järgmist süntaksit.
=[TempVars]![MyVar]
Märkus.: Makrodes, päringutes ja sündmuseprotseduurides pole vaja avaldist alustada võrdusmärgiga.
Samuti saate ajutistele muutujatele viidata mis tahes lisandmoodulis või viidatud andmebaasis.
-
Makro SetTempVar toimingu käivitamiseks VBA-moodulis kasutage TempVars-objekti meetodit Lisa.
Näide
Järgnev makro näitab, kuidas luua ajutist muutujat, kui kasutada selleks makrotoimingut SetTempVar, seejärel kasutada ajutist muutujat tingimuses ja teateväljal ning seejärel eemaldada ajutine muutuja.
|
Tingimus |
Toiming |
Argumendid |
|
SetTempVar |
Nimi: MyVar Avaldis: InputBox („Sisestage nullist erinev arv.“) |
|
|
[TempVars]![MyVar]<>0 |
MsgBox |
Sõnum: ="Teie sisestasite " & [TempVars]![MyVar] & "." Piiks. Jah Tüüp: Teave |
|
RemoveTempVar |
Nimi: MyVar |
