Discussion :

[Kyrhia]

Bonjour a tous,

je vais tenter d'être explicite.

J'ai un formulaire avec dans ce formulaire une liste déroulante (lst_ref) qui a pour contenu les references produit de ma table "articles"

Dans une zone de liste(lsttest) j'affiche la quantite correspondant au produit (stocker dans la meme table "articles") selectionner dans ma zone deroulante.

Mon probleme: je n'arrive pas a recuper cette valeur dans une zone de texte.(result)

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
 
Private Sub Form_load()
 
   Me.result = ""
   Me.lst_ref = ""
 
   Me.lsttest.RowSource = ""
   Me.lsttest.Requery
 
End Sub
 
Private Sub lst_ref_AfterUpdate()
 
   Refreshquery
 
End Sub
 
Private Sub Refreshquery()
  Dim SQL As String
 
  SQL = "SELECT Qtéenstock FROM Articles WHERE Articles!Réference = '" & Me.lst_ref & "'"
  SQL = SQL & ";"
 
  Me.lsttest.RowSource = SQL
  Me.lsttest.Requery
 
  Me.result = Me.lsttest.Value
 
End Sub

Pour etre clair en fait je recupere une valeur qui est toujours la meme. J'ai l'impression qu'il me recupere la valeur ou est positionner le focus sur la zone de liste.

Merci pour votre aide.

[Frank]

Exemple dans l'aide Access:

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
 
Public Sub Read_ListBox()
 
    Dim intNumColumns As Integer
    Dim intI As Integer
    Dim frmCust As Form
 
    Set frmCust = Forms!frmCustomers
    If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then
 
        ' Any selection?
        intNumColumns = frmCust!lstCustomerNames.ColumnCount
        Debug.Print "The list box contains "; intNumColumns; _
            IIf(intNumColumns = 1, " column", " columns"); _
             " of data."
 
        Debug.Print "The current selection contains:"
        For intI = 0 To intNumColumns - 1
            ' Print column data.
            Debug.Print frmCust!lstCustomerNames.Column(intI)
        Next intI
    Else
        Debug.Print "You haven't selected an entry in the " _
            & "list box."
    End If
 
    Set frmCust = Nothing
 
End Sub

Comme quoi la légende de la touche est bien vérifiée...

[seacat]

bonjour,

si j'ai compris le pb la solution est relativement simple

dans la propriété source de la liste il y a une requete qui comporte un certain nb de champs

On retrouve ce nb dans la Ppté nb de colonnes

Dans ta zone de texte il te suffit de mettre en source:

NomZoneListe.colonne(x) où x correspond à la colonne/champ que tu souhaites récupérer

des que tu changes de valeur dans la liste, la zone de texte se met à jour

[Kyrhia]

j'ai essayer les deux solutions.

La premiere je ne voie pas tres bien ou je dois la placer car dans le cas present si je rajjoute juste la sub il ne se passe rien de plus.

pour la deuxieme solution lorsque je met mazoneliste.colonne(1) en l'occurence car je n'ai qu'une ligne dans ma zone de liste il ne trouve aucune valeur.

Je signale que je suis débutant et que j'avoue que la soluce de franck je ne l'a comprends pas trop.

Merci.

[Kyrhia]

si je rajoute ce code

Code :

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

1
2
3
4
5
6
 
private sub lsttest_click()
 
Me.result = Me.lsttest.value
 
End sub

Si je clique sur la valeur de la zone de liste cela fonctionne.
Mais j'aimerai eviter ce click et que cela se fasse automatiquement.

Merci.

[jean-paul lepetit]

Salut,

je comprends pas bien l'utilité de ta deuxième liste

lsttest

[Kyrhia]

Et bien en fait je veux recuperer la valeur pour ensuite faire un calcul dessus.
Hors il me semble qu'il est impossible de recuperer une requete SQL autrement que dans une zone de liste.(je me trompe peut etre).

