black cadillac
Gebruiker
- Lid geworden
- 14 jun 2007
- Berichten
- 16
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
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