Discussion :

[stéphane_ais2]

Bonjour,

Je cherche à filtrer dynamiquement un frm ouvert à partir d'un jeu d'enregistrement d'un autre formulaire ouvert lui aussi...

Code dans le frm à partir duquel le filtre doit s'appliquer sur l'autre

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
 
Private Sub Précédent_Click()
On Error GoTo Err_Precedent_Click
'filtre dynamiquement le frmDirection s'il est ouvert
    Dim intDir As Integer
    intDir = ObjState("frmDirections", acForm)
 
    If intDir = 1 Then
       Forms("frmDirections").Filter = "[ua_num]=" & tempon
       Forms("frmDirections").FilterOn = True
 
    Else
    End If
 
    DoCmd.GoToRecord , , acPrevious 'Enregistrement précédent
 
Exit_Precedent_Click:
    Exit Sub
 
Err_Precedent_Click:
    MsgBox Err.Description
    Resume Exit_Precedent_Click
End Sub

Ce code n'a pas d'effet sur la modification d'affichage attendue...faut-il utiliser la méthode Requery ou refresh? ou bien modifier le recordset du frm à filtrer avec SELECT...WHERE?
Merci pour votre aide
SE

[stéphane_ais2]

Ou bien utiliser docmd.applyFilter?
SE

[stéphane_ais2]

j'ai corrigé le code mais sans résultats

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim intDir As Integer
    intDir = ObjState("frmDirections", acForm)
 
    DoCmd.GoToRecord , , acPrevious 'Enregistrement précédent
 
    If intDir = 1 Then
       Forms("frmDirections").Filter = "Forms!frmDirections!ua_num=" & [ua_num]
       Forms("frmDirections").FilterOn = True
       Forms!frmDirections!ua_num.Requery
    Else
    End If

C'est sûrement une erreur de syntaxe?
SE

[stéphane_ais2]

ça y est ! je l'ai

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
 
Private Sub Précédent_Click()
On Error GoTo Err_Precedent_Click
'filtre dynamiquement le frmDirection s'il est ouvert
    Dim intDir As Integer
    intDir = ObjState("frmDirections", acForm)
 
    DoCmd.GoToRecord , , acPrevious 'Enregistrement précédent
 
    If intDir = 1 Then
       Forms("frmDirections").Filter = "[ua_num] =" & Forms!frm_Ets!ua_num
       Forms("frmDirections").FilterOn = True
       Forms!frmDirections!ua_num.Requery
    Else
    End If
 
Exit_Precedent_Click:
    Exit Sub
 
Err_Precedent_Click:
    MsgBox Err.Description
    Resume Exit_Precedent_Click
End Sub

J'ai l'impression étrange que lorsque je poste, j'avance plus vite dans la résolution de mes erreurs...
SE