...
Private WithEvents ArcF As Form
...
Public Property Get ArcForm() As Form
    Set ArcForm = ArcF
End Property

Public Property Set ArcForm(ByVal ArcFvNewValue As Form)
    Set ArcF = ArcFvNewValue
If ArcFvNewValue Is Nothing Then Exit Property
On Error Resume Next
    ArcF.AfterUpdate = "[Event Procedure]"
    If With_T Then ArcF.BeforeUpdate = "[Event Procedure]"
    
    ArcF.OnDelete = "[Event Procedure]"
    If With_T Then ArcF.BeforeDelConfirm = "[Event Procedure]"
    ArcF.AfterDelConfirm = "[Event Procedure]"
End Property
...
Sub Terminate()
  SetSomeThing=Nothing '% 0 ) - некий список обнулений ссылок и очистки памяти
End Sub

Private Sub Class_Terminate()
  Terminate
End Sub
...

Private TARC As New T_ArcF

Private Sub Form_Open(Cancel As Integer)
    Set TARC.ArcForm = Me
    TARC.sTable = "Factura"
    vKey( 0 ) = "Code": vKey( 1 ) = "Code"
    TARC.fKeys.Add (vKey)
End Sub

'Private Sub Form_Close()
    'Set TARC = Nothing 'или
    'TARC.Terminate
    'и то и другое вызывает системную ошибку акеса
    'уже ПО выходу из процедуры Form_Close
    'т.е. не в деструкторах, а в механизмах аксесса
'End Sub

Исключение в приложении:
        Прил.: msaccopt.exe (pid= 1012 )
        Время:  24 . 05 . 2004  @  13 : 15 : 58 . 765 
        Номер: c0000005 (нарушение прав доступа)
...

Private Sub ClearMem() 'чистим, что можно, не вызывая сбоя аксеса
    Erase pClon
    Set fKeys = Nothing
End Sub

Private Sub ArcF_Close()
    ClearMem
    Set ArcF = Nothing '!!! работает !!! только !!! тут
                       '_без сваливания аксеса_
                       'в Nothing выставляет (смотрел)
                       'еще б и класс потерминейтить теперь :( 
End Sub

Private Sub ArcF_Close()
    ClearMem
    Set ArcF = Nothing 
End Sub

Private Sub Form_Close()
    Set TARC.ArcForm = Nothing 
End Sub

Public Property Set ArcForm(ByVal ArcFvNewValue As Form)
    If ArcFvNewValue Is Nothing Then Exit Property
    'блокируем пи при попытке явно убрать св-во
    'можно еще установить флаг, т.,чтобы Property Get ArcForm()
    'возвращал после этого "вовне" Nothing
    Set ArcF = ArcFvNewValue
    ArcF.AfterUpdate = "[Event Procedure]"
    If With_T Then ArcF.BeforeUpdate = "[Event Procedure]"
    
    ArcF.OnDelete = "[Event Procedure]"
    If With_T Then ArcF.BeforeDelConfirm = "[Event Procedure]"
    ArcF.AfterDelConfirm = "[Event Procedure]"
    ArcF.OnClose = "[Event Procedure]"
    'не "[Event Procedure]" перекрываются, "[Event Procedure]" дополняются !!!
End Property

Private piPreventer As Object 'самоподхват
...
Public Property Set ArcForm(ByVal ArcFvNewValue As Form)
    Set piPreventer = Me 'ставим блокировку пи при
                'внешних попытках вызвать деструктор класса
    If ArcFvNewValue Is Nothing Then Exit Property
    'блокируем пи при попытке явно убрать св-во
    'можно еще установить флаг, т.,чтобы Property Get ArcForm()
    'возвращал после этого "вовне" Nothing
    Set ArcF = ArcFvNewValue
    ArcF.AfterUpdate = "[Event Procedure]"
    If With_T Then ArcF.BeforeUpdate = "[Event Procedure]"
    
    ArcF.OnDelete = "[Event Procedure]"
    If With_T Then ArcF.BeforeDelConfirm = "[Event Procedure]"
    ArcF.AfterDelConfirm = "[Event Procedure]"
    ArcF.OnClose = "[Event Procedure]"
    'не "[Event Procedure]" перекрываются, "[Event Procedure]" дополняются !!!
