ник: ial52
Не пойму в чем я неправ
есть таблица, скажем "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
И ничего не происходит ?
Спасибо