Discussion :

[myrddin99]

Bonjour,

Problème que je n'avais pas vu venir.

J'ai un formulaire sur lequel j'ai un Gannt qui fonctionne quand ma base n'est pas fractionnée. Par contre, lorsque fractionnée, je n'arrive pas à ouvrir un recordset pour y appliquer un tri:

Code :

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

1
2
3
4
5
' Ouvrir le recordset de projets
Set rs = CurrentDb.OpenRecordset("Projets", dbOpenTable)
 
' Classer par date de start-up
rs.Index = "DateStartup"

J'arrive à éviter l'erreur du recordset en y appliquant:

Code :

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

Set rs = CurrentDb.OpenRecordset("Projets", dbOpenDynaset)

Mais l'erreur passe alors sur mon rs.index.

ici, on m'indique qu'un index ne peut se faire sur un dynaset:
http://warin.developpez.com/access/d...=partie_5#L5.2

quelqu'un à une idée comment régler ce problème?

Merci

[loufab]

Bonjour,

dbOpenTable ne fonctionne pas avec des tables attachées.

Tu dois ouvrir la base de données contenant les tables pour utiliser cette instruction. Cf MSDN :
http://msdn.microsoft.com/fr-fr/libr.../ff194103.aspx

Tu souhaites faire quoi avec ce montage ?

Cordialement,

[myrddin99]

Bonjour,

L'objectif est le suivant:

À partir d'une table qui contient des projets et leurs date de début, fin et diverses autres informations, je produis un diagramme de Gannt, un peu comme celui-ci:

http://www.besoindaide.com/ccm/projet/gantt.htm

Donc, organisation de projets et de tâches dans un tableau selon une échelle de temps.

Le problème, c'est que si je navigue dans mon recordset sans index, je ne peux pas ordonnancer les projets dans un genre de cascade qui débute du plus ancien vers le plus récent et je me retrouve avec des barres dispersées un peu partout.

Donc, la fonction Index me permettait de le faire dans une version non-fractionnée de la base.

Je précise également que ma base est pour plusieurs utilisateurs, ce qui fait que mes projets, date ou autres peuvent être modifier tout en utilisant le Gannt et ce par deux utilisateurs en même temps. J'aimerais évité d'avoir à refaire une bonne partie de mon code, je trouvais l'index très rapide comme solution

Merci

[Tofalu]

Utilisez simplement une clause ORDER BY dans la requête source du recordset. De cette sorte vous pourrez trier les données comme bon vous semble.

[loufab]

Utilisez simplement une clause ORDER BY dans la requête source du recordset. De cette sorte vous pourrez trier les données comme bon vous semble.

C'est bien ce qu'il me semblait...

...je trouvais l'index très rapide comme solution

C'est que tu n'as pas mis en pratique le SQL.

[myrddin99]

Bonjour,

J'invoquerais de nouveau votre aide.

Donc, si je comprends bien la séquence, j'y vais avec un SQL ORDER BY dans mon appel de table:

Code :

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

1
2
' Ouvrir le recordset de projets
Set rs = CurrentDb.OpenRecordset("SELECT [IdProjet] FROM Projets ORDER BY [DateStartup]", dbOpenTable)

Mais...Je deviens soudainement humble, comment puis-je faire pour récupérer la valeur du champ IDProjet?

Code :

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

1
2
3
4
5
6
7
8
' Aller au Premier enregistrement
rs.MoveFirst
 
' Tant que la fin de la table n'est pas atteinte
While Not rs.EOF
 
    ' Récupérer les champs pertinents
    ValeurChamp = rs.Fields("IDProjet")

Mais j'imagine que mon appel de champ se fait différemment?

Même après 1 an et demi à faire de la programmation, je me rend compte que j'ai un long chemin encore à faire...

Humilité, quand tu me tiens

Merci!

[loufab]

Pourquoi différemment ? Tu travailles toujours avec un recordset, c'est donc la même méthode à appeler.

[myrddin99]

Effectivement, simple erreur de syntaxe de ma part

Merci