High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Code de Bouton de formulaire sous Access

Dernière réponse le 1 mar 2007 à 11:00:51 nanishkoum, le 1 mar 2007 à 09:13:35 
 Signaler ce message aux modérateurs

Bonjour a tous,
Laissez moi vous expliquer ma situation :
j'ai un formulaire sous acces avec plusieurs listes déroulantes (rattachées à des tables) et j'ai créer un bouton de commande.
J'aimerai que ce bouton de commande lorsque je clique dessus reprenne les valeurs que j'ai précédemment choisis dans les listes déroulantes, m'affichent un msgbox (ca j'ai déja fait :) ), et les affiche dans une zone de texte elle aussi dans le formulaire évidemment.
Il faudrait de plus que je suis puisse réitérer cette action avec d'autre choix dans mes listes déroulantes et qu'ils soient affichés en dessous de la premiere sélection affiché dans la zone de texte.
J'espere que c'est compréhensible merci d'avance pour votre aide !

Configuration: Windows XP
Firefox 1.5.0.10
AMD 4200 Dual Core x64
Gforce 7900

Posez votre question Répondre

1

blux, le 1 mar 2007 à 09:19:58

Salut,

je ne sais pas où tu coinces...

Pour affecter à une zone de texte une valeur prise ailleurs :

Nom_De_Zone.Text = Ma_liste.Value
A+ Blux 

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

2

nanishkoum, le 1 mar 2007 à 09:25:08

Merci mais le truc c'est que je suis vraiment novice en VB.Ce que tu me dit je le comprend mais ensuite comment faire lorsque je clique sur le bouton de commande pour qu'il saute une ligne dans la zone de texte et qu'il n'efface pas la sélection précédente?!

   
Répondre à nanishkoum

3

blux, le 1 mar 2007 à 09:29:56

Ca y est, j'ai compris où tu voulais en venir...

Il faut récupérer la valeur de ta zone de texte et la concaténer avec un saut de ligne + la nouvelle valeur.

Ca pourra donner un truc comme ça :

Zone.Text = Zone.Text + VbCrLf + Liste.Value
--
A+ Blux 
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

4

nanishkoum, le 1 mar 2007 à 09:33:11

J'ai essayé de mettre ton code mais quand je clique sur le bouton ma msg box apparrait bien mais apres ca bug et ca me renvoie sous vb en me disant Objet requis!
Vraiment désolé d'etre aussi novice en VB ! :(

   
Répondre à nanishkoum

5

nanishkoum, le 1 mar 2007 à 09:37:13

Je suis nul j'avais fais une faute de frappe dans la déclaration de ma zone de texte...
Mais maintenant le nouveau message d'erreur est Impossible de faire référence à une propriété ou de la définir pour un controle si ce dernier n'est pas activé.

   
Répondre à nanishkoum

6

blux, le 1 mar 2007 à 10:00:49

Tu peux essayer de mettre :

Zone.SetFocus

Avant la ligne d'affectation
A+ Blux 

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

7

nanishkoum, le 1 mar 2007 à 10:03:34

Maintenant j'ai incompatibilité de type ... lol

je te montre mon code
Private Sub Commande296_Click() 'bouton valider '


Dim valider

valider = MsgBox("Avez vous bien tout séléctionner?", vbInformation + vbYesNo + 256, "Vérification")
If valider = vbYes Then

Texte303.SetFocus

Texte303.Text = Texte303.Text + vbCrLf + Jour.Value + Mois.Value + Année.Value


End If

   
Répondre à nanishkoum

8

blux, le 1 mar 2007 à 10:27:11

Si jour, mois, année sont des zones renvoyant des données de type date, alors c'est normal qu'on ne puisse les concaténer avec du texte...

Faudrait voir avec Cstr(jour.value)...
A+ Blux 

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

9

nanishkoum, le 1 mar 2007 à 10:34:26

Ok la on se rapproche... !

j'ai mis

Texte303.SetFocus
Texte303.Text = vbCrLf + Catégorie_de_Champagne.Value
et la, la liste catégorie_de_champagne s'affiche bien dans la zone de texte néammoins quand je clique une nouvelle fois sur le bouton de commande cela écrase le résultat du précédent.
Le retour Chariot ne fonctionne pas :(

Apres les autres listes sont en effet des chiffres (format général).

   
Répondre à nanishkoum

10

blux, le 1 mar 2007 à 10:38:35

C'est normal :
Texte303.Text = vbCrLf + Catégorie_de_Champagne.Value
Tu récrases au lieu de concaténer...
Regarde bien les messages précédents et cherche la différence...:-)
A+ Blux 

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

11

nanishkoum, le 1 mar 2007 à 10:46:02

Super tout marche comme je l'aimerai merci beaucoup... :)
J'ai réussi a concaténer à faire des retours chariots tout est parfait !
Merci beaucoup pour ton aide et ta patience :)

   
Répondre à nanishkoum

12

blux, le 1 mar 2007 à 10:55:11

En passant, je te déconseille fortement de mettre des accents dans les noms des zones, variables...

Ca marche très bien, mais le jour où tu as une version ricaine, tu peux avoir des soucis (les ç, à, ù sont trop spécifiques...)
A+ Blux 

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

13

 nanishkoum, le 1 mar 2007 à 11:00:51

Oki j'en prend note merci beaucoup :)

   
Répondre à nanishkoum
Posez votre question Répondre
Ils ont besoin de votre aide