CRÉATION DUNE BASE DE DONNÉE

'Module de démarrage

Public Ex As Database
Public T1 As DAO.Recordset
Public Ann As Database
Public TC As DAO.Recordset
Public TF As DAO.Recordset
Public TA As DAO.Recordset
Public RR As DAO.Recordset
Public Sub main()
    Set Ex = OpenDatabase(App.Path & "\exist.mdb")
    Set T1 = Ex.OpenRecordset("t1")
    If T1.RecordCount = 0 Then
        Create.CreateDB
        T1.AddNew
        T1!Create = 1
        T1.Update
        T1.Close
        Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
        Ex.Close
        FrmMenu.Show
    Else
        Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
        FrmMenu.Show
    End If
    
End Sub

'Module de création de BD

Public Sub CreateDB()

    Dim dbNew As DAO.Database
    Dim Tb As TableDef
    Dim f As DAO.Field

    MkDir ("d:\Base Create")
    'crée Base de donnée
    Set dbNew = DBEngine.CreateDatabase("d:\Base Create\Ann.mdb", dbLangGeneral)
    'céation de la table Client
    Set Tb = dbNew.CreateTableDef("Client")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("Cin", dbCurrency, 8)
    .Fields.Append .CreateField("Cin", dbLong, 8)
    .Fields.Append .CreateField("Nom", dbText)
    .Fields.Append .CreateField("Prenom", dbText)
    '.Fields.Append .CreateField("Tel", dbCurrency, 8)
    .Fields.Append .CreateField("Tel", dbLong, 8)
    End With
    dbNew.TableDefs.Append Tb
    
    'céation de la table Fournisseur
    Set Tb = dbNew.CreateTableDef("four")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("Cfour", dbCurrency, 3)
    .Fields.Append .CreateField("Cfour", dbLong, 3)
    .Fields.Append .CreateField("Nom", dbText)
    .Fields.Append .CreateField("Tel", dbCurrency, 8)
    End With
    dbNew.TableDefs.Append Tb
    
    'céation de la table Agendat
    Set Tb = dbNew.CreateTableDef("Agn")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("N°", dbCurrency)
    .Fields.Append .CreateField("N°", dbLong)
    .Fields.Append .CreateField("Date", dbDate)
    .Fields.Append .CreateField("Heure", dbDate)
    .Fields.Append .CreateField("Des", dbText)
    End With
    dbNew.TableDefs.Append Tb
    
    If Not dbNew Is Nothing Then dbNew.Close
End Sub

Télécharger le zip