Discussion :

[Gabout]

Bonjour tout le monde,

Je cherche à organiser, dans un formulaire tabulaire, un nouvel ordonnancement des données. L'exemple le plus explicite est l'outil qui permet de hiérarchiser les références disponibles dans un projet (Outils... Références...).

Pour ce faire, j'ai donc ajouter une colonne ordre (entier long unique) et je gère mes déplacements par deux boutons "Haut" et "Bas".

Un bout du code

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
Private Sub cmdBas_Click()
  Dim valDeb As Long, valFin As Long, sCritere As String
  DoCmd.Echo False
  valDeb = [tacord]
  [tacord] = 0
  DoCmd.GoToRecord acDataForm, Me.Name, acNext
  valFin = [tacord]
  [tacord] = valDeb
  DoCmd.GoToRecord acDataForm, Me.Name, acPrevious
  [tacord] = valFin
  Me.Requery
  sCritere = "tacord=" & valFin
  Me.tacord.SetFocus
  DoCmd.FindRecord valFin, acAnywhere, , , , acCurrent
  DoCmd.Echo True
  Me.taclib.SetFocus
End Sub

J'ai testé auparavant avec un recordset, mais je me suis noyé dans la position de départ et le retour à la position de départ (je suppose bookmark).

Avez-vous travaillé sur ce genre de tableau ?

[Gabout]

Bon euh désolé, j'ai trouvé !

Ci-dessous le code si cela intéresse quelqu'un. Par contre, n'hésitez pas à me faire vos remarques pour l'améliorer.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Compare Database
Option Explicit
Private Sub cmdBas_Click()
  Dim oRst As DAO.Recordset
  Dim vDeb As Long, vFin As Long
  Dim sCritere As String
  Set oRst = Me.Recordset
  If oRst.AbsolutePosition < oRst.RecordCount - 1 Then
    vDeb = oRst.Fields("tacord").Value
    oRst.Edit
    oRst.Fields("tacord").Value = 0
    oRst.Update
    oRst.MoveNext
    vFin = oRst.Fields("tacord").Value
    oRst.Edit
    oRst.Fields("tacord").Value = vDeb
    oRst.Update
    oRst.MovePrevious
    oRst.Edit
    oRst.Fields("tacord").Value = vFin
    oRst.Update
    oRst.MoveNext
    sCritere = "tacord=" & vFin
    Me.Requery
    oRst.FindFirst sCritere
  Else
    Me.taclib.SetFocus
  End If
  Set oRst = Nothing
End Sub
Private Sub cmdHaut_Click()
  Dim oRst As DAO.Recordset
  Dim vDeb As Long, vFin As Long
  Dim sCritere As String
  Set oRst = Me.Recordset
  If oRst.AbsolutePosition > 0 Then
    vDeb = oRst.Fields("tacord").Value
    oRst.Edit
    oRst.Fields("tacord").Value = 0
    oRst.Update
    oRst.MovePrevious
    vFin = oRst.Fields("tacord").Value
    oRst.Edit
    oRst.Fields("tacord").Value = vDeb
    oRst.Update
    oRst.MoveNext
    oRst.Edit
    oRst.Fields("tacord").Value = vFin
    oRst.Update
    oRst.MovePrevious
    sCritere = "tacord=" & vFin
    Me.Requery
    oRst.FindFirst sCritere
  Else
    Me.taclib.SetFocus
  End If
  Set oRst = Nothing
End Sub

Je marquerai le code un peu plus tard... en attendant vos observations.