Discussion :

[Kloun]

Bonjour,

J'ai ce bout de code :

Code :

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

1
2
3
4
5
            DoCmd.OpenForm "Detail", , , "1=2"
            Set iObj_Formulaire = Forms.item("Detail")
            iObj_Formulaire.RecordSource = "AllOrders"
            iObj_Formulaire.Filter = iStr_Critere
            iObj_Formulaire.FilterOn = True

Le changement de recordsource rafraîchit le formulaire, et c'est long (requête sur tables attachées avec beaucoup de lignes).
Le filter est long aussi.
Y'a-t-il un moyen de "bloquer" le refresh jusqu'à la mise en place du filtre ?
Merci.

[pgz]

Bonjour,

Tu peux faire tes modifications en mode design, du genre :

Code :

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

1
2
3
4
5
6
7
DoCmd.OpenForm "Detail",acDesign 
Set iObj_Formulaire = Forms.item("Detail")
iObj_Formulaire.RecordSource = "AllOrders"
iObj_Formulaire.Filter = iStr_Critere
iObj_Formulaire.FilterOn = True
DoCmd.Close acForm, "Detail", acSaveYes
DoCmd.OpenForm "Detail", , , "1=2"

Bon courage,

PGZ

[Kloun]

Merci,
Ca fonctionne, même si c'est pas top : ça oblige à changer le recordsource sur chaque ouverture du formulaire.
Je crois que je vais faire 2 formulaires identiques avec 2 recordsource différents, même si je n'aime pas ça.

[pgz]

Bonjour,

Si tu préfères,

Code :

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

1
2
3
4
5
6
7
8
DoCmd.OpenForm "Detail",acDesign 
Set iObj_Formulaire = Forms.item("Detail")
iObj_Formulaire.RecordSource = "AllOrders"
iObj_Formulaire.Filter = iStr_Critere
iObj_Formulaire.FilterOn = True
 
DoCmd.RunCommand acCmdSave
DoCmd.RunCommand acCmdFormView

Bon courage,

PGZ