Sub Create_Tables()

DoCmd.RunSQL "CREATE TABLE SEXE(" & _
   "CDSEXE VARCHAR(1)," & _
   "LBSEXE VARCHAR(7) NOT NULL," & _
   "PRIMARY KEY(CDSEXE)" & _
");"   

DoCmd.RunSQL "CREATE TABLE ENSEIGNANT(" & _
   "NUMENS COUNTER," & _
   "NOMENS VARCHAR(20) NOT NULL," & _
   "GRADE VARCHAR(4) NOT NULL," & _
   "ANCIEN BYTE NOT NULL," & _
   "PRIMARY KEY(NUMENS)" & _
");"   

DoCmd.RunSQL "CREATE TABLE ETUDIANT(" & _
   "NUMETU COUNTER," & _
   "NOMETU VARCHAR(20) NOT NULL," & _
   "DTNAISS DATE," & _
   "CDSEXE VARCHAR(1) NOT NULL," & _
   "PRIMARY KEY(NUMETU)," & _
   "FOREIGN KEY(CDSEXE) REFERENCES SEXE(CDSEXE)" & _
");"   

DoCmd.RunSQL "CREATE TABLE MATIERE(" & _
   "NUMAT BYTE," & _
   "NOMAT VARCHAR(20) NOT NULL," & _
   "COEFF BYTE NOT NULL," & _
   "NUMENS INT NOT NULL," & _
   "PRIMARY KEY(NUMAT)," & _
   "FOREIGN KEY(NUMENS) REFERENCES ENSEIGNANT(NUMENS)" & _
");"   

DoCmd.RunSQL "CREATE TABLE NOTES(" & _
   "NUMETU INT," & _
   "NUMAT BYTE," & _
   "NOTE REAL NOT NULL," & _
   "PRIMARY KEY(NUMETU, NUMAT)," & _
   "FOREIGN KEY(NUMETU) REFERENCES ETUDIANT(NUMETU)," & _
   "FOREIGN KEY(NUMAT) REFERENCES MATIERE(NUMAT)" & _
");"   

End Sub