www.integro.ru

[tariel]

создается объект надо что бы заполнялось поле кто создал объект
есть модуль по автозаполеннию

,Задать имя пользователя при создании объекта 0& Программаю option explicit


const LayerID = "002D0000F204"
const TableName = "Новая таблица"
const FieldName = "Имя"


dim LockUpdate

LockUpdate = false


' Вызывается после создания пространственного объекта
sub DbMapObjects_CreateComplete(aMapObjectID, aMy)

dim MapObjects

set MapObjects = ActiveDb.MapObjects
if not aMy or LockUpdate or (MapObjects.LayerIDFromObjectID(aMapObjectID) <> LayerID) then
exit sub
end if

dim MapObject, UserName
set MapObject = MapObjects.GetObject(aMapObjectID)

with ActiveDb
UserName = .Users.UserFromID(.LogonUserID).Name
end with

MapObject.SemData.SetValue TableName, FieldName, UserName, 0

LockUpdate = true
on error resume next
MapObjects.UpdateChanges
LockUpdate = false
end sub
VBScript



так вот : привязка идет к конкретному слою.
можно ли оформить что бы заполнялось по любому объекту в таблице которых есть поле имя пользователя.?