Probleme de forrmulaire sous access

D'abord bonjours à tout le monde car je suis nouveau ici.
Alors voila, j'ai un questionnaire interractif à faire sous access pour un stage mais le probleme est que je ne connais rien en access. J'ai fait un semblant de base de donnée mais je voudrai savoir un ptit truc :
Pour fermer tous les formulaires quand j'en ouvre un, le code est :

Private Sub Form_Open(Cancel As Integer)Function OuvrirUnSeulFormulaire(ByVal strForm As String)
' Commencer par fermer tous les formulaires potentiellement ouverts
Dim intI As Integer
For intI = 0 To Forms.Count - 1
    DoCmd.Close acForm, Forms(0).Name
Next

' Ouvrir le formulaire souhaité en mode Normal
DoCmd.OpenForm strForm, acNormal

End Sub

Il me met le machin en italique et dit qu'il y a une erreur; c'est très possible!!
Mais où faut-il que je mette ce code, dans evenement exeptionnel de chaque formulaire, si quelqu'un de généreux et de patient pouvait m'indiquer un forum ou mieux m'expliquer les bases de chez bases de access, se serait vraiment un chouette gars, Merci