Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Спасибо ясно. вот так нормально
Function NewField(Db_Name, Table_Name, Pole_Name, Pole_Tip, Pole_Size) Dim MyField As Field Dim MyTable As TableDef Dim MyDb As Database Set MyDb = CurrentDb Set MyTable = MyDb.TableDefs(Table_Name) MyTable.Fields.Append MyTable.CreateField(Pole_Name, Pole_Tip, Pole_Size) End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.