bonsoir

j'ai une requête qui fait apparaitre dans une zone de liste placée dans un formulaire, la liste des contrats non signés

ce formulaire est appelé depuis le menu général et doit faire apparaitre tous les contrats non signés sans aucune autre distinction

je voudrais utiliser ce même formulaire afin de l'ouvrir avec un critère supplémentaire depuis la fiche du sous traitant, donc en filtrant uniquement les contrats non signés de ce sous traitant uniquement

j'essaie donc le code suivant qui ne fonctionne pas :

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_ContratEnAttenteSignature_Click()
 
Dim bd As DAO.Database, q, rs
Set bd = CurrentDb
Set q = bd.QueryDefs("R_FContratEnAttente")
q.Parameters("Id_soustraitant") = Forms![F_soustraitant]![ID_SOUSTRAITANT]
Set rs = q.OpenRecordset
Do While Not rs.EOF
DoCmd.OpenForm "F_ContratEnAttenteSignature", acNormal, "", "", , acNormal
    DoCmd.MoveSize 1567, 6804
rs.MoveNext
Loop
End Sub
Erreur 3265 élément non trouvé dans cette collection

J'ai essayé d'ouvrir le formulaire de la façon suivante mais cela ne fonctionne pas non plus (sans doute la zone de liste qui n'est pas reconnue)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
DoCmd.OpenForm "F_ContratEnAttenteSignature", acNormal, "", "Id_soustraitant") = Forms![F_soustraitant]![ID_SOUSTRAITANT], , acNormal
Voyez vous comment faire ?

merci
isabelle