YesNo sous Access

**cakeby** · 06/01/2006, 16h45

Bonjour,

Dans un module, j'ajoute un nouveau champ dans une table. Ce champ est de type YesNo. Lorsque je le créer à partir du code et que je vais voir le résultat dans la table, je vois des 0 seulement et non la boite à cocher comme quand je le créer à la main.

Le problème c'est que je veux faire un formulaire pour une personne qui ne s'y connait pas beaucoup avec Access. Je voudrais qu'elle puisse éditer les données seulement en cochant au lieu de mettre des 0 et des 1.

Je voudrais aussi savoir si c'est possible de mettre la valeur True ou 1 par défaut lorsque je créer mon champ par code.

Merci à l'avance.

**b_steph_2** · 06/01/2006, 17h16

bonsoir,

tu vas dans la tale tu selectionne le type de données de ton champ tu as une fenetre en bas contenant plusieurs propriété, tu choisi le format de ton champ, et la valeur par défaut. si tu veux plus d'explication hésites pas

**LedZeppII** · 06/01/2006, 17h36

Bonjour,

Il faut jouer au niveau des propriétés du champ (collection Properties).

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
17
18
19
 
Sub test()
Dim db As DAO.Database, td As DAO.TableDef, f As DAO.Field, p As DAO.Property
 
Set db = CurrentDb
Set td = db.TableDefs("table1")  ' Table
 
Set f = td.CreateField("OnOff", dbBoolean)  ' Champ à ajouter
td.Fields.Append f
' Propriété Format
Set p = f.CreateProperty("Format", dbText, "Yes/No")
f.Properties.Append p
' Propriété Display Control  (106 correspond à case à cocher)
Set p = f.CreateProperty("DisplayControl", dbInteger, 106)
f.Properties.Append p
f.Properties("DefaultValue")="True"
db.Close
 
End Sub

Note : J'ai un Windows en anglais. Il faut peut-être traduire certaine valeurs comme "Yes/No" ou "True" ?

Slts

**Faw** · 06/01/2006, 17h36

Salut,
justement les formulaires te permettent de proposer à ton utilisateur une interface qui lui est adaptée et ce,
indépendamment de la forme des données "physiques" (ou presque...)

Au final, rien ne t'empêche de créer dans ton form une case à cocher en lieu et place de ton champ oui/non
et de mettre dans sa Source Contrôle le nom de ton champ de table.

Pour ce qui est de le faire directement via ton module, je ne suis pas spécialiste mais regarde s'il y a moyen de définir la propriété DisplayControl de ton champ de table.

**cakeby** · 06/01/2006, 19h13

Merci LedZeppII,

Le Yes/No doit devenir YesNo seulement. Tout le reste fonctionne correctement.

Merci à tous pour vos réponses.

**cakeby** · 06/01/2006, 19h25

Tout marche, sauf la DefaultValue. Est-ce bien la bonne syntaxe ?

Edit: En fais ca fonctionne pour les nouveaux enregistrements, mais pas pour ceux qui existent déjà.

**Faw** · 06/01/2006, 19h49

Envoyé par cakeby

Tout marche, sauf la DefaultValue. Est-ce bien la bonne syntaxe ?

Edit: En fais ca fonctionne pour les nouveaux enregistrements, mais pas pour ceux qui existent déjà.

Oui, c'est la définition même de

DefaultValue