| | 1. Replicable - свойство БТ устанваливаемое в "T" если данная база может реплицироваться
ReplicationConflictFunction - http://support.microsoft.com/kb/q158930/
2. "все это добро" является свойствами объекта database, но доступно только если его (свойство) создать. Словами справки это звучит так:
Параметры запуска соответствуют свойствам объекта Database (база данных). Объект Database является объектом доступа к данным, определенным в ядре базы данных Microsoft Jet, однако, свойства, соответствующие параметрам запуска, определены в Microsoft Access и не распознаются автоматически ядром базы данных Jet. Если значение параметра запуска не было задано ранее, необходимо создать соответствующее свойство и добавить его в семейство Properties
объекта Database. Если свойства, определяющие параметры запуска, задаются в программе Visual Basic, необходимо включить в программу блок обработки ошибок, проверяющий существование данного свойства в семействе Properties. Более подробное описание см. в разделе Задание значений свойств объектов доступа к данным в программе Visual Basic.
Далее тоже из справки
В данном примере демонстрируется процедура «SetStartupProperties», в которой передается имя свойства, значение которого требуется задать, его тип данных и задаваемое значение. В общей процедуре «ChangeProperty» делается попытка задать значение стартового свойства и, если свойство не найдено, вызывается метод CreateProperty для добавления свойства в семейство свойств базы данных. Эти действия являются необходимыми, поскольку данные свойства не включаются в семейство до первого определения их значений.
Sub SetStartupProperties()
ChangeProperty "StartupForm", dbText, "Клиенты"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Свойство не найдено.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Неизвестная ошибка.
ChangeProperty = False
Resume Change_Bye
End If
End Function
|
3. Сохранить в базе можно, но вряд ли получится подсунуть эту картинку свойству AppIcon. МОжно либо через API менять, или извлекать из поля на диск и прописывать путь в свойство | |
