Вопрос по закрытию формы:
Нужно удалять копии когда закрывается эта самая копия. тоесть она дролжна инициировать свое удаление.
Написал:
Цитата:
Sub killform(ByVal str As String)
If IsLoaded(str) Then
DoCmd.Close acForm, str
End If
DoCmd.DeleteObject acForm, str
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim para, tmp As String
tmp = Form.OpenArgs
para = Split(tmp, "|") 'во втором элементе получившегося массива - номер копии
If Not para(1) = 0 Then 'тоесть если это не оригинал - удаляем
killform ("ph_f_search_res_form-interm-ph_f-" & para(1))
End If
End Sub
|
Однако при попытке выйти из формы получаю:
Цитата:
Run-time error '2501'
Прервано выполнение макрокоманды Close
|
Как с этим боротся ? Подскажите пожалуста.