Code de Bouton de formulaire sous Access
Résolu
nanishkoum
Messages postés
120
Date d'inscription
Statut
Membre
Dernière intervention
-
nonononon -
nonononon -
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 !
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 !
A voir également:
- Code de Bouton de formulaire sous Access
- Whatsapp formulaire opposition - Guide
- Code ascii - Guide
- Formulaire de réclamation facebook - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
13 réponses
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
je ne sais pas où tu coinces...
Pour affecter à une zone de texte une valeur prise ailleurs :
Nom_De_Zone.Text = Ma_liste.Value
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?!
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 :
A+ Blux
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"
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 ! :(
Vraiment désolé d'etre aussi novice en VB ! :(
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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é.
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é.
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
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
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)...
Faudrait voir avec Cstr(jour.value)...
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).
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).
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...:-)
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...:-)
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 :)
J'ai réussi a concaténer à faire des retours chariots tout est parfait !
Merci beaucoup pour ton aide et ta patience :)