Discussion :

[Tatoine]

Bonjour jeunes gens.

Le problème du jour est simple...mais pourtant complexe!

j'ai un table de type:
TN (clé primaire) (Texte)
DNP (Texte)
Piste (numérique)
Rocade (texte)
reglette (Texte)
DNACD (Texte)


j'ai un formulaire de ce type:

Piste [ zone de texte piste ] (bouton tri sur piste)
TN [ zone de texte TN ] (bouton tri sur TN)
DNP [ zone de texte DNP ] (bouton tri sur DNP)
DNACD [ zone de texte DNACD ]
Rocade [ zone de texte Rocade ] (bouton tri sur Rocade )
Reglette [ zone de texte Reglette ] (bouton tri sur Reglette)

<< < > >>

Vous voyez le genre?
rien de très complexe.

Je souhaite que mes boutton << < > >> soient désactivés s'il n'y a pas de champ précédent...ou bien de champ suivant

Ca marche très bien lorsque je fais un tri sur piste
un tri sur rocade
un tri sur reglette
mais pas sur TN et DNP

quand je tri sur DNP et TN... tout se désactive.

voici mon 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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
 
Private Sub Form_Current()
 
' pour gérer l'activation ou désactivation des boutons (vu dans la FAQ il me semble)
 
If Me.CurrentRecord > 1 Then
 Me!com_precedent.Enabled = True
 Me!com_prem.Enabled = True
Else
 Me!com_precedent.Enabled = False
 Me!com_prem.Enabled = False
End If
 
If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
 Me!com_suivant.Enabled = False
 Me!com_dernier.Enabled = False
Else
 Me!com_suivant.Enabled = True
 Me!com_dernier.Enabled = True
End If
 
Exit Sub
End Sub
 
 
Private Sub com_suivant_Click()
On Error GoTo Err_com_suivant_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_com_suivant_Click:
    Exit Sub
 
Err_com_suivant_Click:
    MsgBox Err.Description
    Resume Exit_com_suivant_Click
 
End Sub
 
Private Sub com_precedent_Click()
On Error GoTo Err_com_precedent_Click
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_com_precedent_Click:
    Exit Sub
 
Err_com_precedent_Click:
    MsgBox Err.Description
    Resume Exit_com_precedent_Click
 
End Sub
Private Sub com_dernier_Click()
On Error GoTo Err_com_dernier_Click
 
    DoCmd.GoToRecord , , acLast
 
Exit_com_dernier_Click:
    Exit Sub
 
Err_com_dernier_Click:
    MsgBox Err.Description
    Resume Exit_com_dernier_Click
 
End Sub
Private Sub com_prem_Click()
On Error GoTo Err_com_prem_Click
 
    DoCmd.GoToRecord , , acFirst
 
Exit_com_prem_Click:
    Exit Sub
 
Err_com_prem_Click:
    MsgBox Err.Description
    Resume Exit_com_prem_Click
 
End Sub
 
Private Sub tripiste_Click()
 
'tri par piste
On Error GoTo Err_tripiste_Click
 
 
    Me.OrderBy = "piste"
 
Exit_tripiste_Click:
    Exit Sub
 
Err_tripiste_Click:
    MsgBox Err.Description
    Resume Exit_tripiste_Click
 
End Sub
 
 
 
Private Sub triTN_Click()
 
'tri par TN
On Error GoTo Err_triTN_Click
 
 
    Me.OrderBy = "TN"
 
Exit_triTN_Click:
    Exit Sub
 
Err_triTN_Click:
    MsgBox Err.Description
    Resume Exit_triTN_Click
 
End Sub
 
 
Private Sub triDNP_Click()
 
'tri par DNP
On Error GoTo Err_triDNP_Click
 
 
    Me.OrderBy = "DNP"
 
Exit_triDNP_Click:
    Exit Sub
 
Err_triDNP_Click:
    MsgBox Err.Description
    Resume Exit_triDNP_Click
 
End Sub
 
 
Private Sub triRoc_Click()
 
'tri par rocade
On Error GoTo Err_triRoc_Click
 
 
    Me.OrderBy = "Rocade"
 
Exit_triRoc_Click:
    Exit Sub
 
Err_triRoc_Click:
    MsgBox Err.Description
    Resume Exit_triRoc_Click
 
End Sub
 
Private Sub triReg_Click()
 
'tri par reglette
On Error GoTo Err_triReg_Click
 
 
    Me.OrderBy = "reglette"
 
Exit_triReg_Click:
    Exit Sub
 
Err_triReg_Click:
    MsgBox Err.Description
    Resume Exit_triReg_Click
 
End Sub

une idée?

[Tatoine]

bon pas d'idées a priori?

[Tatoine]

bon, je laisse tombé donc.