Discussion :

[caesar23]

Bonjour à tous !

J'ai une liste de fournitures et via un bouton pour chacune j'accède au formulaire qui affiche toutes les infos de cette fourniture.

Le problème est que la requête est donc filtrée et les boutons enregistrement suivant, précédent, premier, dernier ne sont plus opérationnels : une seule fourniture fait partie des résultats.

Comment se positionner sur l'enregistrement choisi sans filtrer la liste des enregistrements ?

j'ai essayé de défiltrer après le filtre :

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
Private Sub OuvrirFormulaire_Click()
On Error GoTo Err_OuvrirFormulaire_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_AfficheFourniture"
 
    stLinkCriteria = "[Num]=" & Me![Num]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Me.Filter = False
    'Form_F_AfficheFourniture.Premier.Enabled = False
    'Form_F_AfficheFourniture.Dernier.Enabled = False
    'Form_F_AfficheFourniture.Precedent.Enabled = False
    'Form_F_AfficheFourniture.Suivant.Enabled = False

également avec Me.FilterOn = False. Ca ne marche pas.

Une réouverture du formulaire non plus.

J'ai trouvé un contournement qui ne me plait pas énormément :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub B_FournitureParcourir_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.Close
    stDocName = "F_AfficheFourniture"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Form_F_AfficheFourniture.Bascule.Value = True
    Form_F_AfficheFourniture.Premier.Enabled = True
    Form_F_AfficheFourniture.Dernier.Enabled = True
    Form_F_AfficheFourniture.Suivant.Enabled = True
    Form_F_AfficheFourniture.Precedent.Enabled = True
 
End Sub

Ce bouton "parcourir" me réinitialise le formulaire et j'en profite pour réactiver les boutons qui parcourent les enregistrements (boutons que j'avais désactivés lorsqu'on filtre sur une seule fourniture vu qu'ils génèrent des erreurs !)

Merci d'avance pour votre aide

[Tofalu]

Bonjour,

Dans ce cas, il ne faut pas utiliser de filtre et passer la donnée recherchée (c'est à dire : stLinkCriteria) à l'argument openargs de la méthode OpenForm.

Sur l'évènement Load du formulaire à ouvrir, il faut alors vérifier si openargs est rempli, et si c'est le cas utiliser la méthode Me.Recordset.FindFirst <lefiltrerecupéré>.

[caesar23]

Merci pour ta réponse.

J'ai trouvé grâce à ton aide l'aide de FindFirst et je suis tombé sur un exemple "tout prêt" de mon besoin.

Malheuresement, ça ne marche pas (aucune action, aucune erreur) :

Dans F_ChoixFourniture

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
Private Sub OuvrirFormulaire_Click()
On Error GoTo Err_OuvrirFormulaire_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_AfficheFourniture"
 
    stLinkCriteria = Me![Num]
    DoCmd.OpenForm stDocName, , , , , , stLinkCriteria
 
Exit_OuvrirFormulaire_Click:
    Exit Sub
 
Err_OuvrirFormulaire_Click:
    MsgBox err.Description
    Resume Exit_OuvrirFormulaire_Click
 
End Sub

Dans F_AfficheFourniture :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
Dim strNumFourniture As String
strNumFourniture = Forms!F_ChoixFourniture.OpenArgs
If Len(strNumFourniture) > 0 Then
    DoCmd.GoToControl Num
    DoCmd.FindRecord strNumFourniture, , True, , True, , True
End If
End Sub