Discussion :

[LAURENTN45]

Bonjour à vous tous,

Dans une base, j'ai un formulaire dans lequel la saisie s'effectue en grande partie via plusieurs groupes d'options. Les valeurs sont bien retournées dans la table au moyen de valeurs numériques (1, 2, 3 etc..), sachant que les étiquettes des cases à cocher est affichée sous forme texte. Par exemple, un groupe avec bleu, blanc et rouge

Dans un second formulaire (uniquement en consultation), je souhaite que ces valeurs issue de la saisie par groupe d'options s'affichent sous la forme "texte" et non sous la forme numérique comme cela est la cas actuellement (dans mon exemple, je souhaite voir afficher bleu, blanc ou rouge et non 1, 2 ou 3).

Si l'un d'entre vous peut me venir en aide, ...

Merci d'avance

[madefemere]

Bonjour,

Je remplacerais la zone de texte qui affiche ces valeurs dans un formulaire par une zone de liste avec comme données tes valeurs séparées de";" :

Code :

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

1;"bleu";2;"blanc";3;"rouge"

et comme source contrôle le champ du groupe d'option.

Dans propriétés manuellement ou avec l'assistant.

Bonne continuation

[LAURENTN45]

Merci de ta réponse mais celà ne correspond pas à ma recherche puisque qu'il s'agit d'un formulaire en consultation sans possibilité de saisie pour l'utilisateur. Par ailleurs je souhaite afficher mon formulaire en mode feuille de donnée.

J'avais trouvé une solution sur le support Microsoft mais celle-ci est ancienne (Access 97/2003) et ne fonctionne pas sous 2010. Cela permettait par un peu de code VBA de transformer l'affichage numérique en texte

Cette fonction convertit un entier numérique en texte :

Code :

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

1
2
3
4
5
6
7
8
Function NbreText (I As Integer) As String
 Select Case I
 Case 1: NbreText = "Rouge"
 Case 2: NbreText = "Blanc"
 Case 3: NbreText = "Bleu"
 Case Else: NbreText = ""
 End Select
 End Function

Sélectionnez ensuite le contrôle Groupe d'options et tapez le code
suivant dans sa propriété "Après MAJ" :

Code :

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

1
2
3
Sub Choix_AfterUpdate ()
 Me![coul] = NbreText(CInt(Me![choix]))
 End Sub

Pour relire les enregistrements existants, saisissez dans la
propriété "Sur activation" du formulaire le code suivant :

Code :

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

1
2
3
4
5
6
7
Sub Form_Current ()
 If Not IsNull(Me![coul]) Then
 Me![choix] = TextNbre(CStr(Me![coul]))
 Else
 Me![choix] = Null
 End If
 End Sub

J'ai tenté ce code mais cela ne foctionne pas

[madefemere]

Bonsoir,

Le fait d'afficher dans une zone de liste ne veut pas dire que l'on doit obligatoirement saisir. Tu verrouilles les données du contrôle pour interdire toute modification.

Ci-joint un fichier modèle pour la démarche que je t'ai proposée(et avec un formulaire en feuille de données).

J'espère que ça enlève tes doutes.

[LAURENTN45]

Bonsoir,

C'est Ok cela fonctionne et réponds parfaitement à mon attente.

Merci beaucoup de ton assistance.

Bonne soirée et bon week-end à toi.

Merci encore.