Discussion :

[othmane.badri]

Bonjour,

Je souhaite créer un formulaire d’ajout qui me permet d’ajouter plusieurs enregistrements au même temps, je vous explique :
J’ai 3 tables, « Clients », « Produits » et « ClientsProduits »
Je veux une zone de liste dans laquelle en choisi une seule fois le client, choisir grâce à des cases à cocher les produits et que le tous soit enregistrer dans ma table « ClientProduits » sous forme de plusieurs lignes par exemple :

Clients	Produits
Jean	132456
Jean	698523
Jean	125469
Jean	023695

J’espère avoir bien expliqué et Merci à tous

[volsan]

Bonsoir,

Une piste c'est de creer un sous-formulaire qui est lié à table clientsproduits et dans ce sous formulaire tu creer une liste déroulante qui te permet de sélectionner ton produit

[marot_r]

Bonjour.

Je veux une zone de liste dans laquelle en choisi une seule fois le client, choisir grâce à des cases à cocher les produits et que le tous soit enregistrer dans ma table « ClientProduits » sous forme de plusieurs lignes

Access n'offre pas d'outil en standard pour faire cela et si ce n'est pas absolument indispensable, je te recommande de suivre la suggestion de volsan où ton utilisateur pourra choisir un produit à la fois.

Si tu y tiens vraiment (ou ton client), il faut :

• Ajouter un champ "Oui/Non" dans ta table ClientsProduits
• Faire du code VBA pour ajouter à ta commande tous les produits (non coché).
• Une fois la saisie confirmée, faire du code VBA (qui pourrait appeler une requête de suppression) pour supprimer les produits non cochés.

Une autre possibilité est d'utiliser un formulaire déconnecté qui te présente la liste des produits puis de faire du code pour ajouter les infos du formulaire déconnecté dans la table.
Il y a un bon article ici qui explique comment procéder.
Create In-Memory ADO Recordsets
https://www.databasejournal.com/feat...Recordsets.htm

Enfin si tu ne tiens pas absolument aux cases à cocher, tu peux regarder du côté de contrôle Liste à sélection multiple (les éléments choisis sont affichés en blanc sur noir) et faire du code pour copier la sélection dans la table.
Ça évite d'avoir à utiliser le recordset déconnecté.

A+

[ilank]

Bonjour,

Il y a une solution qui consiste à utiliser un sous-formulaire en mode continu qui simule un groupe d'option, une requête pour alimenter ce sous-formulaire et du code vba pour effectuer les modifications sur la table de jointure ClientsProduits.

[othmane.badri]

Bonjour ilank,

serait-il possible de me présenter un exemple s'il vous plait, je comprend beaucoup mieux grâce aux exemples

Merci d'avance

[tee_grandbois]

bonjour,
une autre possibilité pour les produits: on peut utiliser une zone liste avec l'option Sélection multiple à Simple qui permet de sélectionner plusieurs éléments:



une base exemple en pièce jointe:
bClientsProduits.zip

[othmane.badri]

Bonjour tee_grandbois,

Vraiment merci pour votre réponse, votre exemple marche parfaitement comme je veux.

mais sur ma base de données, quand je clique sur enregistrer et j'appuie sur "oui", j'ai un message d'erreur qui apparaît, voir ci-dessous


Merci d'avance

[tee_grandbois]

ma base n'est qu'un exemple, il faut l'adapter à la tienne. De plus, je me suis basé sur l'information que tu as donné (3 tables et pas de table Fournisseurs).
Il faudrait que l'on voie ton modèle complet de données

[othmane.badri]

Re-bonjour,

C'est bon j'ai adapté votre exemple à mon fichier et ça marche, encore une fois Merci.

[othmane.badri]

Re-bonjour encore une fois ,

sur ma table "ClientsProduits" j'ai mis les champs "IdClients" et "IdProduits" obligatoires,
lorsque je choisi que les produits dans ma zone de liste de mon formulaire "SaisieCommande" j'ai un message d'erreur qui apparait voir ci dessous


