Discussion :

[GeniuZ]

Bonne Année à tous,

Voilà mon pb : Lorsque je veux afficher un DataReport il m'affiche TOUS les jeux d'enregistrements de ma table alors que je n'en veux qu'UN seul.

Voici mon code pour l'affichage :

Code :

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

1
2
3
4
5
6
7
8
9
On Error Resume Next
 
DeGestInvest.rsSuiviProjet.Close
 
DeGestInvest.rsSuiviProjet.Open "SELECT * FROM SuiviProjet, TbProjets, TbSsProjet, TbDA WHERE SuiviProjet.NumProjet=TbProjets.NumProjet AND TbProjets.NumProjet=TbSsProjet.NumProjet AND TbSsProjet.NumProjet=TbDA.NumProjet AND SuiviProjet.NumProjet LIKE '" & DataCombo1.Text & "';", DeGestInvest.GestInvest, adOpenDynamic, adLockPessimistic
 
DeGestInvest.rsSuiviProjet.Requery
 
RptSuiviProjet.Show

Merci d'avance pour l'aide que vous pourrez m'apporter.

GeniuZ



[Balise "Code" rajoutée par Khany]
[Pensez-y vous-même à l'avenir. Merci. ]

[khany]

Bonjour !

Que vaut :

Code :

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

1
2
 
DeGestInvest.rsSuiviProjet.RecordCount

Ton DR affiche les enregistrements de la requête donc, si le RecordCount vaut plus que 1, tu as plusieurs enregistrements

[GeniuZ]

Salut,

Tout d'abord merci de t'intéresser au sujet

Alors j'ai essayé d'utiliser la propriété "Recordcount" mais lorsque je lance le compilateur il m'inscrit le message suivant : Utilisation incorrect de la propriété.

Sinon pour contourner le problème j'ai pensé créer une table temporaire qui me permettrait de recupérer les enregistrement dont j'ai besoin, le report n'aurai plus cas faire référence à cette table temporaire et ainsi n'afficher que les enregistrement voulus... enfin je ne sais pas si ça peut résoudre mon problème. Dites moi ce vous en pensez.

GeniuZ

[120]

as tu tester ton code sans le

Code :

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

On Error Resume Next

car avec cette instruction, tu ne sais plus vraiment ce qui marche et ce qui plante...
essaie de faire d'abord une gestion des erreurs plus correcte, même si ça résouds pas ton pb ça te servira certainement...

[hyipicai]

il t'affiche tous lees enregistyrement ou tous les jeux d'enregistrement ?
a mon avis c'est ma premiere solution vu que tu n'a qu'un seul jeu d'enreg dans l'exemple

est ce qu'il y a un element ds ton datacombo1.text ?
car ca arrive qu'on efface avant et qu'on s'en rende pas compte

[GeniuZ]

Bonjour,

Oui, le report affiche tous les enregistrements des tables et le datacombo1.text n'est pas vide.

Mais maintenant j'ai un autre souci aujourd'hui quand j'ai relancé mon application, VB m'a sorti un message d'erreur pour ensuite s'éteindre. Je relance une nouvelle fois l'application, je la compile et là lorsque je veux afficher le report qui pose problème il m'inscrit à l'écran le message d'erreur suivant : Champ de données 'MON_CHAMP' de la propriété DataField introuvable.
Là je suis resté cloué, avant le report m'affichait tous le enregistrement mais c'était déjà çà, alors que maintenant plus rien. Je commence à desespérer. sniff....

Merci encore pour vos réponses.

GeniuZ

[khany]

Je peux juste te conseiller un petit truc : evite le DE qui bugge parfois et adresse ton DR directement via VB

C'est un peu plus long et plus fastidieux mais cela a l'avantage de te permettre de suivre l'ouverture de ton recordset avec l'élément choisi dans ta combo

[GeniuZ]

RE à tous,

C'est ce que je pensais aussi mais j'ai réussi à sortir le report comme il fallait. :trouve:

Enfin de compte j'ai créé des tables temporaires et j'y insère les infos concernant l'enregistrement sélectionné via le DataCombo, le datareport s'alimente avec ces tables puis une fois le report fermé les infos contenus dans les tables temp s'efface. Du coup je n'ulise pas la requete suivante :

Code :

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

 DeGestInvest.rsTb_TempProjets.Open "SELECT * FROM Tb_TempProjets, Tb_TempSsProjets WHERE Tb_TempProjets.TempNumProjet = Tb_TempSsProjets.TempNumProjet AND Tb_TempProjets.TempNumProjet LIKE '" & DataComboProjet.Text & "';", DeGestInvest.GestInvest, adOpenDynamic, adLockPessimistic

Qui d'après moi pouvait être la source de mon pb; pourquoi? ça je ne sais pas mais je vais me pencher dessus.

En tous cas un grand merci à tout le monde pour les réponses.

GeniuZ [/code]

[khany]

Tant mieux pour toi !

Bonne continuation