Discussion :

[joeyr]

Bonjour,

J'utilise des boutons radio dans un cadre pour positionner différents filtres sur un formulaire. En mode runtime, les deux premiers boutons provoquent une erreur d'exécution alors que les 4 autres fonctionnent parfaitement.
J'ai beau tourner le problème dans tous les sens, je ne comprends pas.
J'utilise le même principe sur d'autres formulaires, même résultats hélas.
Au chargement, le filtre fonctionne correctement.

Voici le 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
Private Sub Frame42_AfterUpdate()
 
On Error GoTo Err_Handler
 
Select Case Me.Frame42.Value
    Case 1        
        Me.Filter = "((ReqListeQualifié.Qualif = 'Q1') OR (ReqListeQualifié.Qualif = 'Q2'))"
        Me.FilterOn = True
        End
 
    Case 2
        Me.Filter = "((ReqListeQualifié.Qualif = 'Q1'))"
        Me.FilterOn = True
        End
 
    Case 3
        Me.Filter = "((ReqListeQualifié.Qualif = 'Q2'))"
        Me.FilterOn = True
 
    Case 4
        Me.Filter = "((ReqListeQualifié.Qualif = 'Aucune'))"
        Me.FilterOn = True
 
    Case 5
        Me.Filter = "((ReqListeQualifié.Date_TD_Pressta is Null) AND (ReqListeQualifié.Qualif <> 'Aucune'))"
        Me.FilterOn = True
 
    Case 6
        Me.Filter = "((ReqListeQualifié.Date_TD_MLP is Null) AND (ReqListeQualifié.Qualif <> 'Aucune'))"
        Me.FilterOn = True
 
    Case Else
        Me.FilterOn = False
End Select
 
Exit_Error_Handler:
    Exit Sub
 
Err_Handler:
MsgBox err.Description
    Resume Exit_Error_Handler
 
End Sub

[titi95]

Bonjour

Est-ce que ton problème survient seulement uniquement sous Runtime ?

titi95

[joeyr]

Oui, uniquement en mode runtime. Mais j'ai enfin trouvé
En fait dans mon code, sur les options 1 et 2, il y a un End dans mes sections Case. C'est lui qui fait planté le runtime.
Merci en tout cas