Erreur de compilationRésolu

Question

Bonjour, 

Alors voil&#224;, en faite j'ai une erreur de compilation dans mon code VBA (access). J'avoue que c'est la premi&#232;re fois que je programme en VBA. L'erreur est la suivante : 
   "Erreur de compilation : 
      Instruction incorrect &#224; l'ext&#233;rieur d'un bloc de type. "

Est-ce que vous pouvais me dire a quoi correspond cette erreur SVP ?

Voici mon code : 

Private Sub Ajouter_Bouton_Click()  'quand je compile ca met une fl&#232;che jaune devant cette ligne


On Error GoTo Err_Ajouter_Bouton_Click


    id_action_en_cours As Long  'et ca me surligne cette ligne
    id_action_en_cours = Id_Action
    
    num_action As Integer
    num_action = Act_Num_Action
    
    intitule_action As Integer
    intitule_action = Act_Intitule
    
    DoCmd.GoToRecord , , acNewRec
    
    Id_Action = id_action_en_cours
    Act_Num_Action = num_action
    Act_Intitule = intitule_action


Exit_Ajouter_Bouton_Click:
    Exit Sub


Err_Ajouter_Bouton_Click:
    MsgBox Err.Description
    Resume Exit_Ajouter_Bouton_Click
    
End Sub

Je vous remercie par avance  .

mortalino · Answer

Salut,

Il faut mettre " Dim " devant id_action_en_cours As Long 

@ ++

  Mortalino

cs_tenthor · Answer

Merci ca marche super !

mortalino · Answer

Je t'en prie !

Pour infos, si tu veux r&#233;cup&#233;rer la valeur de id_action_en_cours dans une autre proc&#233;dure du m&#234;me module, place tout en haut du module, dans les d&#233;clarations : Public id_action_en_cours As Long
Comme &#231;a, t'as la valeur dans toutes tes proc&#233;dures, (en plus de Ajouter_Bouton_Click)

@ ++

  Mortalino

cs_tenthor · Answer

Encore mieux ! 

Merci beaucoup

Erreur de compilation

4 réponses

Discussions similaires