Discussion :

[dz737]

Bonjour tout le monde,

Je tiens à préciser que j'ai creusé google à la recherche d'infos avant de poster dans le Forum. Je vais essayer d’être le plus synthétique possible.

Dans un formulaire A il y a deux sous formulaires :

• Sous_formulaire 1 : Il a une source dynamique (des requêtes prédéfinies appelées selon le résultat d'une liste déroulante)
• Sous_formulaire 2 : Il a comme source la table Panier

Dans les requêtes qui sont appelées par le sous_formulaire 1 il y a une case à cocher "Sélectionné".


Ce que je veux faire c'est :
à partir de la source actuelle du sous_formulaire 1 copier les enregistrements où la case "Sélectionné" est vrai, et les coller dans la table Panier.

J'ai essayé avec le code suivant mais ça ne marche pas du tout :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub bouton_panier_Click()
 
Dim cSQL As String
 
 cSQL = "SELECT * INTO Panier"
 cSQL = cSQL + " FROM Forms![Formulaire A]![Sous_formulaire 1].Form.RecordSource "
 cSQL = cSQL + " WHERE Sélectionné.value = True"
 
End Sub

Je pense que je me perds entre du SQL et du VBA, ou je mélange d'autres concepts.

Merci de votre aide ce bout de code va me rendre fou.

[tee_grandbois]

bonsoir,
essaie comme cela:

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
Dim oRst1 As DAO.Recordset
Dim oRst2 As DAO.Recordset
' recordset formulaire 1
Set oRst1 = Me![Sous_formulaire 1].Form.RecordsetClone
' recordset formulaire 2
Set oRst2 = Me![Sous_formulaire 2].Form.RecordsetClone
 
Do Until orst1.EOF
    if orst1.fields("Sélectionné") then 
        oRst2.AddNew
        oRst2.Fields("champ1") = orst1.fields("champ1")
        oRst2.Fields("champ2") = orst1.fields("champ2")
        oRst2.Fields("champ3") = orst1.fields("champ3")
        ' ...
        oRst2.Update
    end if
    orst1.movenext
loop	
orst1.close
orst2.close
set orst1 = nothing
set orst2 = nothing

PS: je n'ai pas testé, j'ai fait ça à la volée

[dz737]

Un grand merci à toi !! effectivement ça marche.
Cependant, lorsque par exemple je sélectionne 2 articles, que je clique sur ajouter au panier (Donc copie du sous_formulaire 1 vers sous-formulaire 2) ça les copie bien, mais si je sélectionne encore un autre article après ça et que je reclique sur ajouter au panier, le programme ne fait rien.

Illustration :
Enregistrement 1 + Enregistrement 2 sélectionnés
Clique sur ajout au panier
Copie de enregistrement 1 + enregistrement 2 depuis le sous_formulaire 1 vers le sous_formulaire 2
MAJ des sélections : Enregistrement 1 + Enregistrement 2 + Enregistrement 3 sélectionnés
Clique sur ajout au panier --> Rien ne se passe

Or l'idéal pour moi serait qu'il rajoute à ce moment là l'enregistrement 3 à la table Panier. (Enregistrement 3 seulement puisque les 1 et 2 ont déjà été copiés).

Merci d'avance !

[Robert1957]

Bonjour dz737, tee_grandbois,

Clique sur ajout au panier --> Rien ne se passe

C'est parce que le RecordsetClone est rendu à la fin du jeu d'enregistrement. Il faut le ramener au début avec un ".MoveFirst".

Or l'idéal pour moi serait qu'il rajoute à ce moment là l'enregistrement 3 à la table Panier. (Enregistrement 3 seulement puisque les 1 et 2 ont déjà été copiés).

Comment identifier que l'enregistrement 1 et 2 ont été ajoutés? Genre identifiant unique?

Bonne journée

[dz737]

Or l'idéal pour moi serait qu'il rajoute à ce moment là l'enregistrement 3 à la table Panier. (Enregistrement 3 seulement puisque les 1 et 2 ont déjà été copiés).
Comment identifier que l'enregistrement 1 et 2 ont été ajoutés? Genre identifiant unique?

Enfaîte j'ai réglé le problème simplement en décochant automatiquement les cases qui ont servi à sélectionner les enregistrements à chaque clique sur Ajouter au Panier.

Code :

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

CurrentDb.Execute "UPDATE Selection SET Sélectionné = False WHERE Sélectionné=True"

C'est mieux que de se casser la tete à Identifier !


Sinon pour le .MoveFirst c'est où qu'il faut l’insérer dans le code? J'arrive pas à comprendre la logique derrière le RecordSet.MoveFirst

[Robert1957]

Bonjour dz737,

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
Dim oRst1 As DAO.Recordset
Dim oRst2 As DAO.Recordset
' recordset formulaire 1
Set oRst1 = Me![Sous_formulaire 1].Form.RecordsetClone
oRst1.MoveFirst  'Ici on force à revenir au début du jeu d'enregistrement
' recordset formulaire 2
Set oRst2 = Me![Sous_formulaire 2].Form.RecordsetClone
 
Do Until orst1.EOF
    if orst1.fields("Sélectionné") then 
        oRst2.AddNew
        oRst2.Fields("champ1") = orst1.fields("champ1")
        oRst2.Fields("champ2") = orst1.fields("champ2")
        oRst2.Fields("champ3") = orst1.fields("champ3")
        ' ...
        oRst2.Update
    end if
    orst1.movenext
loop	
orst1.close
orst2.close
set orst1 = nothing
set orst2 = nothing

Ligne 5 du code.

Bonne journée

[dz737]

ça marche, un grand merci à vous !

Je passe le sujet en résolu.