Besoin d'aide en SQL avec accessRésolu

Question

Bonjour tout le monde

on tape le nom recherch&#233; dans une zone de text. 

les noms et prenoms s'affiche dans une zone de liste (car plusieurs membres de la famille peuvent &#234;tre inscrite) 

Lorsque l'on click sur l'un des noms et prenoms, les dates des  enregistrements doivent s'afficher dans une autre zone de liste.

Et lorsque l'on clique sur une date, les donn&#233;es enregistr&#233; &#224; cette date doivent apparaitre dans les zones de texte correspondantes
. 

Voici le code ci-dessous

Private Sub Commande127_Click() 

Me.Liste136.RowSource = "select nom,prenom from tbl_eval_nom where nom like '*" & Texte1.Text & "*';" 
Me.Liste136.Requery 

End Sub 

Private Sub Liste136_BeforeUpdate(Cancel As Integer) 

Me.Liste130 = "select nom,prenom from tbl_eval_nom where nom like '*" & Liste130.list & "*';" 
Me.Liste130.Requery 

End Sub 

Private Sub Liste130_BeforeUpdate(Cancel As Integer) 

Dim var As String 

var = Nz(Me.Liste130) 
strsql "select 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 

Mon probleme est que ca ne fonctionne pas, il me lance l'erreur d'execution 2185

"impossible de faire une r&#233;f&#233;rence &#224; un propri&#233;t&#233; ou de la d&#233;finir pour un controle si ce dernier n'est pas activ&#233;"

je ne voix pas ce qu'il veut dire pare cette erreur, je sais que ca viens de Me.Liste136.RowSource = "select nom,prenom from tbl_eval_nom where nom like '*" & Texte1.Text & "*';"

Mais je ne voix pas comment le resoudre.

Pouvez vous m'aider svp.

Merci

Bonne f&#234;tes de fin d'ann&#233;e

Cordialement

A bient&#244;t

cs_Nurgle · Accepted Answer

Salut,

ton probl&#232;me ne vient pas de la syntaxe SQL mais de ton code VB, je te conseille donc de poser ta question sur www.vbfrance.com, tu auras plus de chance qu'on te r&#233;ponde...

Nurgle

developvbdebut · Answer

Bonjour tout le monde

J'ai r&#233;ussi &#224; r&#233;gler mon probl&#232;me, c'&#233;tai bien le code vba quine fonctionn&#233; pas.

Merci

Cordialement

A bient&#244;t

Besoin d'aide en SQL avec access

2 réponses

Votre réponse

Discussions similaires