Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: osmor
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 менять, или извлекать из поля на диск и прописывать путь в свойство


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.