Access et visual basic, besoin d'aide...

Je ne suis pas informaticienne et j'ai un pb sur une application access qui jusqu'a présent fonctionnait très bien.
En interne personne ne peux m'aider.
J'espère que l'un(e) d'entre vous pourra le faire.

Le message vient de visual basic il est le suivant :
"Erreur de compilation, Sub ou Fonction non défini"

Est-ce que quelqu'un est en mesure de vérifier ce qui suit et me dire ce qui cloche.
D'avance merci de votre aide.


Private Sub btn_shift_Click()
On Error GoTo Err_btn_shift_Click
Dim Msg As String

'Verrouillage de l'application :
'voir fonction SetStartupProperties[False ou True]
If (Me!groupe_texte = "Admins" ) Then
SetStartupPropertiesTrue
Msg = "L'application sera déverrouillée au prochain démarrage. Attention, si vous n'avez pas bloqué l'accès à la base, les autres utilisateurs auront accès à tous les menus. Il est conseillé de bloquer l'accès à la base en utilisant l'utilitaire de déconnexion de tous les utilisateurs."
MsgBox Msg
Else
Msg = "Vous n'avez pas les droits nécessaires."
MsgBox Msg
End If

Exit_btn_shift_Click:
Exit Sub
Err_btn_shift_Click:
MsgBox Err.Description
Resume Exit_btn_shift_Click
End Sub