le code ci-après me génère une erreur : Base de donnée existe déjà ??
mais dans la liste de mes tables je ne la retrouve pas, comment dois je
faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis
Pascal
---------------------------------------
'vérification de l'existence de la table d'imprimante
If Not ExistTable("tbPrtList") Then
'il faut la créer
Dim MaBase As Database, MaTableDéf As TableDef
Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables",
dbLangGeneral)
Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs
With MaTableDéf
.Fields.Append .CreateField("no_Prt", dbInteger)
.Fields.Append .CreateField("tx_PrtNom", dbText, 255)
.Fields.Append .CreateField("tx_PrtPort", dbText, 255)
.Fields.Append .CreateField("tx_PrtDriver", dbText, 255)
.Fields.Append .CreateField("ts_Selection", dbBoolean)
End With
MaBase.TableDefs.Append MaTableDéf
Set MaBase = Nothing
Set MaTableDéf = Nothing
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere
Bonjour
En fait, tu vérifies l'existence d'une table et si elle n'existe pas, tu veux la créer... Le problème c'est que dans ton code, tu essais de créer la base de donnée également avant de créer la table : Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral)
Donc, remplaces cette ligne par la suivante : Set MaBase = DBEngine.Workspaces(0).OpenDatabase("Base et Tables", dbLangGeneral)
Ca devrait mieux fonctionner...
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
bonsoir, je crois que je m'emmêle les pinceaux!
le code ci-après me génère une erreur : Base de donnée existe déjà ?? mais dans la liste de mes tables je ne la retrouve pas, comment dois je faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis Pascal
--------------------------------------- 'vérification de l'existence de la table d'imprimante If Not ExistTable("tbPrtList") Then 'il faut la créer Dim MaBase As Database, MaTableDéf As TableDef Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral) Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs With MaTableDéf .Fields.Append .CreateField("no_Prt", dbInteger) .Fields.Append .CreateField("tx_PrtNom", dbText, 255) .Fields.Append .CreateField("tx_PrtPort", dbText, 255) .Fields.Append .CreateField("tx_PrtDriver", dbText, 255) .Fields.Append .CreateField("ts_Selection", dbBoolean) End With
MaBase.TableDefs.Append MaTableDéf Set MaBase = Nothing Set MaTableDéf = Nothing
Bonjour
En fait, tu vérifies l'existence d'une table et si elle n'existe pas, tu
veux la créer...
Le problème c'est que dans ton code, tu essais de créer la base de donnée
également avant de créer la table :
Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables",
dbLangGeneral)
Donc, remplaces cette ligne par la suivante :
Set MaBase = DBEngine.Workspaces(0).OpenDatabase("Base et Tables",
dbLangGeneral)
Ca devrait mieux fonctionner...
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------
bonsoir,
je crois que je m'emmêle les pinceaux!
le code ci-après me génère une erreur : Base de donnée existe déjà ??
mais dans la liste de mes tables je ne la retrouve pas, comment dois je
faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis
Pascal
---------------------------------------
'vérification de l'existence de la table d'imprimante
If Not ExistTable("tbPrtList") Then
'il faut la créer
Dim MaBase As Database, MaTableDéf As TableDef
Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables",
dbLangGeneral)
Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs
With MaTableDéf
.Fields.Append .CreateField("no_Prt", dbInteger)
.Fields.Append .CreateField("tx_PrtNom", dbText, 255)
.Fields.Append .CreateField("tx_PrtPort", dbText, 255)
.Fields.Append .CreateField("tx_PrtDriver", dbText, 255)
.Fields.Append .CreateField("ts_Selection", dbBoolean)
End With
MaBase.TableDefs.Append MaTableDéf
Set MaBase = Nothing
Set MaTableDéf = Nothing
En fait, tu vérifies l'existence d'une table et si elle n'existe pas, tu veux la créer... Le problème c'est que dans ton code, tu essais de créer la base de donnée également avant de créer la table : Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral)
Donc, remplaces cette ligne par la suivante : Set MaBase = DBEngine.Workspaces(0).OpenDatabase("Base et Tables", dbLangGeneral)
Ca devrait mieux fonctionner...
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
bonsoir, je crois que je m'emmêle les pinceaux!
le code ci-après me génère une erreur : Base de donnée existe déjà ?? mais dans la liste de mes tables je ne la retrouve pas, comment dois je faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis Pascal
--------------------------------------- 'vérification de l'existence de la table d'imprimante If Not ExistTable("tbPrtList") Then 'il faut la créer Dim MaBase As Database, MaTableDéf As TableDef Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral) Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs With MaTableDéf .Fields.Append .CreateField("no_Prt", dbInteger) .Fields.Append .CreateField("tx_PrtNom", dbText, 255) .Fields.Append .CreateField("tx_PrtPort", dbText, 255) .Fields.Append .CreateField("tx_PrtDriver", dbText, 255) .Fields.Append .CreateField("ts_Selection", dbBoolean) End With
MaBase.TableDefs.Append MaTableDéf Set MaBase = Nothing Set MaTableDéf = Nothing
Pascal
hello Jessy Sempere, encore une fois présent pour réparer mes erreurs! j'apprécie beaucoup merci à toi Pascal
"Jessy Sempere" a écrit dans le message de news:
Bonjour
En fait, tu vérifies l'existence d'une table et si elle n'existe pas, tu veux la créer... Le problème c'est que dans ton code, tu essais de créer la base de donnée également avant de créer la table : Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral)
Donc, remplaces cette ligne par la suivante : Set MaBase = DBEngine.Workspaces(0).OpenDatabase("Base et Tables", dbLangGeneral)
Ca devrait mieux fonctionner...
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
bonsoir, je crois que je m'emmêle les pinceaux!
le code ci-après me génère une erreur : Base de donnée existe déjà ?? mais dans la liste de mes tables je ne la retrouve pas, comment dois je faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis Pascal
--------------------------------------- 'vérification de l'existence de la table d'imprimante If Not ExistTable("tbPrtList") Then 'il faut la créer Dim MaBase As Database, MaTableDéf As TableDef Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral) Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs With MaTableDéf .Fields.Append .CreateField("no_Prt", dbInteger) .Fields.Append .CreateField("tx_PrtNom", dbText, 255) .Fields.Append .CreateField("tx_PrtPort", dbText, 255) .Fields.Append .CreateField("tx_PrtDriver", dbText, 255) .Fields.Append .CreateField("ts_Selection", dbBoolean) End With
MaBase.TableDefs.Append MaTableDéf Set MaBase = Nothing Set MaTableDéf = Nothing
hello Jessy Sempere,
encore une fois présent pour réparer mes erreurs!
j'apprécie beaucoup
merci à toi
Pascal
"Jessy Sempere" <jessy.sempere@prg.sncf.fr> a écrit dans le message de news:
8C38A16C-44AD-4010-B5A2-4A0E3AE9E907@microsoft.com...
Bonjour
En fait, tu vérifies l'existence d'une table et si elle n'existe pas, tu
veux la créer...
Le problème c'est que dans ton code, tu essais de créer la base de donnée
également avant de créer la table :
Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables",
dbLangGeneral)
Donc, remplaces cette ligne par la suivante :
Set MaBase = DBEngine.Workspaces(0).OpenDatabase("Base et Tables",
dbLangGeneral)
Ca devrait mieux fonctionner...
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------
bonsoir,
je crois que je m'emmêle les pinceaux!
le code ci-après me génère une erreur : Base de donnée existe déjà ??
mais dans la liste de mes tables je ne la retrouve pas, comment dois je
faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis
Pascal
---------------------------------------
'vérification de l'existence de la table d'imprimante
If Not ExistTable("tbPrtList") Then
'il faut la créer
Dim MaBase As Database, MaTableDéf As TableDef
Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables",
dbLangGeneral)
Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs
With MaTableDéf
.Fields.Append .CreateField("no_Prt", dbInteger)
.Fields.Append .CreateField("tx_PrtNom", dbText, 255)
.Fields.Append .CreateField("tx_PrtPort", dbText, 255)
.Fields.Append .CreateField("tx_PrtDriver", dbText, 255)
.Fields.Append .CreateField("ts_Selection", dbBoolean)
End With
MaBase.TableDefs.Append MaTableDéf
Set MaBase = Nothing
Set MaTableDéf = Nothing
hello Jessy Sempere, encore une fois présent pour réparer mes erreurs! j'apprécie beaucoup merci à toi Pascal
"Jessy Sempere" a écrit dans le message de news:
Bonjour
En fait, tu vérifies l'existence d'une table et si elle n'existe pas, tu veux la créer... Le problème c'est que dans ton code, tu essais de créer la base de donnée également avant de créer la table : Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral)
Donc, remplaces cette ligne par la suivante : Set MaBase = DBEngine.Workspaces(0).OpenDatabase("Base et Tables", dbLangGeneral)
Ca devrait mieux fonctionner...
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
bonsoir, je crois que je m'emmêle les pinceaux!
le code ci-après me génère une erreur : Base de donnée existe déjà ?? mais dans la liste de mes tables je ne la retrouve pas, comment dois je faire pour quel apparaisse dans la liste de mes tables?
merci de bien vouloir me donner vos avis Pascal
--------------------------------------- 'vérification de l'existence de la table d'imprimante If Not ExistTable("tbPrtList") Then 'il faut la créer Dim MaBase As Database, MaTableDéf As TableDef Set MaBase = DBEngine.Workspaces(0).CreateDatabase("Base et Tables", dbLangGeneral) Set MaTableDéf = MaBase.CreateTableDef("tbPrtList")
' 'Placer les champs With MaTableDéf .Fields.Append .CreateField("no_Prt", dbInteger) .Fields.Append .CreateField("tx_PrtNom", dbText, 255) .Fields.Append .CreateField("tx_PrtPort", dbText, 255) .Fields.Append .CreateField("tx_PrtDriver", dbText, 255) .Fields.Append .CreateField("ts_Selection", dbBoolean) End With
MaBase.TableDefs.Append MaTableDéf Set MaBase = Nothing Set MaTableDéf = Nothing
