ник: alecks_lp
На закрытие формы запоминаю ключевое поле текущей записи
Private Const CURRENT_PERSONNEL As String = "CurrentPersonnel"
Private Sub Form_Close()
Dim strString As String
Dim prp As Object
Dim obj as Object
strString = Trim(str(PersonnelID))'Текущее значение ключевого поля
Set prp = CurrentDb.Containers("Forms").Documents(Me.Name).CreateProperty(prp)
prp.Name = CURRENT_PERSONNEL
prp.Type = dbText
prp.Value = strString
CurrentDb.Containers("Forms").Documents(Me.Name).Properties.Append prp
End Sub
|
Код - Работает - без проблем
Теперь пытаюсь создать объект для передачи и обработки во внешней процедуре
Private Sub Form_Close()
Set obj=CurrentDb.Containers("Forms").Documents(Me.Name)
Set prp = obj.CreateProperty(prp)
prp.Name = CURRENT_PERSONNEL
prp.Type = dbText
prp.Value = strString
obj.Properties.Append prp
End Sub
|
На последней строке пишет "объект задан неверно или более не существует"
Выручайте.