Форумы HiProg.com - MS ACCESS, VBA, VB

ник: kot_k_k
1. запрос insert into.....
2. через
set rst= currentdb.Openrecordset("....")
rst.Addnew
...............
rst.Update

п.с. еще раз подумав
- блин,?! - а как это данные в СТРУКТУРУ таблицы ??? - покажи на примере

п.с.с. включил телепатор - может имеетвся в виду в структуру другой таблы добавить ПолеСоСписком которое указывает на стравочник? - так мастер для этого есть.


п.с.с.с. выключил телепатор, бахнул конины, опять включил
у поля есть ствойства Properties - нужно создать Properties и именем "Description" и туда в Value впихнуть ДАННЫЕ (какие только)

может так, но ругается
Set prp = op.Fields(3).CreateProperty("Description", 10, "вот данные")
op.Fields(3).Properties.Append prp
op.Fields(3).Properties.Refresh

хотя с запросом работает вот

Set qdf = dbs.QueryDefs("All_Dog_Oper_pere")         For Each FF In qdf.Fields             Select Case FF.Name                 Case "Всего Оплата", "Всего Реализация"                     Set prp = FF.CreateProperty("Format", 10, "#,##;#,##;0")  '"Standart")                     FF.Properties.Append prp                     FF.Properties.Refresh                     Set prp = FF.CreateProperty("DecimalPlaces", 2, 2)                     FF.Properties.Append prp                     FF.Properties.Refresh