Access 2000 créer une table avec vb

Je savais faire avec access 97 mais avec access 2000 je viens de tomber
un un problème.
Je voudrais écrire un programme qui crée une table dans la base de
donnée en cours.
Je suis allé sur l'aide de vb qui m'a proposé ce qui suit :

Sub CreateTableX2()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase(".mdb")
' Create a table with three fields and a unique
' index made up of all three fields.
dbs.Execute "CREATE TABLE MyTable " _
& "(FirstName CHAR, LastName CHAR, " _
& "[DateOfBirth] DATETIME, " _
& "CONSTRAINT MyTableConstraint UNIQUE " _
& "(FirstName, LastName, [DateOfBirth]));"
dbs.Close
End Sub

Or à la compilation
Dim dbs As Database
génère une erreur "type défini par l'utilisateur non défini."

Par ailleurs je ne sais pas dans access 2000 désigner la base de donnée
en cours. (avec access97 c'était curretDB)

Dans l'aide de vb je n'ai pas trouvé ces informations.

Quelqu'un peut-il me les donner et/ou m'indiquer où je peux les trouver?

Merci

Bonjour,

1-Charges la référence Microsoft DAO 3.6 Object Library dans ton projet (Menu Outils|Références dans l'interface VB)

2-Pour faire référence à la bd dans laquelle tu travailles:
Set dbs = CurrentDb
Faire un Set dbs = Nothing après l'instruction dbs.Close

Rem :
Ta création de table se fait par SQL.
ici un exemple complet de création de table via DAO : http://officesystem.access.free.fr/vba/table_nouvelle.htm

Je savais faire avec access 97 mais avec access 2000 je viens de tomber un un problème.
Je voudrais écrire un programme qui crée une table dans la base de donnée en cours.
Je suis allé sur l'aide de vb qui m'a proposé ce qui suit :

Sub CreateTableX2()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase(".mdb")
' Create a table with three fields and a unique
' index made up of all three fields.
dbs.Execute "CREATE TABLE MyTable " _
& "(FirstName CHAR, LastName CHAR, " _
& "[DateOfBirth] DATETIME, " _
& "CONSTRAINT MyTableConstraint UNIQUE " _
& "(FirstName, LastName, [DateOfBirth]));"
dbs.Close
End Sub

Or à la compilation
Dim dbs As Database
génère une erreur "type défini par l'utilisateur non défini."

Par ailleurs je ne sais pas dans access 2000 désigner la base de donnée en cours. (avec access97 c'était curretDB)

Dans l'aide de vb je n'ai pas trouvé ces informations.

Quelqu'un peut-il me les donner et/ou m'indiquer où je peux les trouver?

Merci

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

çà existe encore Rem ?? je me souviens de çà en vb avec des No de lignes :o))

Euh oui,
Rem ... iniscence !!! ;-)

Mais bon, puisque le forum a basculé en environnement SMS, m'suis adapT 100 tarD <:-)) (asap diraient certains)

A12c4 Pierre

çà existe encore Rem ?? je me souviens de çà en vb avec des No de lignes :o))

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

je viens de faire l'essai, et oui, rem met bien la ligne en commentaire

[...]
Et que dire des instructions facultatives que l'on a complètement
oubliées du genre de Let :
Dim intA As Integer
Let A = 100

Bonjour,

1-Charges la référence Microsoft DAO 3.6 Object Library dans ton pr ojet
(Menu Outils|Références dans l'interface VB)

2-Pour faire référence à la bd dans laquelle tu travailles:
Set dbs = CurrentDb
Faire un Set dbs = Nothing après l'instruction dbs.Close

Rem :
Ta création de table se fait par SQL.
ici un exemple complet de création de table via DAO :
http://officesystem.access.free.fr/vba/table_nouvelle.htm

Merci. Ca marche impeccablement.

Bonjour,

1-Charges la référence Microsoft DAO 3.6 Object Library dans ton
projet (Menu Outils|Références dans l'interface VB)

2-Pour faire référence à la bd dans laquelle tu travailles:
Set dbs = CurrentDb
Faire un Set dbs = Nothing après l'instruction dbs.Close

Rem :
Ta création de table se fait par SQL.
ici un exemple complet de création de table via DAO :
http://officesystem.access.free.fr/vba/table_nouvelle.htm

Merci. Ca marche impeccablement.

Je suppose que je serai encore amené à poser des questions liées à mon
passage de 97 à 2000. Y a-t-il autant de pb pour le passage de 2000 à
2003 ?
Encore merci