Discussion :

[Invité]

Bonjour ,

c'est une question un peu basique , mais je n'y arrive pas .



je voudrais recuperer le numero de l'emprunteur dans la liste des emprunteurs. en fait je me mélange avec les List , ListIndex , ItemData , ItemsSelected , j'essaye de faire un mix de plusieurs methodes

je sais que ListIndex sa recupere l'index de la ligne selectionné mais après faudrait que jrecupere le champ numero...

[LedZeppII]

Bonsoir,

Cherche du côté de la propriété Column de la liste.

Code vb :

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

Me.LaListe.Column(0)

pour la première colonne de la ligne sélectionnée.

A+

[Invité]

2éme probleme:

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
16
17
18
19
20
 
 
For I = 0 To ListeFilmsEmprunter.ListCount - 1
 
duree = Me.Controls("TXT_duree").Value
numero_emprunteur = Liste_Emprunteurs.Column(0)
nom_film = ListeFilmsEmprunter.ItemData(I)
req2 = "SELECT FILM.n_film FROM FILM WHERE titre = " & text2SQL(nom_film) & ";"
Set Result = BD.OpenRecordset(req2, dbOpenSnapshot)
n_film = Result.Fields("n_film")
req = "INSERT INTO EMPRUNT(numero_emprunt , numero_film , duree) VALUES ( " & numero_emprunteur & " , " & n_film & "  , " & duree & ");"
BD.Execute req
Next I
Result.Close
 
 
MsgBox "merçi d'avoir emprunter!"
Form_Menu!Liste_Films.Requery
Form_GestionEmprunteurs!Liste_Emprunteurs.Requery
DoCmd.Close

en fait ce code est censé m'ajouté pour un emprunteur , tous les films qu'on a selectionné à partir d'une liste. le probleme: il m'ajoute qu'une seule ligne à chaque fois dans ma table emprunt malgré la boucle for.

si je selectionne deux films f1 et f2 il devrait m'afficher pour l'emprunteur e1:

e1 num_f1 5
e1 num_f2 4

mais ce n'est pas le cas.

[LedZeppII]

désolé mais je ne vois pas.
Il faut tracer le code en pas à pas ou insérer une ligne

Code :

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

debug.print req

après

Code :

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

BD.Execute req

Tu pourra ainsi vérifier le SQL de la requête dans la fenêtre d'exécution de l'éditeur visal basic.