Bonjours a tous,
Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :
CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )
Quelques explications serait le bienvenue
D'avance merci
Michel
Bonjours a tous,
Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :
CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )
Quelques explications serait le bienvenue
D'avance merci
Michel
Bonjours a tous,
Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :
CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )
Quelques explications serait le bienvenue
D'avance merci
Michel
Bonjour,
Extrait de l'aide d'Access :
Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
Cet exemple crée une nouvelle table nommée ThisTable comportant deux
champs
text.
Sub CreateTableX1()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase(".mdb")
' Create a table with two text fields.
dbs.Execute "CREATE TABLE ThisTable " _
& "(FirstName CHAR, LastName CHAR, " _
dbs.Close
End Sub
Cet exemple crée une nouvelle table nommée MyTable comportant deux champs
text, un champ Date/Time et un index unique composé des trois champs
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
Cet exemple crée une nouvelle table comportant deux champs text et un
champ
integer. Le champ SSN constitue la clé primaire.
Sub CreateTableX3()
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 ^primary
' key.
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName CHAR, LastName CHAR, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"
dbs.Close
End Sub
--
Cordialement,
Gilbert
"Michel B" a écrit dans le message de
news:485a0df8$0$4533$
Bonjours a tous,
Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :
CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )
Quelques explications serait le bienvenue
D'avance merci
Michel
Bonjour,
Extrait de l'aide d'Access :
Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
Cet exemple crée une nouvelle table nommée ThisTable comportant deux
champs
text.
Sub CreateTableX1()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase(".mdb")
' Create a table with two text fields.
dbs.Execute "CREATE TABLE ThisTable " _
& "(FirstName CHAR, LastName CHAR, " _
dbs.Close
End Sub
Cet exemple crée une nouvelle table nommée MyTable comportant deux champs
text, un champ Date/Time et un index unique composé des trois champs
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
Cet exemple crée une nouvelle table comportant deux champs text et un
champ
integer. Le champ SSN constitue la clé primaire.
Sub CreateTableX3()
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 ^primary
' key.
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName CHAR, LastName CHAR, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"
dbs.Close
End Sub
--
Cordialement,
Gilbert
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de
news:485a0df8$0$4533$426a34cc@news.free.fr...
Bonjours a tous,
Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :
CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )
Quelques explications serait le bienvenue
D'avance merci
Michel
Bonjour,
Extrait de l'aide d'Access :
Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
Cet exemple crée une nouvelle table nommée ThisTable comportant deux
champs
text.
Sub CreateTableX1()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase(".mdb")
' Create a table with two text fields.
dbs.Execute "CREATE TABLE ThisTable " _
& "(FirstName CHAR, LastName CHAR, " _
dbs.Close
End Sub
Cet exemple crée une nouvelle table nommée MyTable comportant deux champs
text, un champ Date/Time et un index unique composé des trois champs
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
Cet exemple crée une nouvelle table comportant deux champs text et un
champ
integer. Le champ SSN constitue la clé primaire.
Sub CreateTableX3()
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 ^primary
' key.
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName CHAR, LastName CHAR, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"
dbs.Close
End Sub
--
Cordialement,
Gilbert
"Michel B" a écrit dans le message de
news:485a0df8$0$4533$
Bonjours a tous,
Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
sépare les champs en VBA :
CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
,[Saison] Str )
Quelques explications serait le bienvenue
D'avance merci
Michel
Bonjour Gilbert,
Merci pour ton aide
J'ai fait cela et ça fonctionne bien, jusqu'a "Saison" en revanche "Actif
qui doit être un champ Oui/Non génére une erreur.
Je ne trouve pas dans l'aide la syntaxe a utiliser pour les différents
de champs
Dim dbs As Database
Set dbs = OpenDatabase("C:BaseBase2003.mdb")
dbs.Execute "CREATE TABLE Mutations (N°Adherent LONG, N°Structure
LONG, Saison CHAR, Actif BOOL) "
dbs.Close
Encore merci
Michel
"Gilbert" a écrit dans le message de news:
%
> Bonjour,
>
> Extrait de l'aide d'Access :
> Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
>
> Cet exemple crée une nouvelle table nommée ThisTable comportant deux
> champs
> text.
>
> Sub CreateTableX1()
>
>
> Dim dbs As Database
>
>
> ' Modify this line to include the path to Northwind
>
> ' on your computer.
>
> Set dbs = OpenDatabase(".mdb")
>
>
> ' Create a table with two text fields.
>
> dbs.Execute "CREATE TABLE ThisTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
>
> dbs.Close
>
>
> End Sub
>
>
> Cet exemple crée une nouvelle table nommée MyTable comportant deux
> text, un champ Date/Time et un index unique composé des trois champs
>
> 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
>
>
> Cet exemple crée une nouvelle table comportant deux champs text et un
> champ
> integer. Le champ SSN constitue la clé primaire.
>
> Sub CreateTableX3()
>
>
> 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 ^primary
>
> ' key.
>
> dbs.Execute "CREATE TABLE NewTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
> & "SSN INTEGER CONSTRAINT MyFieldConstraint " _
>
> & "PRIMARY KEY);"
>
>
> dbs.Close
>
>
> End Sub
>
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Michel B" a écrit dans le message de
> news:485a0df8$0$4533$
>>
>> Bonjours a tous,
>>
>> Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
>> sépare les champs en VBA :
>>
>> CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
>> ,[Saison] Str )
>>
>> Quelques explications serait le bienvenue
>>
>> D'avance merci
>> Michel
>>
>>
>
>
Bonjour Gilbert,
Merci pour ton aide
J'ai fait cela et ça fonctionne bien, jusqu'a "Saison" en revanche "Actif
qui doit être un champ Oui/Non génére une erreur.
Je ne trouve pas dans l'aide la syntaxe a utiliser pour les différents
de champs
Dim dbs As Database
Set dbs = OpenDatabase("C:BaseBase2003.mdb")
dbs.Execute "CREATE TABLE Mutations (N°Adherent LONG, N°Structure
LONG, Saison CHAR, Actif BOOL) "
dbs.Close
Encore merci
Michel
"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
%23mqCVKe0IHA.5520@TK2MSFTNGP04.phx.gbl...
> Bonjour,
>
> Extrait de l'aide d'Access :
> Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
>
> Cet exemple crée une nouvelle table nommée ThisTable comportant deux
> champs
> text.
>
> Sub CreateTableX1()
>
>
> Dim dbs As Database
>
>
> ' Modify this line to include the path to Northwind
>
> ' on your computer.
>
> Set dbs = OpenDatabase(".mdb")
>
>
> ' Create a table with two text fields.
>
> dbs.Execute "CREATE TABLE ThisTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
>
> dbs.Close
>
>
> End Sub
>
>
> Cet exemple crée une nouvelle table nommée MyTable comportant deux
> text, un champ Date/Time et un index unique composé des trois champs
>
> 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
>
>
> Cet exemple crée une nouvelle table comportant deux champs text et un
> champ
> integer. Le champ SSN constitue la clé primaire.
>
> Sub CreateTableX3()
>
>
> 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 ^primary
>
> ' key.
>
> dbs.Execute "CREATE TABLE NewTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
> & "SSN INTEGER CONSTRAINT MyFieldConstraint " _
>
> & "PRIMARY KEY);"
>
>
> dbs.Close
>
>
> End Sub
>
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Michel B" <michel_b@libertysurf.fr> a écrit dans le message de
> news:485a0df8$0$4533$426a34cc@news.free.fr...
>>
>> Bonjours a tous,
>>
>> Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
>> sépare les champs en VBA :
>>
>> CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
>> ,[Saison] Str )
>>
>> Quelques explications serait le bienvenue
>>
>> D'avance merci
>> Michel
>>
>>
>
>
Bonjour Gilbert,
Merci pour ton aide
J'ai fait cela et ça fonctionne bien, jusqu'a "Saison" en revanche "Actif
qui doit être un champ Oui/Non génére une erreur.
Je ne trouve pas dans l'aide la syntaxe a utiliser pour les différents
de champs
Dim dbs As Database
Set dbs = OpenDatabase("C:BaseBase2003.mdb")
dbs.Execute "CREATE TABLE Mutations (N°Adherent LONG, N°Structure
LONG, Saison CHAR, Actif BOOL) "
dbs.Close
Encore merci
Michel
"Gilbert" a écrit dans le message de news:
%
> Bonjour,
>
> Extrait de l'aide d'Access :
> Exemples avec CREATE TABLE (instruction) et CONSTRAINT (clause)
>
> Cet exemple crée une nouvelle table nommée ThisTable comportant deux
> champs
> text.
>
> Sub CreateTableX1()
>
>
> Dim dbs As Database
>
>
> ' Modify this line to include the path to Northwind
>
> ' on your computer.
>
> Set dbs = OpenDatabase(".mdb")
>
>
> ' Create a table with two text fields.
>
> dbs.Execute "CREATE TABLE ThisTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
>
> dbs.Close
>
>
> End Sub
>
>
> Cet exemple crée une nouvelle table nommée MyTable comportant deux
> text, un champ Date/Time et un index unique composé des trois champs
>
> 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
>
>
> Cet exemple crée une nouvelle table comportant deux champs text et un
> champ
> integer. Le champ SSN constitue la clé primaire.
>
> Sub CreateTableX3()
>
>
> 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 ^primary
>
> ' key.
>
> dbs.Execute "CREATE TABLE NewTable " _
>
> & "(FirstName CHAR, LastName CHAR, " _
>
> & "SSN INTEGER CONSTRAINT MyFieldConstraint " _
>
> & "PRIMARY KEY);"
>
>
> dbs.Close
>
>
> End Sub
>
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Michel B" a écrit dans le message de
> news:485a0df8$0$4533$
>>
>> Bonjours a tous,
>>
>> Je souhaite créer une table avec 4 champs, mais ne sais pas comment on
>> sépare les champs en VBA :
>>
>> CREATE TABLE ([N°Adherent] LONG , [N°Structure] LONG , [Actif] CBoll
>> ,[Saison] Str )
>>
>> Quelques explications serait le bienvenue
>>
>> D'avance merci
>> Michel
>>
>>
>
>