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