Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: 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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.