Discussion :

[Grodaf]

Bonjour à tous,
je souhaite réaliser un formulaire pour consulter les données de ma base: c'est la liste des tarifs par client pour une boite de transport.

J'ai suivi cet excelent tuto: http://argyronet.developpez.com/offi...ectitemlistAB/
qui m'a permis de bien avancer
j'ai bataillé pour que ma requete s'execute correctement mais finalement ça marche. enfin plus ou moins

Je veux que quand on clic sur le nom du client toutes les infos, et particulierement les tarifs s'affichent. Ca fonctionne sauf que je récupère une "erreur" comme celle -ci:


lorsque je tape le nom du client, la requete s'execute correctement sauf que je voudrais que ça soit automatique quand je clic sur le nom du client dans la liste
Mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub lsnom_AfterUpdate()
Dim SQL As String, toto As String
 
    Txtadresse = lsnom.Column(1)  'remplissage des champs texte: adresse du client
    txtcomp = lsnom.Column(2)     'complément d'adresse
    txtcp = lsnom.Column(3)       'code postal
    txtville = lsnom.Column(4)    'ville
 
    'recherche des tarifs par requete SQL
    toto = Me.lsnom  ' <-- j'imagine que le pb est là
    SQL = "SELECT Tarification.Département, Tarification.[40], Tarification.[60], Tarification.[90], Tarification.Palette FROM Tarification INNER JOIN (Tarifs INNER JOIN Client ON Tarifs.[Nom du tarif] = Client.Tarif) ON Tarification.Nom_Tarif = Tarifs.[Nom du tarif] WHERE Client.Nom = toto "
    lstarif.RowSource = SQL
    lstarif.Enabled = True
 
End Sub

ce serait super sympa si vous pouviez me dire ce qui ne va pas dans mon code
Merci d'avance pour votre aide et pour ce site qui m'apprend beaucoup

[Grodaf]

j'ai changé la fin de ma requete par WHERE Client.Nom = " & toto & " "
pensant que l'erreur venait de là mais j'obtient maintenant une autre erreur


je dois toujours saisir une valeur de parametre mais dans la msgbox c'est maintenant marqué le nom du client sur lequel j'ai cliqué au lieu de toto
à noté que ce message n'apparait maintenant que pour les clients dont le nom ne comporte qu'un mot, sans espace donc... j'y comprend rien

si je rentre le nom de mon client dans la msgbox la requete s'execute toujours correctement

[Grodaf]

j'ai du y penser toute la nuit et me suis reveillé à 3h du mat avec une illumination
j'ai changé la fin de ma requete par WHEN Client.id_client = " & toto & "
j'ai ajouté l'idclient, un champs en Numéro Auto, à ma liste en colone cachée
et ça fonctionne....
reste à savoir pourquoi ça ne fonctionne pas avec une valeur texte comme le nom mais que ça fonctionne avec un chiffre...

[LE VIEUX]

salut,
dans ton premier post tu mets dim toto as string
donc quand tu fait référence à toto en tant que tel il faut le mettre entre " " ou ' ' .
si tu le mets tel quel il est considéré comme une variable il faut donc lui affecter une valeur.
toto = "toto" ou autre bien sur sinon voit pas l'utilité.