Arbeiten mit TempVars

1 1 1 1 1 1 1 1 1 1 Rating 4.50 (1 Vote)

Details: Kategorie: Bsp. Downloads Sonstiges; Geschrieben von TommyK; Zugriffe: 12820

Problemstellung:
Benutzt man globale Variablen kommt es bei unbehandelten Laufzeitfehler zum Verlust des Variableninhaltes.
es ist auf jeden Fall ein Neustart der DB erforderlich im schlimmsten Fall kommt es zu Datenverlusten.
Wie kann ich das umgehen?
Ab Access 2007 gibt es das Objekt TempVars. Diese behalten auch bei unbehandelten Laufzeitfehlern ihren Inhalt

Voraussetzungen:
Das Bsp ist ab A2007 lauffähig. (Download enthält eine accdb-Datei)

Lösung:
Ich möchte hier für das TempVar-Objekt nur die 4 wichtigsten Methoden aufzeigen.

Public Function NewTempVar(sVarName As String, vTempValue As Variant)
    TempVars.Add sVarName, vTempValue
End Function
Public Function GetTempVarValue(sVarName As String) As Variant
    GetTempVarValue = TempVars(sVarName)
End Function
Public Sub RemoveTempVar(sVarName As String)
    TempVars.Remove (sVarName)
End Sub
Public Sub AllRemoveTempVars()
    TempVars.RemoveAll
End Sub

Die erste Funktion erstellt eine neue Variable und füllt Diese.

z.B. mit dem Pfad der aktuellen DB (Name der Variablen =DB_Path):

NewTempVar "DB_Path", CurrentProject.Path

Ist der Variablenname bereits vorhanden wird der Inhalt einfach mit dem neuen Wert überschrieben. (s. Bsp-DB)

Mit der 2. Funktion wird der Inhalt der Variablen abgerufen.

Dim x As String
x = GetTempVarValue("UserName")

Die 3. und 4. Sub ermöglichen entweder eine Variable oder alle Variablen zu löschen.

In der Bsp-DB werden 4 Variablen erstellt und gefüllt.

Private Sub Form_Load()
    'Füllen der TempVars
    NewTempVar "UserName", ShowUserName()
    NewTempVar "TempFolder", GetTempFolder()
    NewTempVar "CurrentVersion", GetAccVersAndSP()
    NewTempVar "DB_Path", CurrentProject.Path
End Sub

Ergebnis:

Gleichzeitig werden auch 4 globale Variablen mit den den gleichen Werten gefüllt.

Private Sub Form_Load()
    'Füllen der öffentlichen Variablen
    sUser = ShowUserName()
    sTempPath = GetTempFolder()
    sAccVersion = GetAccVersAndSP()
    sDBPath = CurrentProject.Path
End Sub

Um eine Übersicht zu behalten können alle Variablen der TempVars-Auflistung angezeigt werden( s. frm_Liste):

Private Sub Form_Load()
    Dim vVar As TempVar
    For Each vVar In TempVars
        Me.lst_TempVars.AddItem vVar.Name & ";" & vVar.Value
    Next vVar
End Sub