Discussion :

[timoth]

Bonjour,

J'essaye maintenant d'appliquer ma nouvelle méthode de tri des enregistrements (merci francishop) aux sous-états d'un état principal
Voici le code:

Code :

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

1
2
Me.GroupLevel(0).ControlSource = "Id"
Me.GroupLevel(0).SortOrder = False

J'ai l'erreur suivante:
Run-Time 2191:
"Impossible de définir la propriété Source après le début de l'impression"

J'ai essayé dans le On_open du sous-état, celui de l'état principal et meme dans le bouton qui commande l'ouverture de l'état principal (en modifiant le me. par le nom de mon rapport, bien sur) avant le :

Code :

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

DoCmd.OpenReport stDocName, acPreview

[timoth]

J'ai fini par trouver une solution, pas tres élégante mais qui marche correctement.

Ca consiste a ouvrir l'état principal en mode création, changer les propriété dont on a besoin dans les sous-états, fermer et sauver et, enfin, réouvrir en mode preview.

Code :

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

1
2
3
4
5
6
    stDocName = "MR_Main Report"
    DoCmd.OpenReport stDocName, acViewDesign
    rprt.GroupLevel(0).ControlSource = field_list.Value
    rprt.GroupLevel(0).SortOrder = order.Value
    DoCmd.Close acReport, stDocName, acSaveYes
    DoCmd.OpenReport stDocName, acPreview

[timoth]

Bonjour,

Ma solution ci-dessus ne marche que pour un seul utilisateur connecté sur la base.

J'ai maintenant un probleme au niveau de la sauvegarde. en effet, il ne veut pas sauver l'état lorsqu'il y a plusieurs utilisateurs connectés sur la base.

Du coup, plus rien ne marche.

Quelqu'un aurait une idée pour me tirer de la???

[loufab]

Bonjour,

L'ordre de tri se défini avec OrderBy et OrderByOn.

Dans le sous-état sur la propriété Sur Activé met le code suivant.

Code :

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

1
2
3
 
Me.OrderBy = "Table.Champ"
Me.OrderByOn = True

Cordialement,

[loufab]

Bonjour,
Ma solution ci-dessus ne marche que pour un seul utilisateur connecté sur la base.

Tu utilise le même fichier mdb avec tous tes utilisateurs connectés et donc c'est normal que tu rencontre ce type de problème.

C'est pour cela qu'on conseille l'architecture Fichier/serveur (appli et données séparées)

[timoth]

Salut loufab,

C'est drole, mais ca marche pas du tout.

J'ai mis dans mon évenement On_Activate de mon sous-état:

Code :

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

1
2
Me.OrderBy = "Montant"
Me.OrderByOn = True

J'ai, en effet, un champ de ma requete source que j'ai appellé "Montant"

Et.. rien! J'ai beau supprimer les GroupLevel, il continue a me trier mes enregistrements de la meme facon.

Pour ce qui est de séparer la base en deux, j'ai essayé de mettre cela en place mais on a perdu en rapidité d'execution. J'aimerais si possible garder un fichier unique pour le moment.

Merci !!

[loufab]

Après quelques tests :

mets le code dans Open et mets un on error resume next au début.

Code :

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

1
2
3
4
 
On Error Resume Next
Me.OrderBy = "table.champ"
Me.OrderByOn = True

bizarrement il y a message d'erreur mais le tri se fait correctement.

[timoth]

Superbe ! Oui ca marche !!!!!!!!!!!

Rahh, je suis trop content....

mille merci Loufab !

[Depite]

Bonjour,

Je me permets de reprendre cette discussion car j'ai souvent été confronté à ce type d'erreur lors de la réaffectation des valeurs de regroupement dans un état pendant l'événement "sur ouverture" (Report_Open).

En effet, le texte du message n'est pas toujours très représentatif de l'erreur, il suffit d'indiquer un nom de champ qui ne figure pas dans la liste des champs de la source pour le vérifier et c'est une erreur fréquente que l'on oublie trop souvent justement parce que le message d'erreur nous oriente vers autre chose.

Donc, avant tout, vérifiez que le nom de champ que vous affectez à une propriété .ControlSource est correctement saisi et que ce champ figure bien dans la source de l'état.
La propriété .ControlSource pouvant s'appliquer à un contrôle de texte, un combo ou autre, comme à un niveau de regroupement (.GroupLevel(x)).

En espérant que ça aidera