Описание
Указывает, следует ли преобразовывать пустые строки (""), которые используются в программах для заполнения полей типа Text или Memo, в пустые значения (Null).
Значение
Задаваемое или возвращаемое значение является выражением типа Boolean, которое имеет значение True, если пустые строки преобразуются в пустые значения.
Замечания
Данное свойство применимо к базам данных с ядром Microsoft Jet версии 1.x, преобразованным в формат ядра Microsoft Jet версии 2.0 или 3.0
Это свойство автоматически создается ядром базы данных Microsoft Jet при преобразовании базы данных версии 1.x в базу данных версии 2.0 или 3.0. База данных версии 2.0 сохранит это свойство после преобразования в базу данных версии 3.0.
После изменения значения этого свойства необходимо закрыть базу данных и снова открыть ее, чтобы внесенные изменения вступили в действие.
Для увеличения быстродействия измените в программах инструкции, задающие пустые строки в значениях текстовых полей и полей Memo, на инструкции, задающие значения Null, и удалите свойство V1xNullBehavior из семейства Properties.
Пример
Следующая программа преобразует файл базы данных Microsoft Jet версии 1.1 в файл базы данных Microsoft Jet версии 3.0. При преобразовании свойство V1xNullBehavior создается и добавляется в семейство Properties новой базы данных. Для демонстрации изменений печатаются семейства Properties обеих баз данных. И наконец, свойство V1xNullBehavior удаляется. При этом подразумевается, что любые приложения будут преобразованы таким образом, чтобы сохранять в полях типа Text и Memo значения Null вместо пустых строк.
Для выполнения данной процедуры необходимо получить файл базы данных Microsoft Jet версии 1.1 с именем "Nwind11.mdb".
Sub V1xNullBehaviorX() Dim dbsNorthwind As Database Dim prpLoop As Property Set dbsNorthwind = OpenDatabase("Nwind11.mdb") With dbsNorthwind Debug.Print .Name & ", версии " & .Version ' Отображает семейство Properties базы данных. For Each prpLoop In .Properties On Error Resume Next If prpLoop <> "" Then Debug.Print " " & prpLoop.Name & " = " & prpLoop On Error GoTo 0 Next prpLoop .Close End With DBEngine.CompactDatabase "Nwind11.mdb", "Nwind30.mdb", , dbVersion30 Set dbsNorthwind = OpenDatabase("Nwind30.mdb") With dbsNorthwind Debug.Print .Name & ", версии " & .Version ' Отображает семейство Properties сжатой базы данных. ' На свойство V1xNullBehavior нельзя ссылаться в явном виде, ' т.е. в формате dbsNorthwind.V1xNullBehavior. Однако ' оно доступно в циклах или в ссылке с помощью ' строкового выражения, т.е. в формате ' dbsNorthwind.Properties("V1xNullBehavior"). For Each prpLoop In .Properties On Error Resume Next If prpLoop <> "" Then Debug.Print " " & prpLoop.Name & " = " & prpLoop On Error GoTo 0 Next prpLoop .Properties.Delete "V1xNullBehavior" .Close End With End Sub