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.

[SfJ5Rpw8]

Code :

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

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

AddItem est une méthode, pas une fonction et ne renvoit donc rien ... en plus si c'était une fonction il manquerait quand même des parenthèses ...

il faudrait revenir au début ... il y as quoi dans ta liste ? comment la remplie tu ?

[lumbroso]

bonsoir,

j'ai bien vu les reponses que vous m avez fourni mais le probleme est le meme erreur de syntax sur le rs
j'allimante ma listbox du formulaire facture en cliquant sur le bouton recherche
et la j'ai ma liste box qui se ouvre
ce que je veux c'est des que je double clique sur une ligne du listbox les coordonees de ce dernier s'affiche dans le formulaire facture

[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]

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

[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]

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

[SfJ5Rpw8]

Bo....Car si ont met les apostrophes ont vas tout droits à l'erreur de syntaxe !ou alors retirer la fonction Cstr...
Bien à toi
vb

?

le problème n'est pas les guillemets : " mais les apostrophes : ' que tu as oublié dans ton code ... et le type STRING concerne le champ code de la base de donnée

[vb]

?

le problème n'est pas les guillemets : " mais les apostrophes : ' que tu as oublié dans ton code ... et le type STRING concerne le champ code de la base de donnée

Bonsoir bbil,
Et pourtant dans mes requêtes tout fonctionne nickel, je suis peut trop bête ou trop fatigué ce soir pour suivre ton raisonnement hautement appréciable d'un pro, étant autodidacte j'en apprend tout les jours !!
Merci bbil

[lumbroso]

voici le fichier zipper
merci de l'aide

[ProgElecT]

Dans Frmfacture ne laisser, sous le bouton cmdrefclt, que ce

Code :

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

1
2
3
Private Sub cmdrefclt_Click()
frmlstclt.Show
End Sub

Dans frmlstclt ce

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Dim NumClient() As String
Private Sub cmdcancel_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
Dim maBase As Database
    Dim monRecordset As Recordset
 
    Set maBase = OpenDatabase(App.Path & "\facture.mdb")
    Set monRecordset = maBase.OpenRecordset( _
        "SELECT * FROM clients ORDER BY numclt", dbOpenSnapshot)
 
ReDim NumClient(monRecordset.RecordCount - 1)
    With monRecordset
        .MoveFirst
 
            Do While Not .EOF
                List1.AddItem !nomclt & vbTab & !prenomclt
                NumClient(List1.NewIndex) = !numclt
                .MoveNext
            Loop
 
       monRecordset.Close 'fermeture du recordset
    End With
 
    maBase.Close 'fermeture de la base de données
 
End Sub
 
Private Sub List1_DblClick()
Dim db As Database
Dim rs As Recordset
Dim strPointerClient As String
 
Set db = OpenDatabase(App.Path & "\facture.mdb")
strPointerClient = "Select nomclt, prenomclt From Clients Where numclt = '" & NumClient(List1.ListIndex) & "'"
Set rs = db.OpenRecordset(strPointerClient, dbOpenSnapshot)
 
Frmfacture.cmdfacrefclt.Text = NumClient(List1.ListIndex)
Frmfacture.cmdfacnomclt.Text = rs("nomclt")
Frmfacture.cmdfacprenomclt.Text = rs("prenomclt")
rs.Close
db.Close
Unload Me
End Sub

Sa fonctionne, pas le temps de commenter les lignes de code, vue l'heure