Discussion :

[cedric.boucher]

Bonjour à tous.

Toujours au sujet de mon petit programme que j'essaye de faire , j'ai de nouveau besoin de votre savoir...

Je possède une table nommée ( T_objectif_mois )



Avec un formulaire qui me permet de filtrer et d'afficher ( id_vendeur_obj ),( mois_obj) et ( objectif ) dans une liste nommée ( T_Liste_objectif )



Ceux filtre s'effectue grâce à une " zone de liste déroulante " une nommée ( choix_vendeur).



J'aimerais pouvoir modifier l'enregistrement de la table une fois filtré et ne modifier que le champ ( objectif ) grâce aux " zone de liste déroulante " nommée ( T_choix_objectif ) et ( T_choix_mois ) et ( T_id_vendeur )

J'ai réussi à me dépatoger sur pas mal de chose, mais la manipulation de requête en VBA me bloque un peu.

J'ai bien regarder un peu partout et j'ai bien trouver un code qui ressemble à ceux que je veux faire mais j'ai l'impression qu'il manque qu'elle que chose

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
Private Sub B_modifier_Click()
 
Dim dbs As Database
Dim qdf As DAO.QueryDef
Dim rst As Recordset
 
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("R_objectif_mois_vendeur")
 
    qdf.Parameters("id_vendeur_obj") = Me.choix_vendeur
    qdf.Parameters("mois_obj") = Me.T_choix_mois
 
Set rst = qdf.OpenRecordset()
 
Do Until rst.EOF
    If rst("objectif") = True Then
       With rst
            .Edit
            .Fields("objectif").Value = Me.T_choix_objectif.Column(1)
            .Update
        End With
    End If
    rst.MoveNext
Loop
 
rst.Close
 
Me.T_Liste_objectif.RowSource = "R_objectif_mois_vendeur"
 
 
End Sub

Merci pour votre lecture et peut-être votre aide

[hyperion13]

Salut
Par convention :
T ou tbl pour table // R ou qry pour requête // F ou frm pour formulaire // E ou rpt pour état
zone de texte = textbox // zone de liste = listbox // zone de liste déroulante = cbo // case à cocher = chkbox etc.

Pour le nouvel objectif il serait plus sage d'utiliser une textbox que d'utiliser une cbo (1, ..., 10, 100, ..., 900, ..., 1000, ..., 9999, 10000, ... , 99999, ....)
Question en img

[cedric.boucher]

Salut Hyperion

Désole après une triste semaine remplie de mauvaise nouvelle j'ai décidé de mis remettre.

J'ai réussi à trouver comment faire et je peux donc clôturer ce sujet.
J'ai réussi en modifiant ma table en lui ajoutant un numéro unique qui me sert de filtre

Je prends également t'es remarque en compte et essayes de renommer tout cela pour faciliter la lecture.
Encore merci Hyperion