| |
|
|
| | Подскажите пожайлуста, как из таблицы справочника добавить данные в структуру (в описание) другой таблицы? Заранее благодарен. | |
| |
| |
| |
|
|
| | 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
|
| |
| |
| |
| |
|
|
| |
'---------------------------------------------------------------------------------------
' Procedure : SetAccessProperty
' DateTime : 10.02.2012 10:17
' Author : Дядя Федор
'---------------------------------------------------------------------------------------
'обращение SetAccessProperty db.TableDefs("TblPrice").Fields(j), "Description", dbMemo, "тратата"
Function SetAccessProperty(obj As Object, strName As String, _
intType As Integer, varSetting As Variant) As Boolean
Dim prp As Property
Const conPropNotFound As Integer = 3270
On Error GoTo ErrorSetAccessProperty
' Explicitly refer to Properties collection.
obj.Properties(strName) = varSetting
obj.Properties.Refresh
SetAccessProperty = True
ExitSetAccessProperty:
Exit Function
ErrorSetAccessProperty:
If Err = conPropNotFound Then
' Create property, denote type, and set initial value.
Set prp = obj.CreateProperty(strName, 10, varSetting)
' Append Property object to Properties collection.
obj.Properties.Append prp
obj.Properties.Refresh
SetAccessProperty = True
Resume ExitSetAccessProperty
Else
MsgBox Err & ": " & vbCrLf & Err.Description
SetAccessProperty = False
Resume ExitSetAccessProperty
End If
End Function
|
| |
| |
| |
