Discussion :

[chim33]

Bonjour,

Dans un module VBA, je veux ajouter un champ Oui/Non dans une table et lui attribuer une valeur par défaut = Oui.
Voila ma ligne d'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "ALTER TABLE DetCession ADD COLUMN CocheRemis YESNO DEFAULT YES;"

Mais ça ne marche pas, j'ai une erreur de syntaxe. J'ai essayé plusieurs formulation : j'ai toujours le même problème.
Si je crée le champ sans lui atribuer une valeur par défault, ça marche.

Merci à ceux qui pourront m'aider à trouver mon erreur.

[random]

DeFaULt true ???

[chim33]

Mais si Random, elle belle la vie, mais elle serait encore plus belle si ta suggestion marchait !!!
J'ai hélas toujours le même message : Erreur 3293 - Erreur de syntaxe dans l'instruction ALTER TABLE.

[random]

il n'est pas nécessaire de réussir pour persévérer
je suggère default 'yes'

[LedZeppII]

Bonjour,

Je crois que DEFAULT n'est reconnu que dans ADO.
Il y a pas mal de mots clés SQL jet qui ne sont reconnus qu'en passant par ADO.

A+

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function aj() As Boolean
on error goto fin
Dim mabase As DAO.Database
Dim t As DAO.TableDef
Dim u As DAO.Field
Set mabase = CurrentDb()
Set t = mabase.TableDefs("matable")
Set u = t.CreateField(Name:="monchamp", Type:=dbBoolean)
u.DefaultValue = True
t.Fields.Append u
aj=true
exit function
:fin
aj=false
End Function

[chim33]

Merci pour votre aide, mais après de nouvelles recherches sur le forum, j'ai résolu mon probléme en DAO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim fldCoche As Field
    Set fldCoche = CurrentDb.TableDefs!DétailCession.CreateField("CocheRemis", dbBoolean)
    fldCoche.DefaultValue = "True"
    CurrentDb.TableDefs("DétailCession").Fields.Append fldCoche