rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Code de Bouton de formulaire sous Access

nanishkoum, le jeudi 1 mars 2007 à 09:13:35
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
Répondre à nanishkoum  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nanishkoum, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nanishkoum, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nanishkoum, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nanishkoum, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nanishkoum, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
nanishkoum, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le jeudi 1 mars 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 nanishkoum, le jeudi 1 mars 2007 à 11:00:51
Oki j'en prend note merci beaucoup :)
   
Répondre à nanishkoum
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Lanterne Magique 2.0Lanterne Magique - Après les vacances, on se rend compte qu’on a pris beaucoup trop de photos. On a du mal à les visualiser méthodiquement ou...Catégorie: Album photo
Licence: Freeware/gratuit
Télécharger Vista Codec Package 4.7.3Vista Codec Package - Vista Codec Package regroupe une collection impressionnante de codecs (audio et vidéo), permettant d'ouvrir la plupart...Catégorie: Codecs
Licence: Freeware/gratuit
Télécharger DivX codecs 6.8.4DivX codecs - Le codec Divx Community est gratuit pour un usage personnel et permet de lire les fichiers au format DivX ! L'installeur...Catégorie: Codecs
Licence: Freeware/gratuit
Télécharger K-Lite Codec Pack Full 4.1.7K-Lite Codec Pack Full - K-Lite Codec Pack est une collection de codecs et de filtres nécessaires pour encoder ou décoder des formats audio ou vidéo....Catégorie: Codecs
Licence: Open Source
Plus de logiciels gratuits sur « Code de Bouton de formulaire sous Access »