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.