Зміна властивостей таблиці

Коли Ви створюєте поле програмним методом, деякі його властивості, наприклад, Description не створюються автоматично. Вам необхідно навчитися змінювати властивості полів бази даних, а в разі необхідності додавати їх в базу даних.

На цьому прикладі показано, як змінити значення властивості поля бази даних. У даній програмі також передбачено, що якщо властивість відсутня, то воно буде додано в базу даних.


“Параметри:


“Fld – поле в таблиці (Об’єкт Field)


“StrName – ім’я властивості (Description, Format …)


“VarType – тип властивості (dbText, dbLong …)


“VarValue – значення властивості



Function funChangeProperty(fld As Field, strName As String, varType


                As Variant, varValue As Variant) As Boolean


Dim prp As Variant


On Error GoTo 999 “Призначаємо перехід по помилку


funChangeProperty = False “Повертаємо результат при помилку


   


fld.Properties (strName) = varValue “Привласнюємо значення полю


   


funChangeProperty = True “Повертаємо результат


Exit Function “Виходимо з програми


999:


If Err = 3270 Then “Властивість не знайдено


Set prp = fld.CreateProperty (strName, varType, varValue) “Створюємо властивість


fld.Properties.Append prp “Додаємо властивість


Err.Clear “Очищаємо потік від помилки


Resume Next “Повертаємося до наступного оператору


    End If


Err.Clear “Очищаємо від незнайомої помилки


End Function

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*