| |
|
|
| | Не пойму в чем я неправ
есть таблица, скажем "transfer_shop_ed", в ней поле "edid". По умолчанию - ЦИФРА. необходимо программно переустановить на ТЕКСТ. Пишу код
Public Function FeldNamen(TabNam As String)
Dim db As Database, tdf As TableDef, fld As Field, prt As Property
Set db = CurrentDb()
Set tdf = db.TableDefs(TabNam)
For Each fld In tdf.Fields
If fld.Name = "edid" Then
Set prt = fld.CreateProperty("edid", dbText, 255)
fld.Properties.Refresh
End If
Next fld
db.Close
End Function
Запуская отсюда
Public Sub st()
FeldNamen ("transfer_shop_ed")
End Sub
И ничего не происходит ?
Спасибо | |
| |
| |
| |
|
|
| | что-то странное вы пишите:
Set prt = fld.CreateProperty("edid", dbText, 255)
|
Зачем вы создаете для поля "edid" текстовое свойство с именем "edid"?
Для изменения типа поля удобно выполнять SQL строку типа
CurrentDb.Execute "ALTER TABLE ИмяТаблицы ALTER COLUMN ИмяПоля TEXT"
|
| |
| |
| |
| |
|
|
| | Cпасибо, уважаемый. В последние два года почти не занимался и поэтому многое улетучилось. Программирование не профессия (для меня), а только хобби. Конечно-же это проще.
Еще раз спасибо | |
| |
| |
