Bonjour,
J'aimerais trouver l'erreur de programmation dans ce code.
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.
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
Est-ce que quelqu'un aurait un idée pour pourait être le problème ?
merci.
Partager