rampa99
Messages postés8Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention16 août 2005
-
15 août 2005 à 22:10
rampa99
Messages postés8Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention16 août 2005
-
16 août 2005 à 21:05
Bonjour à tous,
Je débute en Access et suis confronté au problème suivant:
Je suis dans un formulaire permettant de mettre à jour les enregistrements de la table Livres.
Les livres sont en relation avec les textes via la tables livres_textes.
Je n'ai pas de probleme à lister les textes associés à un livre.
Je souhaite créer un formulaire listant l'ensemble des textes existants
avec une préselection des textes déjà associés au livre du formulaire
mais je ne parviens pas à créer acceder aux elements de ma liste box
Ci joint le code associé à mon bouton:
Dim requete As String
Dim para As String
'récupération & conversion de l'identifiant du texte
para = Conversion.CStr(Forms!f_textes!textes_id.Value)
'requete de selection des contenants
requete = "SELECT contenants_id from contenants_textes where textes_id=" + para
Dim db As Database
Set db = CurrentDb
Dim R As DAO.Recordset
Set R = db.OpenRecordset(requete)
For i = 1 To Forms!f_textes_sf_contenants_MAJ!l_contenants.length
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 15 août 2005 à 23:38
salut
si çà peut t'aider, tes ! partout, çà me laisse perplexe...
2e point, requete, je l'aurais écrit de cette manière :
requete "SELECT contenants_id FROM contenants_textes WHERE textes_id '" & para & "'"
rampa99
Messages postés8Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention16 août 2005 16 août 2005 à 00:04
Petite précision: je suis en VBA pour Acces version 2002.
Les ! ne posent pas de pb pas plus que la requete (teste autrement).
Mon probleme c'est d'acceder aux Item de ma listBox et positionner la
valeur Selected à true.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 16 août 2005 à 00:17
j'ai précisé VB6 pour que tu vois pourquoi "perplexe" était le mot
je suppose que la commande Debug.Print existe sous VBA.
si c'est le cas, dans ta boucle, peux-tu remplacer MsgBox par Debug.Print et copier le résultat qui apparaitra dans la fenêtre d'execution, ici?
ainsi que le nom de ta ListBox stp
ce qui m'étonne surtout dans ta boucle, c'est qu'il n'y ait pas de MoveNext.....