You can't open the same form multiple times, you'd have to make additional forms, or change your setup so you could display multiple records on one form with subforms.

It's not to show records, but for example PDF

All the code from the form itself

Details

'----------------------------------------------------------------------------------------------
Option Compare Database
Option Explicit

Dim varSplitStringd() As String

Private Sub BtnBestandOpenen_Click()
    Call NogNiets
End Sub

Private Sub BtnSluiten_Click()
    TempVars("BestandID") = ""
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Load()
    Call tonen
    
    '----- FORMULIER CENTREREN -----
    FormulierCentreren "Preview"
End Sub

Private Sub tonen()
    If Not IsNull(Forms!Preview.OpenArgs) Then
        varSplitStringd = Split(Me.OpenArgs, "|")
        Me.TxtLinkbestand.Value = varSplitStringd(0)
    End If
End Sub


The code to open the preview form.

Details

Private Sub BtnCommercieel_Click()
    AllOff
    Me.BtnCommercieel.BackColor = RGB(204, 204, 204)
    OpenPreview 498, Forms!Dossier_Project.WerfID
End Sub

CODE TO FIND THE CORRECT DOCUMENT TO SHOW

Details

Public Sub OpenPreview(Wat As Integer, Project As Integer)
'----- NOG AANPASSEN VOOR ANDER SOORTEN BESTANDEN -----
'----- KAN DIT NOG NIET UNIVERSEEL GEBRUIKEN WERKT VOORLOPIG ENKEL VOOR LASTENBOEKEN   -----
'----- BV voor bestelbonnen zullen er meer zijn voor 1 project en dat voldoet <>  -----
'----- en <> niet alleen                                                      -----
    Dim Boodschap As String
    If DCount("BestandID", "Q_BestandenMetLink_Alfa", "BestandWat =" & Wat & " AND ProjectID =" & Project) = 0 Then
        Select Case Wat
            Case 418
                Boodschap = "Lastenboek architectuur niet gevonden voor dit project."
            Case 419
                Boodschap = "Lastenboek stabiliteit niet gevonden voor dit project."
            Case 420
                Boodschap = "Lastenboek elektriciteit niet gevonden voor dit project."
            Case 421
                Boodschap = "Lastenboek sanitair niet gevonden voor dit project."
            Case 498
                Boodschap = "Commercieel lastenboek niet gevonden voor dit project."
            Case 499
                Boodschap = "Lastenboek HVAC niet gevonden voor dit project."
        End Select
        antwoord = MyMsgBox(Boodschap, "INFO", "OK", "", "", 1, 1, 2500)
        GoTo Sub_Verlaten
    End If
    IDLastenboek = DLookup("BestandID", "Q_BestandenMetLink_Alfa", "BestandWat =" & Wat & " AND ProjectID =" & Project)
    TempVars("BestandID") = IDLastenboek
    BestandPath = DLookup("Bestand", "Q_BestandenMetLink_Alfa", "BestandID =" & IDLastenboek) & "|"
    'DoCmd.OpenForm "Preview", , , , acFormReadOnly, acWindowNormal, BestandPath
    DoCmd.OpenForm "Preview", , , "BestandID =" & IDLastenboek, acFormReadOnly, acWindowNormal, BestandPath
Sub_Verlaten:
    Exit Sub
End Sub

Richard did you ever do this?
Multiple Instances of the same Form.
(Spawn Copies is at the db level)

Yeah, I've done this before with class modules. It's been on the list for a TechHelp video for a while, but I didn't think there was much demand for it.

Of course, I need to cover class modules first. :)

Richard, I would LOVE for you to cover class modules!!

It's been on my list for a Developer level video. Coming very soon. Just need to get thru these lessons on customizing the Ribbon. LOL