End Property

Private TARC As New T_ArcF

Private Sub Form_Close()
    Set TARC.ArcForm = Nothing
    Set TARC = Nothing 'проверим нашу блокировку
End Sub

'Private TARC As New T_ArcF
Private Sub Form_Open(Cancel As Integer)
Dim TARC As New T_ArcF
    'TARC.With_T = True 'фиксировать в шапке - чревато глюками
    Set TARC.ArcForm = Me
    TARC.sTable = "Facturno"
    vKey(0) = "Code": vKey(1) = "Code" 'vKey( 0 ) - в таблице, vKey( 1 ) - в форме
    TARC.fKeys.Add (vKey) 
End Sub

Private Sub ArcF_Close()
    Set piPreventer = Nothing 'только тут снимаем блокировку пи
    ClearMem
    Set ArcF = Nothing 'работает только тут ! (иначе вываливает аксес)
End Sub

Option Compare Database
Option Explicit
Private TARC As New T_ArcF

Private Sub Form_Close()
    Set TARC = Nothing
End Sub

Private Sub Form_Open(Cancel As Integer)
    Set TARC.ArcForm = Me
End Sub

Option Compare Database
Option Explicit

Private piPreventer As Object 'самоподхват
Private WithEvents ArcF As Form

Public Property Get ArcForm() As Form
    Set ArcForm = ArcF
End Property

Public Property Set ArcForm(ByVal ArcFvNewValue As Form)
    'Set piPreventer = Me 'ставим блокировку пи при
                'внешних попытках вызвать деструктор класса
    'If ArcFvNewValue Is Nothing Then Exit Property
    Set ArcF = ArcFvNewValue
    ArcF.AfterUpdate = "[Event Procedure]"
    ArcF.OnClose = "[Event Procedure]"
End Property

' При удалении экземпляра
Private Sub Class_Terminate()
    Terminate
'!не писать в формах:
'Private Sub Form_Close()
    'Set TARC = Nothing 'или
    'Set TARC.ArcForm = Nothing
    'TARC.Terminate
    'и то и другое и третье вызывает системную ошибку акеса
    'уже ПО выходу из процедуры Form_Close
    'т.е. не в деструкторах, а в механизмах аксесса
'End Sub
End Sub

Private Sub Terminate() 'все равно все не чистим
    Set ArcF = Nothing      'Без ArcF_Close валит Access
End Sub

Private Sub ArcF_AfterUpdate()
On Error GoTo err

ex:
    Exit Sub
err:
    MsgBox err.Description
    Resume ex
End Sub

'Private Sub ArcF_Close()
'    Set piPreventer = Nothing 'только тут снимаем блокировку пи
'    Set ArcF = Nothing 'работает только тут ! (иначе вываливает аксес)
'End Sub

Исключение в приложении:
        Прил.:  (pid= 1308 )
        Время:  26 . 05 . 2004  @  16 : 01 : 59 . 062 
        Номер: c0000005 (нарушение прав доступа)

* ----> Сведения о системе <----*
 

* ----> Список задач <----*
 
    0  Idle.exe
    8  System.exe
  140  SMSS.exe
  164  CSRSS.exe
  184  WINLOGON.exe
  212  SERVICES.exe
  224  LSASS.exe
  376  svchost.exe
  420  svchost.exe
  468  spoolsv.exe
  500  cusrvc.exe
  568  regsvc.exe
  584  mstask.exe
  720  wm.exe
  744  svchost.exe
  880  explorer.exe
  972  dpmw32.exe
  988  nwtray.exe
 1024  drwebscd.exe
  356  spiderml.exe
 1040  internat.exe
 1060  LvAgent.exe
 1068  thebat.exe
  604  IEXPLORE.exe
  596  svchost.exe
  388  TASKMGR.exe
  920  MSOHELP.exe
 1256  msaccess.exe
  540  winhlp32.exe
 1308  MSACCESS.exe
 1260  DRWTSN32.exe
    0  _Total.exe

