erreur de compilation sous access 97 - VB/VBA/VBS - Programmation
Marsh Posté le 03-08-2005 à 13:56:28
| adil211 a écrit : bonjour a tous,  | 
 
il doit te manquer une accollade fermante, un end ou un next ou autre...
Marsh Posté le 03-08-2005 à 14:06:47
le script est géneré automatiquement par power AMC lors de la réalisation du MCD. 
donc c pas un probleme de accollade ou end...
Marsh Posté le 03-08-2005 à 14:19:08
Le mieux resterait de nous montrer ton code, car ca me parait presque évident que ton probleme est du à une fonction non fermée...
Marsh Posté le 03-08-2005 à 14:24:57
' ============================================================ 
'   Nom de la base   :  MODELE_1 
'   Nom de SGBD      :  Microsoft Access 95 & 97 
'   Date de création :  03/08/2000  08:30 
' ============================================================ 
 
 
    ' ============================================================ 
    '   Table : SKCOMPETENCE 
    ' ============================================================ 
 
    Begin Table  SKCOMPETENCE 
       Name = Compétence 
       Begin Column CODE_COMPETENCE 
          Name = Code_compétence 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column LIBELLE_COMPETENCE 
          Name = libellé_competence 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NIVEAU_COMPETENCE 
          Name = Niveau_Compétence 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Table : SKDEMANDEUR 
    ' ============================================================ 
    Begin Table  SKDEMANDEUR 
       Name = Demandeur 
       Begin Column REF_DEMANDEUR 
          Name = REF_DEMANDEUR 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column MAIL 
          Name = MAIL 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column SEXE 
          Name = SEXE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column CIVILITE 
          Name = Civilité 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NOM 
          Name = NOM 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NOMJEUNEFILLE 
          Name = NOMJEUNEFILLE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column PRENOM 
          Name = PRENOM 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column DATEISSANCE 
          Name = DateNaissance 
          DataType = DateTime 
          Length = 0 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NATIONNALITE 
          Name = Nationnalité 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column ADRESSE 
          Name = ADRESSE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column TEL 
          Name = Tél 
          DataType = LongInteger 
          Length = 0 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column CIN 
          Name = CIN 
          DataType = Text(30) 
          Length = 30 
          ServerRule      = CIN is null or () 
          OrdinalNumber = 0 
       End Column 
       Begin Column SITUATIONFAMILIALE 
          Name = SITUATIONFAMILIALE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Table : SKDIPLOME 
    ' ============================================================ 
    Begin Table  SKDIPLOME 
       Name = Diplome 
       Begin Column CODE_DIPLOME 
          Name = CODE_DIPLOME 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column DATE_D_OBTENTION 
          Name = Date_d           'obtention 
          DataType = DateTime 
          Length = 0 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column OPTION 
          Name            = option 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column MENTION 
          Name = MENTION 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NIVEAU_COMPETENCE 
          Name = Niveau_Compétence 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column ECOLE 
          Name = ECOLE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column OBSERVATIONS_DEMANDE 
          Name = OBSERVATIONS_DEMANDE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Table : SKPOSTE 
    ' ============================================================ 
    Begin Table  SKPOSTE 
       Name = Poste 
       Begin Column NUM_POSTE 
          Name = NUM_POSTE 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column LIBELLE_POSTE 
          Name = libellé_poste 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column ETAT_POSTE 
          Name = état_poste 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Table : SKSERVICE 
    ' ============================================================ 
    Begin Table  SKSERVICE 
       Name = Service 
       Begin Column NUM_SERVICE 
          Name = NUM_SERVICE 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NOM_SERVICE 
          Name = NOM_SERVICE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column ADRESSE_SERVICE 
          Name = ADRESSE_SERVICE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Table : SKEXPERIENCEPROFESSIONNELLE 
    ' ============================================================ 
    Begin Table  SKEXPERIENCEPROFESSIONNELLE 
       Name = ExperienceProfessionnelle 
       Begin Column CODE_EXPERIENCE 
          Name = Code_Expérience 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column TYPEEXPERIENCE 
          Name = TYPEEXPERIENCE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column DATEDEBUT 
          Name = DATEDEBUT 
          DataType = DateTime 
          Length = 0 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column DATEFIN 
          Name = DATEFIN 
          DataType = DateTime 
          Length = 0 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column POSTEOCCPE 
          Name = PosteOccpé 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column ETABLISSEMENT 
          Name = ETABLISSEMENT 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column EXPERIENCEBANCAIRE 
          Name = EXPERIENCEBANCAIRE 
          DataType        = Integer 
          Length = 1 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NOMCONTACT 
          Name = NOMCONTACT 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column OBSERVATIONS_DEMANDE 
          Name = OBSERVATIONS_DEMANDE 
          DataType = Text(30) 
          Length = 30 
          ServerRule      = OBSERVATIONS_DEMANDE is null or () 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Table : SKDEMANDE 
    ' ============================================================ 
    Begin Table  SKDEMANDE 
       Name = Demande 
       Begin Column REF_DEM 
          Name = REF_DEM 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column REF_DEMANDEUR 
          Name = REF_DEMANDEUR 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NUM_POSTE 
          Name = NUM_POSTE 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column DATE_DEM 
          Name = DATE_DEM 
          DataType = DateTime 
          Length = 0 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column OBJET 
          Name = OBJET 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column TYPE_DEMANDE 
          Name = TYPE_DEMANDE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column OBSERVATIONS_DEMANDE 
          Name = OBSERVATIONS_DEMANDE 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column ETAT_DEMANDE 
          Name = état_Demande 
          DataType = Text(30) 
          Length = 30 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Index : FAIRE_FK 
    ' ============================================================ 
    Begin Index FAIRE_FK 
       Table = SKDEMANDE 
       Foreign = foreignkey 
     
       Field = REF_DEMANDEUR 
    End Index 
 
    ' ============================================================ 
    '   Index : POSTULER_FK 
    ' ============================================================ 
    Begin Index POSTULER_FK 
       Table = SKDEMANDE 
       Foreign = foreignkey 
     
       Field = NUM_POSTE 
    End Index 
 
    ' ============================================================ 
    '   Table : SKPOSSEDER 
    ' ============================================================ 
    Begin Table  SKPOSSEDER 
       Name = Posséder 
       Begin Column REF_DEMANDEUR 
          Name = REF_DEMANDEUR 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column CODE_COMPETENCE 
          Name = Code_compétence 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Index : LIEN_95_FK 
    ' ============================================================ 
    Begin Index LIEN_95_FK 
       Table = SKPOSSEDER 
       Foreign = foreignkey 
     
       Field = REF_DEMANDEUR 
    End Index 
 
    ' ============================================================ 
    '   Index : LIEN_96_FK 
    ' ============================================================ 
    Begin Index LIEN_96_FK 
       Table = SKPOSSEDER 
       Foreign = foreignkey 
     
       Field = CODE_COMPETENCE 
    End Index 
 
    ' ============================================================ 
    '   Table : SKAVOIR 
    ' ============================================================ 
    Begin Table  SKAVOIR 
       Name = avoir 
       Begin Column REF_DEMANDEUR 
          Name = REF_DEMANDEUR 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column CODE_DIPLOME 
          Name = CODE_DIPLOME 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Index : LIEN_97_FK 
    ' ============================================================ 
    Begin Index LIEN_97_FK 
       Table = SKAVOIR 
       Foreign = foreignkey 
     
       Field = REF_DEMANDEUR 
    End Index 
 
    ' ============================================================ 
    '   Index : LIEN_98_FK 
    ' ============================================================ 
    Begin Index LIEN_98_FK 
       Table = SKAVOIR 
       Foreign = foreignkey 
     
       Field = CODE_DIPLOME 
    End Index 
 
    ' ============================================================ 
    '   Table : SKETRE 
    ' ============================================================ 
    Begin Table  SKETRE 
       Name = Etre 
       Begin Column NUM_POSTE 
          Name = NUM_POSTE 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column NUM_SERVICE 
          Name = NUM_SERVICE 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Index : LIEN_99_FK 
    ' ============================================================ 
    Begin Index LIEN_99_FK 
       Table = SKETRE 
       Foreign = foreignkey 
     
       Field = NUM_POSTE 
    End Index 
 
    ' ============================================================ 
    '   Index : LIEN_100_FK 
    ' ============================================================ 
    Begin Index LIEN_100_FK 
       Table = SKETRE 
       Foreign = foreignkey 
     
       Field = NUM_SERVICE 
    End Index 
 
    ' ============================================================ 
    '   Table : SKPOSSEDE 
    ' ============================================================ 
    Begin Table  SKPOSSEDE 
       Name = possede 
       Begin Column REF_DEMANDEUR 
          Name = REF_DEMANDEUR 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
       Begin Column CODE_EXPERIENCE 
          Name = Code_Expérience 
          DataType = Text(5) 
          Length = 5 
          Mandatory = YES 
          OrdinalNumber = 0 
       End Column 
    End Table 
 
    ' ============================================================ 
    '   Index : LIEN_101_FK 
    ' ============================================================ 
    Begin Index LIEN_101_FK 
       Table = SKPOSSEDE 
       Foreign = foreignkey 
     
       Field = REF_DEMANDEUR 
    End Index 
 
    ' ============================================================ 
    '   Index : LIEN_102_FK 
    ' ============================================================ 
    Begin Index LIEN_102_FK 
       Table = SKPOSSEDE 
       Foreign = foreignkey 
     
       Field = CODE_EXPERIENCE 
    End Index 
 
     
    ' ============================================================ 
    '   Référence : FAIRE 
    ' ============================================================ 
    Begin Reference FAIRE 
       PrimaryTable = SKDEMANDEUR 
       ForeignTable = SKDEMANDE 
       Begin Join 
          PrimaryColumn = REF_DEMANDEUR 
          ForeignColumn = REF_DEMANDEUR 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : POSTULER 
    ' ============================================================ 
    Begin Reference POSTULER 
       PrimaryTable = SKPOSTE 
       ForeignTable = SKDEMANDE 
       Begin Join 
          PrimaryColumn = NUM_POSTE 
          ForeignColumn = NUM_POSTE 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_95 
    ' ============================================================ 
    Begin Reference LIEN_95 
       PrimaryTable = SKDEMANDEUR 
       ForeignTable = SKPOSSEDER 
       Begin Join 
          PrimaryColumn = REF_DEMANDEUR 
          ForeignColumn = REF_DEMANDEUR 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_96 
    ' ============================================================ 
    Begin Reference LIEN_96 
       PrimaryTable = SKCOMPETENCE 
       ForeignTable = SKPOSSEDER 
       Begin Join 
          PrimaryColumn = CODE_COMPETENCE 
          ForeignColumn = CODE_COMPETENCE 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_97 
    ' ============================================================ 
    Begin Reference LIEN_97 
       PrimaryTable = SKDEMANDEUR 
       ForeignTable = SKAVOIR 
       Begin Join 
          PrimaryColumn = REF_DEMANDEUR 
          ForeignColumn = REF_DEMANDEUR 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_98 
    ' ============================================================ 
    Begin Reference LIEN_98 
       PrimaryTable = SKDIPLOME 
       ForeignTable = SKAVOIR 
       Begin Join 
          PrimaryColumn = CODE_DIPLOME 
          ForeignColumn = CODE_DIPLOME 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_99 
    ' ============================================================ 
    Begin Reference LIEN_99 
       PrimaryTable = SKPOSTE 
       ForeignTable = SKETRE 
       Begin Join 
          PrimaryColumn = NUM_POSTE 
          ForeignColumn = NUM_POSTE 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_100 
    ' ============================================================ 
    Begin Reference LIEN_100 
       PrimaryTable = SKSERVICE 
       ForeignTable = SKETRE 
       Begin Join 
          PrimaryColumn = NUM_SERVICE 
          ForeignColumn = NUM_SERVICE 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_101 
    ' ============================================================ 
    Begin Reference LIEN_101 
       PrimaryTable = SKDEMANDEUR 
       ForeignTable = SKPOSSEDE 
       Begin Join 
          PrimaryColumn = REF_DEMANDEUR 
          ForeignColumn = REF_DEMANDEUR 
       End Join 
    End Reference 
     
    ' ============================================================ 
    '   Référence : LIEN_102 
    ' ============================================================ 
    Begin Reference LIEN_102 
       PrimaryTable = SKEXPERIENCEPROFESSIONNELLE 
       ForeignTable = SKPOSSEDE 
       Begin Join 
          PrimaryColumn = CODE_EXPERIENCE 
          ForeignColumn = CODE_EXPERIENCE 
       End Join 
    End Reference 
Marsh Posté le 04-08-2005 à 12:41:07
quelqu'un peut me repondre, je suis vraiment bloqué a cause de cette erreur. 
 
merci d'avance
Marsh Posté le 03-08-2005 à 13:31:22
bonjour a tous,
je suis en stage de programmation,j'effectue une application aui permet de gérer la réception des demandes d'embauche en VBA.
quand je compile le script de creation de base de données sous access 97 j'ai le message suivant:
erreur de compilation
attendu:fin d'instruction
merci de me repondre le plus vite possible