Donc j'aimerais recuperer la quantite pour l'ajouter a une autre quantite (un autre champs du formualire) en faisant le calcul au niveau de la zone de texte "result".

[Kyrhia]

je te donne un exemple avec l'evement sur click qui fonctionne

Code :

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

1
2
3
4
5
6
 
Private Sub lsttest_Click()
 
Me.result = Me.lsttest.Value + Me.txt_qte
 
End Sub

"en plus du code en haut"

txt_qte etant mon autre quantite dans une partie du formulaire et la ca marche !!
Donc si j'arrivais a obtenir ma valeur dans Me.lsttest.Value sans le click ca serait parfait.

[jean-paul lepetit]

Je pense que tu te compliques la vie pour pas grand chose.

Si j'ai bien compris, dans ta table, tu as un enregistrement avec Reference et Quantité.

Ta zone de liste est basée sur une requête dans laquelle tu récupères les champs Reference et quantite de ta table article.
Dans les propriétés /format, tu mets Nbre de colonnes 2 et largeur colonne ;0 (pour masquer la 2eme colonne)

Puis sur l'evenement Apres mise à jour, tu mets ce bout de code

Code :

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

Me.result.value=Me.lst_ref.column(1)

[Kyrhia]

il me semble que dans ton code tu as pris ma zone deroulante et non de liste.

Mais j'avais deja essayé ca et cela ne fonctionne pas.

Cependant dans ma zone de liste je fais une requete seulement sur la quantite et non sur la reference.

Enfin ce n'est pas grave j'ai dû mal m'exprimer, ce n'est pas grave, je vais chercher et je trouverai bien une méthode.

Merci a tous de votre aide meme si cela n'a pas avancé mon schmilblick

[jean-paul lepetit]

Faut pas baisser les bras comme ça...

Dans ta table, tu peux avoir plusieurs fois la même réference avec diverses quantité ?

C'est a dire que ta deuxieme liste affiche plusieurs valeurs.

Ai-je bien compris ?

[Kyrhia]

non je ne peux avoir qu'une seule quantite par reference.

Ma cle primaire est base sur la reference article.

La quantite dont je te parle et en fait ma quantite en stock.
Elle doit etre mise a jour mais c'est tout

[Kyrhia]

Je vais t'expliquer clairement ce que je veux faire.

j'ai donc une table articles avec une quantite unique en stock par reference.
Cette quantite en fonction des achats et des ventes va variée.

J'ai donc un formulaire de saisie pour les achats et un formulaire de saisie vente avec leur propre table. (ici les doublons sont acceptes car je peux acheter ou vendre le meme articles plusieurs seule la date et la quantite et peut etre le prix va varié)

Il faut donc que j'arrive a mettre a jour cette quantite en stock en fonction des achats et des ventes.

J'ai l'impression que ce n'est pas evident et comme je suis un debutant en VB je sens que je vais faire chié pas mal de monde, donc comme j'aime bien chercher aussi, je ne baisse pas les bras mais je ne veux pas embeter tout le monde

Merci de ton aide en tout cas.

[seacat]

salut,

je voulais aficher une image pour illustrer mon propos mais je rencontre quelques difficultes

je vais donc essayer d'expliquer mieux ma suggestion

ta zone de liste a, dans la propriété 'contenu' une requete

ex:

Code :

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

1
2
3
 
SELECT DISTINCT produits.NUMART, produits.REFEXT, produits.FCOD, produits.DESIGNATION, produits.CASIER, produits.TVA, produits.CONDIT, produits.PVTE, produits.MOTPRINC, produits.REFINT, produits.STOCK
FROM produits;

elle a aussi un certain nb de colonne a ta convenance

a coté, dans ton formulaire tu as ta zone de texte, et dans la propriété source controle, tu mets

Code :

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

1
2
 
=[NomListe].column(10)

(ici 10 est le n° de la colonne dans laquelle se trouve l'info stock)

c'est réellement pas possible que ça ne fonctionne pas...