cs_amita
Messages postés151Date d'inscriptionsamedi 17 juillet 2004StatutMembreDernière intervention11 mai 2012
-
10 mars 2011 à 23:03
cs_amita
Messages postés151Date d'inscriptionsamedi 17 juillet 2004StatutMembreDernière intervention11 mai 2012
-
11 mars 2011 à 14:35
mes chers amis, voila depuis un moment j'essaye de résoudre ce problème mais helas sans résultat :
j'arrive avec ce code a créer une base de donnée access avec succés
Dim Wks As Workspace
Dim BdCreer As Database
Dim Tabf As TableDef
Dim Fld As Field
'Dim RsCreer As Recordset
Set Wks = DBEngine.Workspaces(0)
Set BdCreer = Wks.CreateDatabase(App.Path & "\acc_Temp.mdb", dbLangGeneral)
Set Tabf = BdCreer.CreateTableDef("Table1")
Set Fld = Tabf.CreateField("nom", dbText, 255)
Tabf.Fields.Append Fld
Set Fld = Tabf.CreateField("lien", dbText, 255)
Tabf.Fields.Append Fld
BdCreer.TableDefs.Append Tabf mais j'arrive pas a changer la propriéte de "Chaine vide autorisée" vers OUI
la même chose avec la propriéte : "Compression unicode" vers Oui