Je souhaite que cette fenêtre n’apparaît plus ou que les boutons "aide" et "débogage" soit supprimer.
je met le fichier en pièce jointe

Merci pour votre aide precieuse

[tee_grandbois]

bonjour
ajoute ces instructions:

Code :

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

1
2
3
4
    If IsNull(Me.LstClients) Then
        MsgBox "Le client n'a pas été sélectionné.", vbCritical
        Me.LstClients.SetFocus
    Exit Sub

juste après celles-ci

Code :

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

1
2
With Me.LstProduits
    If .ItemsSelected.Count = 0 Then Exit Sub

[othmane.badri]

Re,
J'ai mis le code mais parcontre ca me met l'erreur ci dessous :

je sais pas où mettre le "With" demandé

Merci bien

[othmane.badri]

Quelqu'un a la solution ?
j'ai cru avoir réussi mais pas du tout

[othmane.badri]

Je Met le fichier en pièce jointe si ça peut vous aider ?

Ci ca peut vous aider aussi je vous met le code qui permet de afficher le msgbox Le client n'est pas choisi mais les nouvelle données ne sont pas enregistrer

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
Private Sub BtnEnregister_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
 
 
With Me.LstProduits
    If .ItemsSelected.Count = 0 Then Exit Sub
With Me.LstClients
        If IsNull(Me.LstClients) Then
        MsgBox "Le client n'a pas été sélectionné.", vbCritical
        Me.LstClients.SetFocus
    Exit Sub
        stMsg = "Voulez-vous insérer les produits suivants:" & vbCrLf
        For Each Itm In .ItemsSelected
            stMsg = stMsg & .Column(1, Itm) & vbCrLf
        Next Itm
 
' Confirmer l'insertion des produits
stMsg = stMsg & "?"
If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
 
Set oDb = CurrentDb
Set oRS = oDb.OpenRecordset("tbl_ClientsProduits", dbOpenDynaset)
 
' ajout des éléments sélectionnés
For Each Itm In .ItemsSelected
        oRS.AddNew
        oRS.Fields("IdProduit") = .ItemData(Itm)
        oRS.Fields("IdClient") = Me.LstClients
        oRS.Update
        Next Itm
 
' enlever la sélection
.RowSource = .RowSource
 
' affichage des éléments saisis
Me.Refresh
End If
End With
End With
End Sub

[tee_grandbois]

Code corrigé:

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
Private Sub BtnEnregister_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
 
With Me.LstProduits
    ' contrôle saisie produits
    If .ItemsSelected.Count = 0 Then Exit Sub
    ' contrôle saisie client
    If IsNull(Me.LstClients) Then
        MsgBox "Le client n'a pas été sélectionné.", vbCritical
        Me.LstClients.SetFocus
        Exit Sub
    End If
 
    stMsg = "Voulez-vous insérer les produits suivants:" & vbCrLf
    For Each Itm In .ItemsSelected
        stMsg = stMsg & .Column(1, Itm) & vbCrLf
    Next Itm
 
' Confirmer l'insertion des produits
    stMsg = stMsg & "?"
    If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
 
    Set oDb = CurrentDb
    Set oRS = oDb.OpenRecordset("tbl_ClientsProduits", dbOpenDynaset)
 
' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        oRS.AddNew
        oRS.Fields("IdProduit") = .ItemData(Itm)
        oRS.Fields("IdClient") = Me.LstClients
        oRS.Update
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
End With
 
End Sub

[othmane.badri]

Yeeep, Merciiii tee_grandbois

J'apprend de plus en plus grâce à vous et à ce forum

[tee_grandbois]

super,
n'oublie pas de mettre la discussion comme

[othmane.badri]

Re,

serait-il possible que vous penchiez sur une autre discussion que j'ai créer, lien ci dessous
https://www.developpez.net/forums/d1...te-deroulante/

Merci d'avance