Bonjour,

J'aimerais trouver l'erreur de programmation dans ce 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
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Private Function basOrderby(col As String, xorder As String) As Integer
Dim strSQL As String
 
'Clear captions from command buttons
ClearCaptions
 
'Set row source for list box
    strSQL = "SELECT DISTINCTROW ID_Proprietaire, Prenom, Nom, Date_naissance, [Téléphone (maison)]"
    strSQL = strSQL & "FROM Proprietaire"
    strSQL = strSQL & "ORDER BY  " & col & " " & xorder
    Me!lstSearch.RowSource = strSQL
    Me!lstSearch.Requery
 
End Function
 
Sub ClearCaptions()
 
'Clear captions of asc and desc symbols
 
    Me!cmdOrderFNameDesc.Caption = "Trie par prénom"
    Me!cmdOrderFName.Caption = "Trie par prénom"
    Me!cmdOrderLNameDesc.Caption = "Trie par nom"
    Me!cmdOrderLName.Caption = "Trie par nom"
    Me!cmdOrderRegionDesc.Caption = "Trie par ville/village"
    Me!cmdOrderRegion.Caption = "Trie par ville/village"
 
End Sub
 
Private Sub cmdOrderFName_Click()
'Set First Name order in ascending order and apply captions
Dim response As Integer
    response = basOrderby("Prenom", "asc")
    Me!cmdOrderFNameDesc.Visible = True
    Me!cmdOrderFNameDesc.Caption = "v Trie par prénom v"
    Me!cmdOrderFNameDesc.SetFocus
    Me!cmdOrderFName.Visible = False
    Me!lstSearch.SetFocus
 
End Sub
 
Private Sub cmdOrderFNameDesc_Click()
'Set First Name order in descending order and apply captions
Dim response As Integer
    response = basOrderby("Prenom", "DESC")
    Me!cmdOrderFName.Visible = True
    Me!cmdOrderFName.Caption = "^ Trie par prénom ^"
    Me!cmdOrderFName.SetFocus
    Me!cmdOrderFNameDesc.Visible = False
    Me!lstSearch.SetFocus
 
End Sub
 
Private Sub cmdOrderLName_Click()
'Set Last Name order in ascending order and apply captions
Dim response As Integer
    response = basOrderby("Nom", "asc")
    Me!cmdOrderLNameDesc.Visible = True
    Me!cmdOrderLNameDesc.Caption = "v Trie par nom v"
    Me!cmdOrderLNameDesc.SetFocus
    Me!cmdOrderLName.Visible = False
    Me!lstSearch.SetFocus
 
End Sub
 
Private Sub cmdOrderLNameDesc_Click()
'Set Last Name order in descending order and apply captions
Dim response As Integer
    response = basOrderby("Nom", "DESC")
    Me!cmdOrderLName.Visible = True
    Me!cmdOrderLName.Caption = "^ Trie par nom ^"
    Me!cmdOrderLName.SetFocus
    Me!cmdOrderLNameDesc.Visible = False
    Me!lstSearch.SetFocus
 
End Sub
 
Private Sub cmdOrderRegion_Click()
'Set Region order in ascending order and apply captions
Dim response As Integer
    response = basOrderby("strRegion", "asc")
    Me!cmdOrderRegionDesc.Visible = True
    Me!cmdOrderRegionDesc.Caption = "v Trie par ville/village v"
    Me!cmdOrderRegionDesc.SetFocus
    Me!cmdOrderRegion.Visible = False
    Me!lstSearch.SetFocus
 
End Sub
 
Private Sub cmdOrderRegionDesc_Click()
'Set Region order in descending order and apply captions
Dim response As Integer
    response = basOrderby("strRegion", "DESC")
    Me!cmdOrderRegion.Visible = True
    Me!cmdOrderRegion.Caption = "^ Trie par ville/village ^"
    Me!cmdOrderRegion.SetFocus
    Me!cmdOrderRegionDesc.Visible = False
    Me!lstSearch.SetFocus
 
End Sub
Les Sub " cmdOrder... " sont destinés à des boutons qui permet de trier une liste d'info par order ascendant et descendant. Sauf que dans le code que j'ai inclus ne fonctionne pas comme je voudrais. Si je clique sur l'un des boutons, l'information dans la liste (lstSearch) disparait completement.

Est-ce que quelqu'un aurait un idée pour pourait être le problème ?

merci.