Code de Bouton de formulaire sous Access
Résolu/Fermé
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
-
1 mars 2007 à 09:13
nonononon - 27 mai 2010 à 20:45
nonononon - 27 mai 2010 à 20:45
A voir également:
- Code de Bouton de formulaire sous Access
- Code ascii de a - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code blocks free - Télécharger - Langages
- Gta 4 code de triche - Guide
13 réponses
blux
Messages postés
26010
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2024
3 289
1 mars 2007 à 09:19
1 mars 2007 à 09:19
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
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 09:25
1 mars 2007 à 09:25
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?!
blux
Messages postés
26010
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2024
3 289
1 mars 2007 à 09:29
1 mars 2007 à 09:29
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"
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 09:33
1 mars 2007 à 09:33
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
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 09:37
1 mars 2007 à 09:37
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é.
blux
Messages postés
26010
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2024
3 289
1 mars 2007 à 10:00
1 mars 2007 à 10:00
Tu peux essayer de mettre :
Zone.SetFocus
Avant la ligne d'affectation
Zone.SetFocus
Avant la ligne d'affectation
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 10:03
1 mars 2007 à 10:03
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
blux
Messages postés
26010
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2024
3 289
1 mars 2007 à 10:27
1 mars 2007 à 10:27
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)...
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 10:34
1 mars 2007 à 10:34
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).
blux
Messages postés
26010
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2024
3 289
1 mars 2007 à 10:38
1 mars 2007 à 10:38
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...:-)
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 10:46
1 mars 2007 à 10:46
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 :)
blux
Messages postés
26010
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2024
3 289
1 mars 2007 à 10:55
1 mars 2007 à 10:55
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...)
Ca marche très bien, mais le jour où tu as une version ricaine, tu peux avoir des soucis (les ç, à, ù sont trop spécifiques...)
nanishkoum
Messages postés
120
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
24 avril 2008
12
1 mars 2007 à 11:00
1 mars 2007 à 11:00
Oki j'en prend note merci beaucoup :)
