Sujet Précédent Sujet Suivant

Listbox ou table access/ordre alphabétique

Résolu
cs_danu Messages postés 11 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 30 avril 2010 - 18 janv. 2009 à 17:26
cs_danu Messages postés 11 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 30 avril 2010 - 19 janv. 2009 à 12:25
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 11" />
<meta name="Originator" content="Microsoft Word 11" />
<link rel="File-List" href="file:///C:%5CDOKUME%7E1%5CPINA01%7E1%5CLOKALE%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Normale Tabelle";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->

Bonsoir à tous et
merci pour tous vos codes ou aides divers, je ne suis qu’un amateur





Je programme en
vb6 pour mon plaisir des petits tools pour ma consommation perso.





La j’ai un pb que
je n’ai pas résolu.





Mon PB :















-J’appel mon  « List2_voir_chercher  « 






 






-Call  List2_voir_chercher 






 






-Private   List2_voir_chercher  sub





Dim Db2 As
Database






   

Dim Rs2 As Recordset






    Dim val01 As Integer






    Set Db2 = OpenDatabase(PfadDB)






    Set Rs2 = Db2.OpenRecordset( _






        "SELECT temp FROM temporaire ORDER
BY temp", dbOpenSnapshot)






 







       Rs2.MoveFirst






 







             While Not Rs2.EOF






                Form1.List2_voir.AddItem
(Rs2("temp"))






                 Rs2.MoveNext






       Db2.Close





End sub





Une table
“temporaire” est alimenté par rapport à un autre listebox, jusque la ok






 






-Mon “List2_voir
(listbox)” est  sur sorted =false





-Ma table est
réglé de façon que le tri soit désactivé






 






-Quand mes
données sont actualisées dans listbox (List2_voir) elles sont toujours dans
l’ordre alphabétique





-Quand je fais






               Form1.List2_voir.AddItem
(Rs2("temp")) , 0





-Elles sont dans
l’ordre inverse ou dans désordre…… Elles sont soit : ABCD ou DCBA





-Je cherche à
avoir ces données dans l’ordre  où elles
sont dans la table « temporaire »





Le listbox
(List2_voir) et la table temporaire sont réactualisés à chaque clique  d’un autre listbox qui lui reçoit ses données
d’une autre table.






 





<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 11" />
<meta name="Originator" content="Microsoft Word 11" />
<link rel="File-List" href="file:///C:%5CDOKUME%7E1%5CPINA01%7E1%5CLOKALE%7E1%5CTemp%5Cmsohtml1%5C03%5Cclip_filelist.xml" />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Normale Tabelle";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->  2° question:

  je pourrai résoudre mon problem par un textbox mais je ne sais pas fire un retour de ligne automatique

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="ProgId" content="Word.Document" /><meta name="Generator" content="Microsoft Word 11" /><meta name="Originator" content="Microsoft Word 11" /><link rel="File-List" href="file:///C:%5CDOKUME%7E1%5CPINA01%7E1%5CLOKALE%7E1%5CTemp%5Cmsohtml1%5C03%5Cclip_filelist.xml" /><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]--><style><!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
--></style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Normale Tabelle";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->Comment fait fait on un retour à la ligne dans un textbox ou rich texbox

Si quelqu’un
pouvait m’aider

Merci à l’avance

Dan’

2 réponses

Réponse 1 / 2
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
18 janv. 2009 à 17:38
salut,

1°


"SELECT temp FROM temporaire<strike> ORDER BY temp</strike>;"




2° "x" & VBCRLF & "y"
mettre la propriété multiligne à true

++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
3
Réponse 2 / 2
cs_danu Messages postés 11 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 30 avril 2010
19 janv. 2009 à 12:25
Salut
 et grand merci, c'était tout simple et cela fontionne..

pour la 2° question je l'avais déjà utiliser mais j'ai du faire une erreur....

Bonne journée
 et encore Merci
Dan'
0

Discussions similaires

Trier des cellules Excel par ordre alphabetique
nagstef -
Willi -

9 réponses
Comment Ajouter et supprimer une ligne dans une JTable
cs_redbar -
redbar -

2 réponses
Ajouter dans ListBox
Mimi1995 -
acive -

5 réponses
AddItem pour ListBox
a506920 -
Exploreur -

4 réponses
access vba recherche de donnee ds une table
yafisab -
yafisab -

2 réponses
Rejoignez-nous