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
joyeux atchoum
S'lt
A priori tu ne peux pas faire ta mise à defaut via jet, mais en DAO ou
dans l'aide d'acces 97 tu as cet exemple
Sub NouveauChamp( Dim bds As dao.Database, dft As dao.TableDe Dim chp As dao.Fiel
' Retourne une variable Database pointant sur l ' base de données en cours Set bds = CurrentD ' Retourne un objet Tabledef pointant sur une table Employés Set dft = bds.TableDefs!Employé ' Crée un objet Field Set chp = dft.CreateField("Dates de vacances", dbText, 20 ' Définit les propriétés du champ chp.DefaultValue = "10 ' Ajoute chp à la collection Fields
dft.Fields.Append ch Set bds = Nothin End Su
en espérant que ceci puisse t'aide
ja qui ...
S'lt
A priori tu ne peux pas faire ta mise à defaut via jet, mais en DAO ou
dans l'aide d'acces 97 tu as cet exemple
Sub NouveauChamp(
Dim bds As dao.Database, dft As dao.TableDe
Dim chp As dao.Fiel
' Retourne une variable Database pointant sur l
' base de données en cours
Set bds = CurrentD
' Retourne un objet Tabledef pointant sur une table Employés
Set dft = bds.TableDefs!Employé
' Crée un objet Field
Set chp = dft.CreateField("Dates de vacances", dbText, 20
' Définit les propriétés du champ
chp.DefaultValue = "10
' Ajoute chp à la collection Fields
A priori tu ne peux pas faire ta mise à defaut via jet, mais en DAO ou
dans l'aide d'acces 97 tu as cet exemple
Sub NouveauChamp( Dim bds As dao.Database, dft As dao.TableDe Dim chp As dao.Fiel
' Retourne une variable Database pointant sur l ' base de données en cours Set bds = CurrentD ' Retourne un objet Tabledef pointant sur une table Employés Set dft = bds.TableDefs!Employé ' Crée un objet Field Set chp = dft.CreateField("Dates de vacances", dbText, 20 ' Définit les propriétés du champ chp.DefaultValue = "10 ' Ajoute chp à la collection Fields
dft.Fields.Append ch Set bds = Nothin End Su
en espérant que ceci puisse t'aide
ja qui ...
Michel Walsh
Salut,
Il faut passer par ADO, et la syntaxe est légèrement différente:
CurrentProject.Connection.Execute "ALTER TABLE maTable ALTER COLUMN maColumn DOUBLE SET DEFAULT 0 "
Si tu utilises le ; final, s'assurer qu'il y a au moins un espace entre le ; et le zéro, dans ce cas-ci.
Cela ne fonctionne pas sous DAO, ni sous le designeur de requêtes. On peut par contre utiliser la fenêtre d'exécution immédiate (Debug Window).
Espérant être utile, Vanderghast, Access MVP
"Pascal" wrote in message news:02ca01c3ce05$5fd70030$ Bonjour, je voudrais exécuter sous VB une requête pour ajouter dans une table une colonne AVEC une valeur par défaut à zéro.
Ex. : ALTER TABLE maTable ALTER COLUMN maColumn DOUBLE Default(0);
Je suis sûr de la syntaxe jusqu'à DOUBLE, c'est après que cela coince. J'ai entendu dire que DEFAULT ne fonctionnait pas en Access 2000 ?
Y-a-t-il une solution EN SQL ?
Merci.
Salut,
Il faut passer par ADO, et la syntaxe est légèrement différente:
CurrentProject.Connection.Execute "ALTER TABLE maTable ALTER COLUMN maColumn
DOUBLE
SET DEFAULT 0 "
Si tu utilises le ; final, s'assurer qu'il y a au moins un espace entre le ;
et le zéro, dans ce cas-ci.
Cela ne fonctionne pas sous DAO, ni sous le designeur de requêtes. On peut
par contre utiliser la fenêtre d'exécution immédiate (Debug Window).
Espérant être utile,
Vanderghast, Access MVP
"Pascal" <anonymous@discussions.microsoft.com> wrote in message
news:02ca01c3ce05$5fd70030$a001280a@phx.gbl...
Bonjour, je voudrais exécuter sous VB une requête pour
ajouter dans une table une colonne AVEC une valeur par
défaut à zéro.
Ex. : ALTER TABLE maTable ALTER COLUMN maColumn DOUBLE
Default(0);
Je suis sûr de la syntaxe jusqu'à DOUBLE, c'est après que
cela coince. J'ai entendu dire que DEFAULT ne fonctionnait
pas en Access 2000 ?
Il faut passer par ADO, et la syntaxe est légèrement différente:
CurrentProject.Connection.Execute "ALTER TABLE maTable ALTER COLUMN maColumn DOUBLE SET DEFAULT 0 "
Si tu utilises le ; final, s'assurer qu'il y a au moins un espace entre le ; et le zéro, dans ce cas-ci.
Cela ne fonctionne pas sous DAO, ni sous le designeur de requêtes. On peut par contre utiliser la fenêtre d'exécution immédiate (Debug Window).
Espérant être utile, Vanderghast, Access MVP
"Pascal" wrote in message news:02ca01c3ce05$5fd70030$ Bonjour, je voudrais exécuter sous VB une requête pour ajouter dans une table une colonne AVEC une valeur par défaut à zéro.
Ex. : ALTER TABLE maTable ALTER COLUMN maColumn DOUBLE Default(0);
Je suis sûr de la syntaxe jusqu'à DOUBLE, c'est après que cela coince. J'ai entendu dire que DEFAULT ne fonctionnait pas en Access 2000 ?
Y-a-t-il une solution EN SQL ?
Merci.
Pascal B
Merci à tous les deux, je l'ai fait finalement en DAO et cela passe nickel.
Merci à tous les deux, je l'ai fait finalement en DAO et cela passe nickel.
