Option Compare Database
Option Explicit
Dim fA As Boolean, fC As Boolean
Dim i As Form_F
Dim vF As Form_F
Private Sub btnClose_Click()
On Error GoTo Err_btnClose_Click

    fC = False
    DoCmd.Close
    assa
Exit_btnClose_Click:
    Exit Sub

Err_btnClose_Click:
    MsgBox Err.Description
    Resume Exit_btnClose_Click
    
End Sub
Private Sub btnOpen_Click()
On Error GoTo Err_btnOpen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F"
    Set vF = New Form_F
    vF.Visible = True
    'DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_btnOpen_Click:
    Exit Sub

Err_btnOpen_Click:
    MsgBox Err.Description
    Resume Exit_btnOpen_Click
End Sub

Private Sub Form_Close()
    fC = False
End Sub

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Debug.Print Screen.ActiveControl.Name
Debug.Print Screen.ActiveControl.Parent.Name
Debug.Print Screen.ActiveControl.Parent.hwnd
Debug.Print Me.hwnd
    DoCmd.Maximize
    Set i = Me
    i.Visible = True
    fC = True
    fA = True
    assinh
End Sub

Public Function assa()
Do Until Forms.Count = 0
    DoCmd.Close acForm, Forms(0).Name
Loop
End Function

Private Sub Form_Resize()
    'DoCmd.CancelEvent
    'DoCmd.Maximize
    fA = True
End Sub

Public Sub assinh()
On Error Resume Next
    Do While True
        If fA Then
            DoEvents
            'DoCmd.SelectObject acForm, (Me.Name)
            'DoCmd.Maximize
            fA = False
        Else
            DoEvents
        End If
        If Not fC Or (Err <>  0 ) Then Exit Do
    Loop
    fA = False
End Sub

Option Compare Database
Option Explicit
Dim fC As Boolean

Private Sub Form_Close()
    MsgBox "Ку-ку Form_Close1"
    fC = False
    'assinh
    MsgBox "Ку-ку Form_Close2"
End Sub

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
    Me.Visible = True 'для 2k а то не видно формы
    fC = True
    assinh
    MsgBox "Ку-ку Form_Open"
End Sub

Public Sub assinh()
On Error Resume Next
    Do While True
        DoEvents
        If Not fC Or (Err <>  0 ) Then Exit Do
    Loop
    MsgBox "Ку-ку assinh"
End Sub