Question : Foyer de commutation d'une commande de forme à l'autre dans l'accès

En courant le bloc de code ci-dessous, je reçois un message d'erreur (voir le projectile d'écran ci-joint). Est-ce que n'importe qui a un travail possible autour pour ceci ?  Merci ! class= " lineNumbers " >

1 de >

Private " codeBody " de " prettyprint " (KeyAscii comme nombre entier)
Bouton de commande de mise à jour de clic de MsgBox « pour exécuter des changements.  », vbExclamation + vbOKOnly, « restriction de champ »
Me.cm dUpdateCode.SetFocus
Sous-marin d'extrémité
class= >

 de 

  
  class= " lastRow de 

    >Attachments de " nom " de class= de 

    class= " valeur " de 

>