erreur de compilation sous access 97

erreur de compilation sous access 97 - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 03-08-2005 à 13:31:22   

Reply

Marsh Posté le 03-08-2005 à 13:56:28    

adil211 a écrit :

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


il doit te manquer une accollade fermante, un end ou un next ou autre...

Reply

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...

Reply

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...

Reply

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

Reply

Marsh Posté le 03-08-2005 à 16:34:20    

alors?

Reply

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

Reply

Marsh Posté le 05-08-2005 à 14:00:17    

le probleme est resolu
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed