besoin d'aide pour corriger un code vba

Question

Bonjour tout le monde

On ma demand&#233; de r&#233;aliser un petit moteur de recherche dans le formulaire de la base de donn&#233;es que je suis en trein de r&#233;aliser avec acces. 

J'ai mis une zone de texte, un bouton, et une zone de liste. 

J'ai deux question &#224; vous soum&#234;tre. 

Je vous en suppli aid&#233; moi! 

Voici le code:

Dim affiche As Control 

For Each affiche In Me.Controls 

Next affiche 

Me.Liste128.RowSource = "select nom from tbl_eval_stat_glob_communication" 
Me.Liste128.Requery 

End Sub 
Sub recherche() 

Dim sql As String 

sql = "select nom,prenom from tbl_eval_stat_glob_communication where tbl_eval_stat_glob_communication!nom" <> 0 

Me.Liste128.RowSource = sql 
Me.Liste128.Requery 

End Sub 

Private Sub Liste128_BeforeUpdate(Cancel As Integer) 

Dim var As String 
var = Liste128.List(Liste128.ListIndex) 
Requete "select date,Sourire,Accepter de parler de soi,D&#233;sirer faire le point,Cr&#233;er des relation sociales/familiales,R&#233;tablir des relations sociales/familiales,Etre moin agressif dans ces relations,Prendre la parole individuel,prendre la parole collectif,Emetre des opinions et les vendres,(Re)prendre ca place dans la cellule familiale,Collabor&#233; avec son r&#233;f&#233;rent social,Accepter la confrontation,Savoir dire oui ou non,Exprimer une envie,Imaginer un futur possible ou se projeter dans l'avenir,S'exprimer sans crainte from Tbl_evaluation where nom var" 

End Sub 

1) 

Le probleme est quand je selectionne un element de la zone liste, il affiche l'erreur: 

erreur de compilation 'membre de methode ou de donn&#233;es introuvable' 

En selectionnant var = Liste128.List(Liste128.ListIndex) 

Pourquoi fait il ca? 

2) 

De plus, il faut que je vous explique quelque chose, dans l'association les personne inscrite font 3 fois leurs evaluations. 

Donc, j'ai r&#233;alise 3 colonne avec des zone de texte, Je voudrais que les donn&#233;es des &#233;valuations des peronnes s'affichent en ordre croissant par raport aux date enregistr&#233;. 

Merci

Cordialement

A bient&#244;t

Zlub · Answer

Salut,

1) G&#233;n&#233;ralement, une ListBox commence &#224; l'indice z&#233;ro. Donc v&#233;rifies que ton ListIndex ne vaut pas -1 par exemple.

Normalement, Liste128.Text devrait suffire.



Essais :


Debug.Print "ListIndex : " & Liste128.ListIndex 
Debug.Print "Text : " & Liste128.Text 



2) Essayes avec SELECT ... FROM ... WHERE ... ORDER BY dateEnregistr&#233;e ASC;


++

Zlub

developvbdebut · Answer

Bonsoir tout le monde

Ca ne fonctionne pas Zlub 

Voici le code:

Private Sub Liste128_BeforeUpdate(Cancel As Integer)


Dim var As String
var = Liste128


Debug.Print "ListIndex :" & Liste128.ListIndex
Debug.Print "Text : " & Liste128.Text


Requete "select date, Sourire, [Accepter de parler de soi], [D&#233;sirer faire le point],[Cr&#233;er des relation sociales/familiales], [R&#233;tablir des relations sociales/familiales], [Etre moin agressif dans ces relations], [Prendre la parole individuel], [prendre la parole collectif], [Emetre des opinions et les vendres],[(Re)prendre ca place dans la cellule familiale], [Collabor&#233; avec son r&#233;f&#233;rent social], [Accepter la confrontation], [Savoir dire oui ou non], [Exprimer une envie], [Imaginer un futur possible ou se projeter dans l'avenir], [S'exprimer sans crainte] from Tbl_evaluation where nom var ORDER BY date ASC;"


End Sub

access resort le m&#234;me message,'membre de methode ou de donn&#233;es introuvable' en selectionnant .text

O&#249; y a t'il une erreur?

Comment r&#233;gler ce probl&#232;me?

Comment v&#233;rifier l'indice de ma listIndex?

Merci

Cordialement

A bient&#244;t

Zlub · Answer

Salut,

J'avais pas fait gaffe &#224; ta requ&#234;te ... essais ainsi :


Requete = "select date, Sourire, [Accepter de
parler de soi], [D&#233;sirer faire le point],[Cr&#233;er des relation
sociales/familiales], [R&#233;tablir des relations sociales/familiales],
[Etre moin agressif dans ces relations], [Prendre la parole
individuel], [prendre la parole collectif], [Emetre des opinions et les
vendres],[(Re)prendre ca place dans la cellule familiale], [Collabor&#233;
avec son r&#233;f&#233;rent social], [Accepter la confrontation], [Savoir dire
oui ou non], [Exprimer une envie], [Imaginer un futur possible ou se
projeter dans l'avenir], [S'exprimer sans crainte] from Tbl_evaluation
where nom = '" & var & "' ORDER BY date ASC;"



Pour ton liste128 : c'est quoi comme &#233;lement graphique ?







Pour &#233;viter l'erreur index : 



If Liste128.ListIndex < 0 Then Exit Sub 'voir <=0





Et Debug.Print "ListIndex : " & Liste128.ListIndex  &#231;a donne quoi ? 

&#231;a affiche bien le num&#233;ro de ligne (-1) ?





++

Zlub

developvbdebut · Answer

Re bonsoir tout le monde

Comment faire pour savoir comment Debug.Print affiche -1?

Est ce que je dois laisser :

Dim var As String
var = Liste128

Il affiche tout la m&#234;me erreur

Merci

Cordialement

A bient&#244;t

Zlub · Answer

Salut,

J'ai pas tout compris &#224; ton dernier post ...



pour voir le debug.print faut que tu sois en VB Editor ... sinon remplace par msgbox







Supposons que ta liste 128 soit dans Feuille1



dans le code VBA de feuille1



tu colles deux boutons :





Private Sub CommandButton1_Click() 


ListBox128.Clear 

  ListBox128.AddItem "ll" 

  ListBox128.AddItem "kk" 


End Sub 

Private Sub CommandButton2_Click() 


Debug.Print "Nb de lignes : " & ListBox128.ListCount 

  If ListBox128.ListIndex < 0 Then Exit Sub 

  Debug.Print "Texte select " & ListBox128.Text 


End Sub 









++

Zlub

Zlub · Answer

Salut,

je voulais dire, tu fais deux boutons dans feuille1 et tu colle dans le code VBA de feuille1, les scripts ci-dessus.

++

Zlub

developvbdebut · Answer

Rebonsoir tout le monde

Zlub access affiche toujours la m&#234;me erreur, est ca me prend la t&#234;tes!

A quoi vont servir tes boutons?

Pourquoi affiche t'il cette erreur?

Cordialement

A bient&#244;t

Zlub · Answer

Salut,





Comme dit Ma&#238;tre Yoda : "Trop de questions en toi ..."

Je
pense que tu essais d'interroger la liste128 depuis un endroit o&#249; elle
n'est pas d&#233;finie. Donc, les boutons c'est pour tester que &#231;a marche
bien ... Que t'as des infos dans ta liste list128...  Mais comme
j'ai pas ton code, je te fais faire des tests pour cibler le pb ... vu
que ListIndex, ListCount etc.. existent en VBA Excel...





Tu peux tester &#231;a rapidement, d'une autre maniere:



Juste avant ton var = Liste128 : tu colles un msgbox list128 ... 

- si tu vois un texte, l'erreur vient d'ailleur,

- si y'a rien ou que &#231;a plante, c'est que tu n'indiques pas le chemin
complet pour acceder &#224; liste128... solution simple d&#233;place ton code
dans la m&#234;me feuille que celle qui contient liste128.







Tu peux tester ta requete g&#233;n&#233;r&#233;e depuis excel en utilisant debug.print Requete (mode Visual Basic editor)

pour la voir &#224; tout les coups, sur cette ligne
t'appuies sur F9 puis tu execute ton code... quand &#231;a bloque dessus, tu
fais F8 et tu vois se qui se passe .. lorsquet'as la requete, tu la
teste sous Access, pour voir se qu'elle donne. Tu la retravaille au
besoin sous Access, puis recolles sous Excel.





Conseil final : s'ennerver ne sert &#224; rien .... Respirer et faire un pause est salutaire ...





Courage,




++

Zlub

developvbdebut · Answer

Rebonsoir tout le monde

Voici le code complet du formulair de recherche de donn&#233;es.

Option Compare Database


Private Sub Commande127_Click()


Dim affiche As Control


For Each affiche In Me.Controls


Next affiche


Me.Liste128.RowSource = "select nom,prenom from Tbl_evaluation"
Me.Liste128.Requery


End Sub
Sub recherche()


Dim sql As String


sql = "select nom,prenom from Tbl_evaluation like Tbl_evaluation!nom" <> 0



Me.Liste128.RowSource = sql
Me.Liste128.Requery


End Sub



Private Sub Commande15_Click()
On Error GoTo Err_Commande15_Click



    DoCmd.PrintOut


Exit_Commande15_Click:
    Exit Sub


Err_Commande15_Click:
    MsgBox Err.Description
    Resume Exit_Commande15_Click
    
End Sub
Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click



    DoCmd.Close
    
    stDocName = "frm_Stast_eval_individuelle"
    DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_Commande17_Click:
    Exit Sub


Err_Commande17_Click:
    MsgBox Err.Description
    Resume Exit_Commande17_Click
    
End Sub


 


Private Sub Liste128_BeforeUpdate(Cancel As Integer)


Dim var As String
var = Liste128


If Liste128.ListIndex < 0 Then Exit Sub


Debug.Print "ListIndex :" & Liste128.ListIndex
Debug.Print "Text : " & Liste128.Text


Requete "select date, Sourire, [Accepter de parler de soi], [D&#233;sirer faire le point],[Cr&#233;er des relation sociales/familiales], [R&#233;tablir des relations sociales/familiales], [Etre moin agressif dans ces relations], [Prendre la parole individuel], [prendre la parole collectif], [Emetre des opinions et les vendres],[(Re)prendre ca place dans la cellule familiale], [Collabor&#233; avec son r&#233;f&#233;rent social], [Accepter la confrontation], [Savoir dire oui ou non], [Exprimer une envie], [Imaginer un futur possible ou se projeter dans l'avenir], [S'exprimer sans crainte] from Tbl_evaluation where nom '" & var & "' ORDER BY date ASC;"


End Sub

Il faut que tu saches que m'aitenant le formulaire refuse de s'ouvrir sauf en mode cr&#233;ation.

J'ignore ce qui affais ca.

J'espere que le code complet te donnera une id&#233;e.

Merci

Cordialement

A bient&#244;t

valtrase · Answer

Salut;
V&#233;rifie que ta zone de liste n'est pas &#224; s&#233;lection multiple dans les propri&#233;t&#233;es

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

Acun est s&#233;lectionn&#233; dans selection multiple de la zone liste.

Cordialement

A bient&#244;t

valtrase · Answer

Vi.
Bon deux questions &#224; quoi te sert la boucle 
For Each affiche In Me.Controls


Next affiche
Avec rien dedans ?
Ensuite &#224; quoi te sert la requette en fin de sub :


Private Sub Liste128_BeforeUpdate(Cancel As Integer)


Et pour finir n'as tu pas mis de code dans 
Private Sub Liste128_Click
Bon &#231;a fait trois questions mais bon .......

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

oui, tu as raison, je ne vois pas pour quoi j'ai mis un boucle si je m'en sert pas.

Cette base de donn&#233;es me rend fou.


Me.Liste128.RowSource = "select nom,prenom from Tbl_evaluation"
Me.Liste128.Requery

Le code ci-dessus sert &#224; afficher le r&#233;sultat dans la liste128.

Il n' y a pas de Private Sub Liste128_Click

Je suis en trein de modifier le code.

J'ai r'ajout&#233; une zonne de liste.

Voil&#224; comment sa doit fonctionner.

1) on tape le nom dans la zone de text et on appuis sur le bouton.

2) le resultat s'affiche dans la zone liste 128 (le ou les nom's' et prenom's')

3) lorsque l'on clickera sur notre choix sur la zone liste 128 les dates des &#233;valuations enregistr&#233;s devront s'afficher dans la zone liste 130 (zone liste que je viens d'ajouter)

4) Et lorseque l'on clickera sur l'une des dates de la zone liste 130, je veux que les donn&#233;es de l'evaluation s'affichent dans les zones de texte situ&#233; en dessou des zone de listes.

Avez-vous compris ce que je d&#233;sir faire?

Vous les vous voire les modification que j'ai faite?

Avez vous des sugestion &#224; me faire?

Merci de votre aide

Cordialement

A bient&#244;t

Besoin d'aide pour corriger un code vba

13 réponses

Discussions similaires