Discussion :

[lumbroso]

Bonjour,

Voici le code que je viens de faire il marche mais que sur le premier enregistrement il ne prend pas en compte les autres

Code :

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

1
2
3
4
5
6
7
8
 
Dim db As Database 
Dim rs As Recordset  
Set db = OpenDatabase("g:\facturation\facture.mdb") 
Set rs = db.OpenRecordset("clients", dbOpenTable)
Frmfacture.cmdfacrefclt.Text = rs("numclt")
Frmfacture.cmdfacnomclt.Text = rs("nomclt")
Frmfacture.cmdfacprenomclt.Text = rs("prenomclt")

Merci

[ProgElecT]

Ado: comment récupérer les données depuis une bd? message n°2.
Employer un ListBox ou un ComboBox, faire une boucle en utilisant ComposantList.Additem.

[lumbroso]

salut
le probleme est que je suis en DAO
tu peux me corriger le code?

[ProgElecT]

recuperation d'un champ listbox[vb]

Pour répondre exactement au titre,

Code :

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

VarRecup = ListBox.List(ListBox.listIndex)

Par contre il semble que le titre devrait être Remplir un ListBox avec les champs d'une BD par DAO.
Que cela soit en ADO ou DAO, les commandes sont les mêmes.

Récupération des enregistrements (Set rs = db.OpenRecordset)
Si il y a un/des enregistrements (If rs.Bof = False Then)
Boucler de 1 à nombre d'enregistrements - 1 (For x = 1 To rs.RecordCount-1)
Ajouter le/les champs (ListBox.Additem rs.Fields("name"))
Avancer d'un enregistrement (rs.MoveNext)
Retourner en debut de boucle (Next x)
Fermer le recordset (rs.Close)
Fin de la condition If (End If)

[lumbroso]

re bonjour,
je crois que je me suis fais mal comprendre j'ai un listbox qui est deja alimenter en douclikan sur l'enregistrement desire je voudrai recuperer les champs du listbox pour les mettres dans 3 champs different nom,prenom, numclt
j'ai toujours un message d'erreur qui est "compil error: syntax error"

sur la ligne

Code :

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

Frmfacture.cmdfacrefclt.Text = Me.List1.AddItem rs("numclt")

voici le code modifie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub List1_DblClick()
Dim db As Database
Dim rs As Recordset
 
Set db = OpenDatabase("g:\facturation\facture.mdb")
Set rs = db.OpenRecordset("clients", dbOpenTable)
 
Frmfacture.Show
Frmfacture.cmdfacrefclt.Text = Me.List1.AddItem rs("numclt")
Frmfacture.cmdfacnomclt.Text = Me.List1.AddItem rs("nomclt")
Frmfacture.cmdfacprenomclt.Text = Me.List1.AddItem rs("prenomclt")
End Sub

[ProgElecT]

Je n'utilise pas DAO mais ADO, pour autant il me semble que ce

Code :

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

Frmfacture.cmdfacrefclt.Text = Me.List1.AddItem rs.Fields("numclt")

doit être juste.

[vb]

Bonsoir
Lorsque tu charge ta listBox quelle que sois ado ou dao tu dois marquer ton enregistrement comme unique comme dans cet exemple, avec ItenData et NewIndex!!

Code :

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

1
2
3
4
5
6
7
8
 
Set rsListeClient = Bd.OpenRecordset("select Nom,Prénom,Code_Clients from Clients  order by Nom")
While Not rsListeClient.EOF
    lstClients.AddItem rsListeClient![Nom] & Chr(9) & rsListeClient![Prénom]
    lstClients.ItemData(lstClients.NewIndex) = rsListeClient![Code_Clients]'numéro unique !!
    rsListeClient.MoveNext
Wend
rsListeClient.Close

dans l'événement click de ta ListBox... tu récupéres le numéros unique comme ceci , lCodeClient à déclarer en public dans un module, cela te serviras partout et après!

Code :

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

lCodeClient= lstClients.ItemData(lstClients.ListIndex)

Ensuite lors du double click tu récupéres les données [Code_Clients]ici) unique de ce clients....facture...à toi de voir

Code :

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

1
2
3
Dim strPointerClient As String
strPointerClient = "select * from Clients Where code=" & CStr(lCodeClient)
Set rsClients = Bd.OpenRecordset(strPointerClient, dbOpenDynaset)

Je donnes simplement un chemin à suivre à toi d'adapter
vb

[lumbroso]

salut

meme apres ce que tu m'a dit j'ai changer mon code en l'adaptant a ce mon application j'ai la meme a la meme ligne syntax error
je vous met en pj une partie de mon projet avecv son code d'origine car meme avec l'ancien code ca ne marche pas je vous remerci

[OhMonBato]

Merci de joindre des archives au format zip, reconnu par TOUS les PC équipés de Windows, à l'inverse du format rar.

[ProgElecT]

Code :

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

1
2
3
Dim strPointerClient As String
strPointerClient = "select * from Clients Where code='" & CStr(lCodeClient) & "'"
Set rsClients = Bd.OpenRecordset(strPointerClient, dbOpenDynaset)

Ne vaut il pas les apostrophes puisque c'est un STRING

[vb]

Code :

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

1
2
3
Dim strPointerClient As String
strPointerClient = "select * from Clients Where code='" & CStr(lCodeClient) & "'"
Set rsClients = Bd.OpenRecordset(strPointerClient, dbOpenDynaset)

Ne vaut il pas les apostrophes puisque c'est un STRING

Bonsoir ProgElect
Je me permet de revenir sur ton dernier post ci dessus, d'accord que celà est un String dans mon exemple, ici lCodeClient moi je remplace la chaine de caractère en convertissant ma variable avec la fonction Cstr...donc "& CStr(lCodeClient) fonctionne , je trouve mon code plus clair! Cela est juste un point de vue.Car si ont met les apostrophes ont vas tout droits à l'erreur de syntaxe !ou alors retirer la fonction Cstr...
Bien à toi
vb

[ProgElecT]

Merci de joindre des archives au format zip, reconnu par TOUS les PC équipés de Windows, à l'inverse du format rar.

moi non plus je n'ai pas installé de logiciel qui sait ouvrir/créer des .RAR.

[vb]

Bonjour,
Juste remarque ProgElecT , autant pour moi
vb

[lumbroso]

bonjour
encore un probleme je pete un cable voici le code corrige

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
Private Sub List1_DblClick()
Dim db As Database
Dim rs As Recordset
'Dim strPointerClient As String
Set db = OpenDatabase("g:\facturation\facture.mdb")
strPointerClient = "select * from Clients Where numclt='" & CStr(List1) & "'"
 
Set rs = db.OpenRecordset(strPointerClient, dbOpenDynaset)
 
'Set rs = db.OpenRecordset("clients", dbOpenTable)
'Frmfacture.Show
rs.MoveFirst
Frmfacture.cmdfacrefclt.Text = rs("numclt")
'Frmfacture.cmdfacnomclt.Text = ListBox.Additem rs.Fields("2")
Frmfacture.cmdfacnomclt.Text = rs("nomclt")
Frmfacture.cmdfacprenomclt.Text = rs("prenomclt")
End Sub

le code est le suivant error pas d'enregistrement en cours