Bonsoir à tous,
Voilà mon problème : j'ai un formulaire de saisie qui contient une dizaine
de champs de saisie plus cases à cocher ;dans ce form, j'ai un controle
texte nommé Adresse ;dans l'évènement after_Update de ce controle, j'ai :
Adresse=Strconv(Adresse.Value,Vbpropercase) ; et ça fonctionne très bien,
après la maj de ce controle, les premières lettres des mots sont bie nen
majuscule.
Par contre, j'ai une zone de liste déroulante avec la fonction NotInList ;
quand je fais : MaZoneDeListe=StrConv(MaZoneDeListe.Value,VbPropercase),
il ne se passe rien ;-( Rien ne se met en majuscule ; j'ai essyé dans
une requête :StrConv([MaZoneDeListe],3) et ça marche !
Pourquoi ça ne fonctionne pas en vba ? Ca marche avec ma zone de texte
mais pas avec ma zone de liste déroulante ; est ce normal ou t a t'il une
autre manip à faire ? Parce que là, je ne comprends plus bien ce qui se
passe ! ;-(
Merci à vous
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonsoir à tous,
Voilà mon problème : j'ai un formulaire de saisie qui contient une dizaine
de champs de saisie plus cases à cocher ;dans ce form, j'ai un controle
texte nommé Adresse ;dans l'évènement after_Update de ce controle, j'ai :
Adresse=Strconv(Adresse.Value,Vbpropercase) ; et ça fonctionne très bien,
après la maj de ce controle, les premières lettres des mots sont bie nen
majuscule.
Par contre, j'ai une zone de liste déroulante avec la fonction NotInList ;
quand je fais : MaZoneDeListe=StrConv(MaZoneDeListe.Value,VbPropercase),
il ne se passe rien ;-( Rien ne se met en majuscule ; j'ai essyé dans
une requête :StrConv([MaZoneDeListe],3) et ça marche !
Pourquoi ça ne fonctionne pas en vba ? Ca marche avec ma zone de texte
mais pas avec ma zone de liste déroulante ; est ce normal ou t a t'il une
autre manip à faire ? Parce que là, je ne comprends plus bien ce qui se
passe ! ;-(
Merci à vous
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonsoir à tous,
Voilà mon problème : j'ai un formulaire de saisie qui contient une dizaine
de champs de saisie plus cases à cocher ;dans ce form, j'ai un controle
texte nommé Adresse ;dans l'évènement after_Update de ce controle, j'ai :
Adresse=Strconv(Adresse.Value,Vbpropercase) ; et ça fonctionne très bien,
après la maj de ce controle, les premières lettres des mots sont bie nen
majuscule.
Par contre, j'ai une zone de liste déroulante avec la fonction NotInList ;
quand je fais : MaZoneDeListe=StrConv(MaZoneDeListe.Value,VbPropercase),
il ne se passe rien ;-( Rien ne se met en majuscule ; j'ai essyé dans
une requête :StrConv([MaZoneDeListe],3) et ça marche !
Pourquoi ça ne fonctionne pas en vba ? Ca marche avec ma zone de texte
mais pas avec ma zone de liste déroulante ; est ce normal ou t a t'il une
autre manip à faire ? Parce que là, je ne comprends plus bien ce qui se
passe ! ;-(
Merci à vous
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonsoir.
pour la zone de liste il faudrait modifier la source de la liste et
non la valeur de la liste. il faut que tu places ton strconv dans la
requête source de ta liste.
Bonsoir.
pour la zone de liste il faudrait modifier la source de la liste et
non la valeur de la liste. il faut que tu places ton strconv dans la
requête source de ta liste.
Bonsoir.
pour la zone de liste il faudrait modifier la source de la liste et
non la valeur de la liste. il faut que tu places ton strconv dans la
requête source de ta liste.
Bonjour *Raymond [mvp]*
Dans ton message de news:e%239eq$,
Tu as pensé très fort :-(*)Bonsoir.
pour la zone de liste il faudrait modifier la source de la liste et
non la valeur de la liste. il faut que tu places ton strconv dans la
requête source de ta liste.
Bonsoir Raymond,
Ma zone de liste n'a pas de requête source ; la source de cette liste
est un champ de ma table ; dans "Contenu", j'ai essayé de rajouter dans
la requête mon StrConv mais ça ne fonctionne pas ;-(
Merci quand même
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *Raymond [mvp]*
Dans ton message de news:e%239eq$u6FHA.2192@TK2MSFTNGP14.phx.gbl,
Tu as pensé très fort :-(*)
Bonsoir.
pour la zone de liste il faudrait modifier la source de la liste et
non la valeur de la liste. il faut que tu places ton strconv dans la
requête source de ta liste.
Bonsoir Raymond,
Ma zone de liste n'a pas de requête source ; la source de cette liste
est un champ de ma table ; dans "Contenu", j'ai essayé de rajouter dans
la requête mon StrConv mais ça ne fonctionne pas ;-(
Merci quand même
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *Raymond [mvp]*
Dans ton message de news:e%239eq$,
Tu as pensé très fort :-(*)Bonsoir.
pour la zone de liste il faudrait modifier la source de la liste et
non la valeur de la liste. il faut que tu places ton strconv dans la
requête source de ta liste.
Bonsoir Raymond,
Ma zone de liste n'a pas de requête source ; la source de cette liste
est un champ de ma table ; dans "Contenu", j'ai essayé de rajouter dans
la requête mon StrConv mais ça ne fonctionne pas ;-(
Merci quand même
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour
Si je comprends bien, tu veux faire cette mise à jour sur l'événement
NotInList ???
Si c'est bien le cas, le principe, c'est que lorsque tu tapes une
valeur dans ta zone de liste qui n'existe pas, tu vas la rajouter à
l'aide
de cet événement. Si on considère que ta liste est basée sur une
table, il te suffit de faire une requête ajout dans VBA en utilisant
dans cette requête, la fonction strConv() pour insérer dans ta table
la donnée avec les bonnes majuscules. (c'est ce que disais Raymond...)
Bonjour
Si je comprends bien, tu veux faire cette mise à jour sur l'événement
NotInList ???
Si c'est bien le cas, le principe, c'est que lorsque tu tapes une
valeur dans ta zone de liste qui n'existe pas, tu vas la rajouter à
l'aide
de cet événement. Si on considère que ta liste est basée sur une
table, il te suffit de faire une requête ajout dans VBA en utilisant
dans cette requête, la fonction strConv() pour insérer dans ta table
la donnée avec les bonnes majuscules. (c'est ce que disais Raymond...)
Bonjour
Si je comprends bien, tu veux faire cette mise à jour sur l'événement
NotInList ???
Si c'est bien le cas, le principe, c'est que lorsque tu tapes une
valeur dans ta zone de liste qui n'existe pas, tu vas la rajouter à
l'aide
de cet événement. Si on considère que ta liste est basée sur une
table, il te suffit de faire une requête ajout dans VBA en utilisant
dans cette requête, la fonction strConv() pour insérer dans ta table
la donnée avec les bonnes majuscules. (c'est ce que disais Raymond...)
Salut,
Ta zone de liste a une source... ok ?
Une table ? D'accord !
Si tu sélectionne un item de la liste et que dans l'évenement "après
mise à jour" tu souhaite obtenir l'item sélectionné en "vbProperCase"
tu as le problème que lors de l'après mise à jour, la liste possède
encore le focus !
Il te faut donc utilisé la propriété .text au lieu de .value
Me.LaListe = StrConv(Me.LaListe.Text, vbProperCase)
et cela fonctionne... en partie ;-(
Car, en modifiant la valeur sélectionnée tu obtient une superbe erreur
qui te dit que la valeur ne fait pas partie de la liste....
Ben oui ! Puisque tu l'as modifiée...
Par contre, tu peux ajouter cela dans la fonction qui te permets
les ajouts dans une liste (le fameux not in list)
Dans la fonction suivante:
http://www.3stone.be/access/articles.php?lng=fr&pgI
tu pourrais modifier ainsi:
CurrentDb.Execute "INSERT INTO LaTable(LeChamp) " _
& "SELECT """ & StrConv(NewData,vbProperCase
& """ ;"
Au besoin, faire une mise à jour de la table pour les données déjà
saisie.
ou j'ai rien compris à ton souhait ;-))
Salut,
Ta zone de liste a une source... ok ?
Une table ? D'accord !
Si tu sélectionne un item de la liste et que dans l'évenement "après
mise à jour" tu souhaite obtenir l'item sélectionné en "vbProperCase"
tu as le problème que lors de l'après mise à jour, la liste possède
encore le focus !
Il te faut donc utilisé la propriété .text au lieu de .value
Me.LaListe = StrConv(Me.LaListe.Text, vbProperCase)
et cela fonctionne... en partie ;-(
Car, en modifiant la valeur sélectionnée tu obtient une superbe erreur
qui te dit que la valeur ne fait pas partie de la liste....
Ben oui ! Puisque tu l'as modifiée...
Par contre, tu peux ajouter cela dans la fonction qui te permets
les ajouts dans une liste (le fameux not in list)
Dans la fonction suivante:
http://www.3stone.be/access/articles.php?lng=fr&pgI
tu pourrais modifier ainsi:
CurrentDb.Execute "INSERT INTO LaTable(LeChamp) " _
& "SELECT """ & StrConv(NewData,vbProperCase
& """ ;"
Au besoin, faire une mise à jour de la table pour les données déjà
saisie.
ou j'ai rien compris à ton souhait ;-))
Salut,
Ta zone de liste a une source... ok ?
Une table ? D'accord !
Si tu sélectionne un item de la liste et que dans l'évenement "après
mise à jour" tu souhaite obtenir l'item sélectionné en "vbProperCase"
tu as le problème que lors de l'après mise à jour, la liste possède
encore le focus !
Il te faut donc utilisé la propriété .text au lieu de .value
Me.LaListe = StrConv(Me.LaListe.Text, vbProperCase)
et cela fonctionne... en partie ;-(
Car, en modifiant la valeur sélectionnée tu obtient une superbe erreur
qui te dit que la valeur ne fait pas partie de la liste....
Ben oui ! Puisque tu l'as modifiée...
Par contre, tu peux ajouter cela dans la fonction qui te permets
les ajouts dans une liste (le fameux not in list)
Dans la fonction suivante:
http://www.3stone.be/access/articles.php?lng=fr&pgI
tu pourrais modifier ainsi:
CurrentDb.Execute "INSERT INTO LaTable(LeChamp) " _
& "SELECT """ & StrConv(NewData,vbProperCase
& """ ;"
Au besoin, faire une mise à jour de la table pour les données déjà
saisie.
ou j'ai rien compris à ton souhait ;-))
Salut,
Cela vient du fait que tu dois integrer une chaine... dans une chaine!
Et une chaine doit être entourée de... guillemets. Et, pour intégrer
un guillemet, il faut le doubler ;-)
"SELECT """ & StrConv(NewData,vbProperCase & """ ;"
Imagine que tu doive entourer la chaine par un "x" tu aurais :
"Select x" & StrConv(.......
comme dit plus haut, il faut le doubler :
"Select xx" & StrConv(......
il te reste à remplacer les "x" par des... guillemets et d'appliquer
le même raisonnement... a l'autre bout de la chaine et tu obtiens
ce truc bizarre :o)
Pour intégrer un numérique, il suffit de faire :
"Select " & 123 & " le reste de la chaine"
Salut,
Cela vient du fait que tu dois integrer une chaine... dans une chaine!
Et une chaine doit être entourée de... guillemets. Et, pour intégrer
un guillemet, il faut le doubler ;-)
"SELECT """ & StrConv(NewData,vbProperCase & """ ;"
Imagine que tu doive entourer la chaine par un "x" tu aurais :
"Select x" & StrConv(.......
comme dit plus haut, il faut le doubler :
"Select xx" & StrConv(......
il te reste à remplacer les "x" par des... guillemets et d'appliquer
le même raisonnement... a l'autre bout de la chaine et tu obtiens
ce truc bizarre :o)
Pour intégrer un numérique, il suffit de faire :
"Select " & 123 & " le reste de la chaine"
Salut,
Cela vient du fait que tu dois integrer une chaine... dans une chaine!
Et une chaine doit être entourée de... guillemets. Et, pour intégrer
un guillemet, il faut le doubler ;-)
"SELECT """ & StrConv(NewData,vbProperCase & """ ;"
Imagine que tu doive entourer la chaine par un "x" tu aurais :
"Select x" & StrConv(.......
comme dit plus haut, il faut le doubler :
"Select xx" & StrConv(......
il te reste à remplacer les "x" par des... guillemets et d'appliquer
le même raisonnement... a l'autre bout de la chaine et tu obtiens
ce truc bizarre :o)
Pour intégrer un numérique, il suffit de faire :
"Select " & 123 & " le reste de la chaine"