( 30000000  -  30491000 ) 
(77F80000 - 77FFC000) 
(77F40000 - 77F7C000) 
(793A0000 - 7945A000) 
(77E10000 - 77E75000) 
( 10000000  -  10019000 ) 
( 79060000  - 790C2000) 
(770F0000 - 7715E000) 
(308C0000 - 30E1D000) 
(77A50000 - 77B3C000) 
( 37020000  - 3713B000) 
(00F80000 -  01184000 ) 
(779B0000 - 77A4B000) 
(6E380000 - 6E386000) 
(75E00000 - 75E1A000) 
(68C10000 - 68C96000) 
( 78000000  -  78045000 ) 
( 71780000  - 7180A000) 
(1B000000 - 1B170000) 
(1B5D0000 - 1B665000) 
(1B270000 - 1B2BC000) 
( 20000000  - 2000C000) 
( 65000000  -  65263000 ) 
( 65300000  -  65327000 ) 
(1B810000 - 1B84A000) 
( 77260000  - 772CC000) 
(0D310000 - 0D458000) 
(70BD0000 - 70C34000) 

Копия памяти для потока 0x1a8

eax= 00000000  ebx= 00000000  ecx= 00000000  edx= 00000000  esi=779d93d0 edi= 00000000 
eip= 30058326  esp=0012ef44 ebp=0012f010 iopl= 0          nv up ei pl zr na po nc
cs=001b  ss= 0023   ds= 0023   es= 0023   fs=003b  gs= 0000              efl= 00000246 


функция: <nosymbols>
        300582f5  50                push    eax
        300582f6 895dd8           mov     [ebp+0xd8],ebx         ss:00bb8ef6=????????
        300582f9 ff158cff3f30     call    dword ptr [303fff8c]   ds:303fff8c=779db790
        300582ff 8b4d14           mov     ecx,[ebp+0x14]         ss:00bb8ef6=????????
         30058302  e83353ffff       call    CreateIExprSrvObj+0x2121e (3004d63a)
         30058307  3bc3             cmp     eax,ebx
         30058309  8945e0           mov     [ebp+0xe0],eax         ss:00bb8ef6=????????
        3005830c 895d08           mov     [ebp+0x8],ebx          ss:00bb8ef6=????????
        3005830f 0f86ac000000     jbe     CreateIExprSrvObj+0x2bfa5 (300583c1)
         30058315  8b3598ff3f30     mov     esi,[303fff98]         ds:303fff98=779d93d0
        3005831b ff7508           push    dword ptr [ebp+0x8]    ss:00bb8ef6=????????
        3005831e 8b4d14           mov     ecx,[ebp+0x14]         ss:00bb8ef6=????????
         30058321  e839020000       call    CreateIExprSrvObj+0x2c143 (3005855f)
СБОЙ ->  30058326  8b4004           mov     eax,[eax+0x4]          ds:00a89ee6=????????
         30058329  8d55f0           lea     edx,[ebp+0xf0]         ss:00bb8ef6=????????
        3005832c  52                push    edx
        3005832d ff7510           push    dword ptr [ebp+0x10]   ss:00bb8ef6=????????
         30058330  8b08             mov     ecx,[eax]              ds: 00000000 =????????
         30058332   50                push    eax
         30058333  ff11             call    dword ptr [ecx]        ds: 00000000 =????????
         30058335  8bf8             mov     edi,eax
         30058337  3bfb             cmp     edi,ebx
         30058339  0f8c82000000     jl      CreateIExprSrvObj+0x2bfa5 (300583c1)
        3005833f 8b45e4           mov     eax,[ebp+0xe4]         ss:00bb8ef6=????????
         30058342  8b4df0           mov     ecx,[ebp+0xf0]         ss:00bb8ef6=????????
         30058345  0fbf401c         movsx   eax,word ptr [eax+0x1c]    ds:00a89ee7=????
         30058349  8b09             mov     ecx,[ecx]              ds: 00000000 =????????
        3005834b 391c08           cmp     [eax+ecx],ebx          ds: 00000000 =????????