Sub Create_Tables()
DoCmd.RunSQL "CREATE TABLE Departement(" & _
"Id_Departement COUNTER," & _
"nom VARCHAR(50)," & _
"PRIMARY KEY(Id_Departement)" & _
");"
DoCmd.RunSQL "CREATE TABLE membre(" & _
"Id_membre COUNTER," & _
"nom VARCHAR(50) NOT NULL," & _
"email VARCHAR(50)," & _
"dtn DATE," & _
"mdp VARCHAR(50)," & _
"Id_Departement INT NOT NULL," & _
"PRIMARY KEY(Id_membre)," & _
"FOREIGN KEY(Id_Departement) REFERENCES Departement(Id_Departement)" & _
");"
DoCmd.RunSQL "CREATE TABLE fournisseur(" & _
"Id_fournisseur COUNTER," & _
"nom VARCHAR(50)," & _
"manager VARCHAR(50)," & _
"email VARCHAR(50)," & _
"adresse VARCHAR(50)," & _
"PRIMARY KEY(Id_fournisseur)" & _
");"
DoCmd.RunSQL "CREATE TABLE categorie(" & _
"Id_categorie COUNTER," & _
"nomcategorie VARCHAR(50)," & _
"PRIMARY KEY(Id_categorie)" & _
");"
DoCmd.RunSQL "CREATE TABLE article(" & _
"Id_article COUNTER," & _
"nom VARBINARY(50)," & _
"unite VARCHAR(50)," & _
"Id_categorie INT NOT NULL," & _
"PRIMARY KEY(Id_article)," & _
"FOREIGN KEY(Id_categorie) REFERENCES categorie(Id_categorie)" & _
");"
DoCmd.RunSQL "CREATE TABLE stock(" & _
"Id_stock COUNTER," & _
"quantite INT," & _
"datestock DATE," & _
"Id_fournisseur INT NOT NULL," & _
"Id_article INT NOT NULL," & _
"PRIMARY KEY(Id_stock)," & _
"FOREIGN KEY(Id_fournisseur) REFERENCES fournisseur(Id_fournisseur)," & _
"FOREIGN KEY(Id_article) REFERENCES article(Id_article)" & _
");"
DoCmd.RunSQL "CREATE TABLE articleprix(" & _
"Id_articleprix COUNTER," & _
"prixht DOUBLE," & _
"dateprix DATE," & _
"tva DOUBLE," & _
"Id_fournisseur INT NOT NULL," & _
"Id_article INT NOT NULL," & _
"PRIMARY KEY(Id_articleprix)," & _
"FOREIGN KEY(Id_fournisseur) REFERENCES fournisseur(Id_fournisseur)," & _
"FOREIGN KEY(Id_article) REFERENCES article(Id_article)" & _
");"
DoCmd.RunSQL "CREATE TABLE proformat(" & _
"Id_proformat COUNTER," & _
"dateproformat DATE," & _
"quantite DOUBLE," & _
"prixunitaire DOUBLE," & _
"tva DOUBLE," & _
"Id_fournisseur INT NOT NULL," & _
"Id_article INT NOT NULL," & _
"PRIMARY KEY(Id_proformat)," & _
"FOREIGN KEY(Id_fournisseur) REFERENCES fournisseur(Id_fournisseur)," & _
"FOREIGN KEY(Id_article) REFERENCES article(Id_article)" & _
");"
DoCmd.RunSQL "CREATE TABLE besoin(" & _
"Id_besoin COUNTER," & _
"datebesoin DATE," & _
"quantite DOUBLE," & _
"Id_Departement INT NOT NULL," & _
"Id_article INT NOT NULL," & _
"PRIMARY KEY(Id_besoin)," & _
"FOREIGN KEY(Id_Departement) REFERENCES Departement(Id_Departement)," & _
"FOREIGN KEY(Id_article) REFERENCES article(Id_article)" & _
");"
End Sub
