в реестре
в текстовом файле
в пользовательском свойстве таблицы MDB
в пользовательском свойстве проекта ADP

Public Sub setperiod(data As Date)
Dim prp As Property
CurrentProject.Properties("firstdate") = firstdate(data)
CurrentProject.Properties("lastdate") = lastdate(data)
'CurrentProject.Properties.Add "lastdate", data ' так создают
End Sub


Public Function gfd()
'get first date
gfd = CDate(CurrentProject.Properties("firstdate"))
End Function

Public Function Gld()
'get last date
Gld = CDate(CurrentProject.Properties("lastdate"))
End Function

GetSetting Function


Returns a key setting value from an application's entry in the Windows registry or (on the Macintosh) information in the application’s initialization file.

Syntax

GetSetting(appname, section, key[, default])

The GetSetting function syntax has these named arguments:

Part Description
appname Required. String expression containing the name of the application or project whose key setting is requested. On the Macintosh, this is the filename of the initialization file in the Preferences folder in the System folder.
section Required. String expression containing the name of the section where the key setting is found.
key Required. String expression containing the name of the key setting to return.
default Optional. Expression containing the value to return if no value is set in the key setting. If omitted, default is assumed to be a zero-length string ("").



Remarks

If any of the items named in the GetSetting arguments do not exist, GetSetting returns the value of default.

-----------------------------

SaveSetting Statement


Saves or creates an application entry in the application's entry in the Windows registry or (on the Macintosh) information in the application’s initialization file.

Syntax

SaveSetting appname, section, key, setting

The SaveSetting statement syntax has these named arguments:

Part Description
appname Required. String expression containing the name of the application or project to which the setting applies. On the Macintosh, this is the filename of the initialization file in the Preferences folder in the System folder.
section Required. String expression containing the name of the section where the key setting is being saved.
key Required. String expression containing the name of the key setting being saved.
setting Required. Expression containing the value that key is being set to.



Remarks

An error occurs if the key setting can’t be saved for any reason.

пожайлуста