Fechar Forms Automatico quando fechar o Access

Bom dia, estou com o seguinte problema:

Quando eu fecho o access com o formulário aberto ele me aponta um erro " O Gestão de Compras não pode localizar o formulário referenciado "Requisições".
isso acontece por que no evento Ao Fechar existe uma função com referencia ao formulário Requisições, quando fecha o access com o formulário aberto ele se perde.

Eu preciso de algum método que não permita encerrar o Access se algum formulário esteja aberto, ou forçar o fechamento dos formulários antes de fechar o Access.

Obrigado.

Boa tarde

E o formulário "Requisições" existe na BD ?

Cole aqui todo o acontecimento do evento ao fechar o dito formulário

Aguardo

Código:

Private Sub Form_Close()
On Error GoTo TrataErro
Dim strSQL As String
Dim vTemItem As Long

If Not IsNull(Me.IdRequisição) Then
    vTemItem = Nz(DCount("Item", "[Itens da Requisição]", "IdRequisição = " & Me.IdRequisição), 0)
End If

If Not IsNull(Me.IdRequisição) And vTemItem = 0 Then
    strSQL = "Delete Requisições.IdRequisição " & _
             "FROM Requisições " & _
             "WHERE (((Requisições.IdRequisição)= " & Me.IdRequisição & "))"
            
    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
End If
Call AbrirHistoricoDePedidosDoInsumoNaRequisicaoPopUp
DoCmd.Close

TrataErro:
    If Err.Number <> 0 Then
        MsgBox "Erro nº " & Err.Number & vbLf & Err.Description, vbCritical, "Requisição"
    End If
End Sub

˜r›t
w«tCC
;;èJ)Ö€
„

Código:

Public Sub AbrirHistoricoDePedidosDoInsumoNaRequisicaoPopUp(Optional ByVal vIdMaterial As Long)
    On Error GoTo TrataErro
    
    ' Habilita parametro para abrir popup caso não tenha
    Call HabilitarHistoricoDePedidosDoInsumoNaRequisicaoPopUp
    
    If Nz(DLookup("[ParametroValor]", "Parametros", "[ParametroNome]= 'HabilitaHistoricoCompraInsumosAoCadastrarNovaRequisicao'"), 0) <> 0 Then
        
        DoCmd.OpenForm "HistoricoDePedidosDoInsumoNaRequisicaoPopUp", acNormal, , , , acWindowNormal
        Forms![HistoricoDePedidosDoInsumoNaRequisicaoPopUp]![txtDtInicio] = DateAdd("D", -RetornaQtdDiasParaVerificacaoPedidosDoInsumo(), Date)
        Forms![HistoricoDePedidosDoInsumoNaRequisicaoPopUp]![txtDtFim] = Date
        Forms![HistoricoDePedidosDoInsumoNaRequisicaoPopUp]![txtObra] = Forms![Requisições]![Obra]
        Forms![HistoricoDePedidosDoInsumoNaRequisicaoPopUp]![txtIdReq] = Forms![Requisições]![IdRequisição]
        If vIdMaterial > 0 Then
                Forms![HistoricoDePedidosDoInsumoNaRequisicaoPopUp]![txtIdMaterial] = vIdMaterial
        End If
        If Nz(DCount("[Código]", "[Rel_HistoricoDePedidosDoInsumoNaRequisicaoPopUp]"), 0) = 0 Then
            DoCmd.Close acForm, "HistoricoDePedidosDoInsumoNaRequisicaoPopUp"
        Else
            Forms![HistoricoDePedidosDoInsumoNaRequisicaoPopUp].Requery
        End If
    End If
    
TrataErro:
        If Err.Number <> 0 Then
           MsgBox Error(Err.Number), vbCritical, "Histórico de Pedidos"
           Exit Sub
        End If

End Sub

;;èJ)Ö€
„

O problema da quando ele chama a função AbrirHistoricoDePedidosDoInsumoNaRequisicaoPopUp

pelo que eu entendi, o access encerra antes de terminar a função. Ele fecha o formulário Requisições, depois abre a função, a função procura o form mas ele já fechou
ai que da o problema

Teste

O erro persiste.