Aller à l'enregistrement suivant mais dans l'ordre alphabétiqueRésolu

Question

bonjour
dans ma form j'ai un bouton avec se code,pour aller l'enregistrement suivant .
Private Sub suivant_Click()
'Permet d'aller a l'enregistrement suivant dans la table
rs.MoveNext
'Si plus d'enregistrement aller au dernier
If rs.EOF Then
    rs.MoveLast
    End If
End Sub
il va bien à l'enregistrement suivant mais par ordre d'enregistrement dans ma base.
est ce possible d'aller à l'enregistrement suivant mais dans l'ordre alphabétique.
j'espere avoir était asser clair
merci
petchy

zen69 · Accepted Answer

Meme si il sont "ranger" dans ta db tu dois faire un ORDER BY moChamps ASC dans ton SELECT, comme t'es sur des resultats...

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

gillardg · Answer

il suffit de les ranger dabord

Il n'y a que les gens qui ne font rien, qui ne font pas d'erreur

/B>

cs_petchy · Answer

re
il sont ranger dans l'ordre alphabétique dans ma base,mais malgrer cela il suit par ordre d'enregistrement.
petchy

gillardg · Answer

si tu ne dois pas les modifier 
voici pour les ranger http://www.codyx.org/snippet_tri-naturel-tableau-string_663.aspx

Il n'y a que les gens qui ne font rien, qui ne font pas d'erreur

/B>

gillardg · Answer

ah ben c'est vrai ça zen69 (faudrait peut être que je me mette au SQL un jour )

Il n'y a que les gens qui ne font rien, qui ne font pas d'erreur

cs_petchy · Answer

Re
merci de vos réponses,surtout à toi zen69,c'est nickel 
j'ai rajouter ORDER BY à l'ouverture de ma form.
rs.Open "Select * from centre_aéré ORDER BY  nomenfant_ctr", MaConnection, adOpenDynamic, adLockOptimistic
@ plus
petchy

dianalam · Answer

bjr moi j ai une fiche de réparation qui contient bcp d information et que je peux pas mettre ces info dans une seul feuille en VB j ai donc penser a mettre chaque partie de une seul feuille mais le probléme c est comment regroupé le tout sachant que le technicien qui va remplir la fiche il doit remplir le tout j ai penser o tabstrip mais je sais pas comment faire psk j k ai jamais utiliser 

svp si vous pouvez m aider sa serai trés gentil de votre part 

merci d avance

bonjourcheval · Answer

Bah, une petite recherche sur notre ami google te donnera toutes tes réponses. En général, il est préférable de poser des questions précises sur ce forum. Pour l'uilisation des controles en général, tu auras des réponses plus vite avec le moteur de recherche de vbfrance ou google. 

Donc, 

Google.com

TabStrip VB6 - Chercher   (J'ai fait cette recherche il y a environ deux mois. Ça m'a prit environ 2 heures pour maîtriser le controle...)

PS : L'image c'est ma signature... Ne le prend pas personnel.

bonjourcheval · Answer

Et j'oubliais. Quand tu poses une question, tu dois poser une question et non insérer la tienne dans un post existant! Ça va augmenter tes chances pour obtenir une réponse autre que celle d'un admin te disant de lire le règlement =)

dianalam · Answer

ce programme de tabstrip me génére des erreurs mais je ne sais pas ou exactement l erreur 
Dim CurFrame As Integer


Private Sub Form_Load()
Dim i As Integer
' Positionnement des différentes fenetres du tableau d'onglet
For i = 0 To PictTabStrip.Count–1
TabStrip1.Tabs(i + 1).Caption = "&Onglet " & i
With PictTabStrip(i)
.Visible = False
.Move TabStrip1.ClientLeft, TabStrip1.ClientTop, TabStrip1.ClientWidth, TabStrip1.ClientHeight
End With
Next i
PictTabStrip(0).ZOrder 0
PictTabStrip(0).Visible = True
End Sub


Private Sub TabStrip1_Click()
Dim i As Integer
' Inutile de changer le cadre
' Sinon masque l'ancien cadre et affiche le nouveau.
If TabStrip1.SelectedItem.Index = CurFrame Then Exit Sub
For i = 1 To TabStrip1.Tabs.Count
PictTabStrip(i - 1).Visible = False
Next
PictTabStrip(TabStrip1.SelectedItem.Index - 1).Visible = True
' Affecte la nouvelle valeur à CurFrame.
CurFrame = TabStrip1.SelectedItem.Index
End Sub

SVP si vous pouvez m aider ca serai trés gentil de votre part

bonjourcheval · Answer

ce programme de tabstrip me génére des erreurs mais je ne sais pas ou exactement l erreur 



Part un nouveau topic dans VB6 -> Général 
ou bien VB6 -> Débutant
... Ce sera plus approprié.

Tu cliques sur Forum -> Poser une question. (Dans le menu à gauche de VBFrance.

Et pour ton erreur, quel est l'erreur qui arrive?
Quand il y a une erreur, le programme arrete et il te met la ligne à jaune. Il serait bien que tu nous dises quelle est cette ligne. S'il ne fait pas d'erreur, mais que le code ne fonctionne pas, dit nous qu'est-ce qu'il est supposé de faire et ce qu'il fait présentement.

Alors voilà, il me faudra un peu plus de précision, mais il est certain que s'il y a plusieurs tab, il y aura une erreur. 

 Créé un nouveau topic en cliquant sur Poser un question et en donnant les précision et je te donnerai plus d'information.

Aller à l'enregistrement suivant mais dans l'ordre alphabétique

11 réponses

Votre réponse

Discussions similaires