Имаш една таблица за съхраняване на променлива. Нита тоблицата се нарича tbl_Properties_Local със следната структура

PropertyName text 50 No Duplicates
PropertyValue text 255

Нека PropertyName=Var1


В момента в който пишеш в полето трябва да се задейства едно събитие AfterUpdate което да запише променливата Var1 в таблицата.

Това може да стане така:

' Запомни последната стойност
Call PropertiesWrite("Var1", CStr(Me!Var1))

Самата функция PropertiesWrite може да изглежда така:
Function PropertiesWrite(strPropertyName As String, _
strPropertyValue As String) As Integer
On Error GoTo PropertiesWrite_ErrHandler
' This function writes the specified property value out to the properties table.

Dim conConnection As ADODB.Connection
Dim StrSQL As String

Set conConnection = CurrentProject.Connection
conConnection.CursorLocation = adUseServer


StrSQL = " UPDATE [tbl_Properties_Local] " & _
" SET [PropertyValue] = " & conQuote & strPropertyValue & conQuote & _
" WHERE [PropertyName] = " & conQuote & strPropertyName & conQuote


conConnection.Execute StrSQL, iAffected, adExecuteNoRecords

WrapUp:
conConnection.Close

Exit_PropertiesWrite:
Set conConnection = Nothing
Exit Function

PropertiesWrite_ErrHandler:
Call LogMsgError(Err.Description, Err.Number, ModuleName$, "PropertiesWrite")
Resume Exit_PropertiesWrite
End Function

След като последната стойност е въведена в таблицата тя може да се чете с друга функция. Необходимо е да се подбере и подходящо събитие кога да става това така, че въвеждащия да не се налага да го прави.

Ами това е. Тези работи ги ползвам много и за това реших да споделя. Айде всичко добро.