Hej!

Är det någon som vet hur man kan öppna samma formulär flera gånger. Jag vill alltså skapa flera formulär-"objekt" utan att stänga de första. Jag har provat med följande kod:

stDocName = "formulärnamn"
DoCmd.OpenForm stDocName, , , , acFormAdd

Detta fungerar dock inte. Jag vill alltså kunna öppna en nytt formlärfönster innan jag är klar med att fylla i det första???

Jag har provat med kopiera formulärnamnet och döpa om det och sedan kalla på det med koden ovan, fungerar men då blir man juh begränsad till antalet formulär man kopierat upp??

MVH
/TJocke

JAg har i mitt fall dötp formuläret till form17. Koden i formuläret skulle se ut:

Private Sub CloseButton_Click()
    DoCmd.Close
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Form17Unload Me
End Sub

Private Sub NewButton_Click()
    OpenForm17
End Sub

Krävs oxå en model med följande kod:
<code>
Private mForms As New Collection


Public Function OpenForm17() As Form_Form17
Dim frmForm As Form_Form17
Set frmForm = New Form_Form17
mForms.Add frmForm
frmForm.Visible = True
Set OpenForm17 = frmForm
End Function

Public Sub Form17Unload(Value As Form_Form17)
Dim frmForm As Form_Form17
Dim index As Long
For Each frmForm In mForms
index = index + 1
If frmForm Is Value Then
mForms.Remove index
Exit For
End If
Next
End Sub
</code>

Tack!

Jag ska prova detta!

MVH
/Tjocke