Code qui ne fonctionne pas
Bonjour,
J'aimerais trouver l'erreur de programmation dans ce code.
Code:
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.
