Discussion :

[Subkill]

Bonjour,

J'ai une liste avec plusieurs noms dans le formulaire Ajout.
Dans le formulaire Ajout, j'ai la possibilité de mettre le nom caché ou pas (champ "Caché" = Vrai ou Faux).

Dans le formlaire Appel, la liste des noms qui ne sont pas caché apparait.
Cette liste est ordonnée par un champ "Ordre".

Dans le formulaire Ajout, je dois pouvoir changer l'ordre d'affichage des noms pas cachés avec une flèche "Up" et "Down".

Voici le code que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
    Set monJeu = maBase.OpenRecordset("refInfoDC", dbOpenDynaset)
    strCritere = "infoDC = """ & lstAffichees & """"
    monJeu.FindFirst strCritere
 
    If (monJeu.NoMatch) Then
       Call MsgBox("Erreur, le nom n'existe plus dans la table", vbCritical, "Erreur")
    Else
 
        Dim noOrdre As String
 
        Do
        noOrdre = monJeu!Ordre
 
        monJeu.Edit
        If noOrdre <= 10 Then
        monJeu!Ordre = "0" & noOrdre - 1
        Else
        monJeu!Ordre = noOrdre - 1
        End If
        monJeu.Update
 
        lstAffichees.Selected(lstAffichees.ListIndex - 1) = True
        strCritere = "infoDC = """ & lstAffichees & """"
        monJeu.FindFirst strCritere
 
        monJeu.Edit
        monJeu!Ordre = noOrdre
        monJeu.Update
 
        Loop While monJeu!cache = True
        lstAffichees.Requery
    End If

Cependant ca ne fonctionne pas car la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
lstAffichees.Selected(lstAffichees.ListIndex - 1) = True
strCritere = "infoDC = """ & lstAffichees & """"
 monJeu.FindFirst strCritere

sélectionne le nom précédent dans la liste mais quand je fais monJeu.FindFirst du strCritere le critère est le meme que le premier...
Pourquoi?

[Faw]

et comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strCritere = "infoDC = " & "'" & lstAffichees & "'"

?

[Oleff]

Pourquoi lstAffichees.ListIndex - 1 ?
Cela désigne l'élément précédent à priori
ListIndex devrait suffire

[mout1234]

Essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
strCritere = "infoDC = '"  & lstAffichees.ItemData(lstAffichees.ListIndex - 1) & "'"

[Subkill]

Bon je pense bien que je n'ai pas été clair.
Je me réexplique.

J'ai changé le code pour que ca soit plus simple à comprendre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'Commande SQL pour décrémenter de 1 l'ordre de la personne sélectionnée (Alain) dans la liste
DoCmd.RunSQL ("UPDATE refInfoDC SET Ordre = Ordre -1 WHERE nomPersonne = """ & lstAffichees & """ ") 'lstAffichees = Alain, tout est ok jusque là quand je regarde dans la BD le numéro d'ordre d'Alain vient de baisser de 1
'Je sélectionne la personne précédente dans la liste
lstAffichees.Selected(lstAffichees.ListIndex - 1) = True 'Quand je regarde le formulaire l'élément sélectionné est Bruno 
'Commande SQL pour incrémenter de 1 l'ordre de la personne sélectionnée (Bruno)
DoCmd.RunSQL ("UPDATE refInfoDC SET Ordre = Ordre + 1 WHERE nomPersonne = """ & lstAffichees & """ ") 'lstAffichees = Alain au lieu de Bruno! Pourquoi??? je viens de sélectionner Bruno dans la liste?!?
 
lstAffichees.Requery

J'espère que c'est plus clair.

Dsl, j'ai de la misère...

[Subkill]

J'ai trouvé une solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
DoCmd.RunSQL ("UPDATE refInfoDC SET Ordre = Ordre -1 WHERE nomPersonne = """ & lstAffichees.ItemData(lstAffichees.ListIndex) & """ ")
DoCmd.RunSQL ("UPDATE refInfoDC SET Ordre = Ordre +1 WHERE nomPersonne = """ & lstAffichees.ItemData(lstAffichees.ListIndex - 1) & """ ")
lstAffichees.Requery

Avec la méthode ItemData et en lui passant l'index en paramètre tu peux aller chercher l'élément précédent dans une liste.

Et ca fonctionne!

Merci de vous être creusé la tête pour moi!