Buon giorno.
Questo è il modulo per la collezione:
Option Compare Database
Option Explicit
Public clnClient As New Collection 'Instanze di ARCHIVIODETAIL.
Function OpenAClient()
'Apre un'istanza indipendente
Dim msk As Form
'Apre una nuova istanza e cambia la caption.
Set msk = New Form_ARCHIVIODETAIL
msk.Visible = True
'Definisce la caption
msk.Caption = "SOGGETTO_RICHIEDENTE " & "NOME_FALDONE_ATTUALE " & "POSIZIONE_CARTELLA"
'Aggiunge alla collezione
clnClient.Add Item:=msk, Key:=CStr(msk.hWnd)
Set msk = Nothing
End Function
Mschera ARCHIVIODETAIL:
DoCmd.OpenForm "ARCHIVIODETAIL", WhereCondition:="[ID]=" & Me.IdPadreArch