TKSoft-Online

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

NewTempVar "DB_Path", CurrentProject.Path

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

Private Sub Form_Load()
    'Füllen der TempVars
    NewTempVar "UserName", ShowUserName()

    NewTempVar "TempFolder", GetTempFolder()

    NewTempVar "CurrentVersion", GetAccVersAndSP()

    NewTempVar "DB_Path", CurrentProject.Path
End Sub

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

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