Formulieren sluiten behalve introductiescherm

[black cadillac]

Ik ben op zoek naar een code die alle formulieren sluit behalve het introductie scherm...
De bedoeling is om de code achter een knop te zetten.

Deze code heb ik al wel gevonden, maar werkt niet als ik het achter een button plaats

Function All_Form_Sluiten()
Dim frm As Form

For Each frm In Forms
If frm.Name <> "NaamBeginscherm" Then DoCmd.Close acForm, frm.Name
Next frm
End Function

 

[Bartuls]

Op welke regel krijg je een foutmelding en wat is de foutmelding?

Volgens mij zou er dit moeten staan:

For Each frm In Application.Forms

 

[Tardis]

Zet deze code in een module:

Function All_Form_Sluiten()

Dim intx As Integer
Dim intCount As Integer
   
intCount = Forms.Count - 1
For intx = intCount To 0 Step -1
    If Forms(intx).Name <> "NaamBeginscherm" Then
    DoCmd.Close acForm, Forms(intx).Name
    End If
Next

End Function

Roep de code aan via een Bij Klikken gebeurtenis via een knop op je introduktiescherm:

Call All_Form_Sluiten

Zie ook

http://www.mvps.org/access/forms/frm0040.htm

Groet,

Tardis

 

[black cadillac]

Hartelijk dank het werkt

M.v.g. Lars