Discussion :

[mamwa]

Bonjour,

Je suis débutante en VBA et j'aurais vraiment besoin de votre aide pour un projet.

J'ai un sous formulaire de catalogue de prix que je peux cocher(BPUmodèle!fLignesBPUmodèle), et je voudrais pouvoir importer les prix que j'ai coché dans un autre sous formulaire(fBPU!CTNRsfLignesDevis).
Pour l'instant mon code fonctionne mais quand je coche plusieurs cases il y a qu'un seul enregistrement qui s'importe.

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
Private Sub BtValider_Click()
 
If CurrentProject.AllForms("fBPU").IsLoaded = True Then
    If chkImportation = True Then
          Forms!fBPU!CTNRsfLignesDevis.Form!txtNom = Me.txtNom
          Forms!fBPU!CTNRsfLignesDevis.Form!txtNuméro = Me.txtNuméro
          Forms!fBPU!CTNRsfLignesDevis.Form!txtDescription = Me.txtDescription
          Forms!fBPU!CTNRsfLignesDevis.Form!txtMiseenoeuvre = Me.txtMiseenoeuvre
          Forms!fBPU!CTNRsfLignesDevis.Form!txtAide = Me.txtAide
          Forms!fBPU!CTNRsfLignesDevis.Form!txtUnité = Me.txtUnité
          Forms!fBPU!CTNRsfLignesDevis.Form!txtPrixUnitaire = Me.txtPrixUnitaire
          Forms.fBPU.CTNRsfLignesDevis.Form.Refresh
          DoCmd.Close acForm, Me.Name
    End If
End If
 
chkImportation = False
Me.Refresh
 
End Sub

J'aimerais que tous les enregistrements que je coche sois transférés.
Merci d'avance pour votre aide

[Zekraoui_Jakani]

Faites plus simple: lorsque vous cochez un ou plusieurs prix, laissez "une requête d'ajout ou append query" écrire les prix choisis dans la table-source du sous-formulaire.
Il ne vous reste plus qu'à réinitialiser cette table (via delete query) pour nouvel usage, ou bien empêcher que les prix déjà choisis ne se rajoutent pas de nouveau (via citère-filtre), selon vos besoins.

[Jeannot45]

Petit exemple pour éviter de long discours

N'hésite pas à poser des questions

[mamwa]

Bonjour merci beaucoup pour vos réponses et désolé pour le temps d'attente j'étais en vacances

J'ai opté pour un mélange de vos 2 solutions. J'ai crée une requête ajout "Importation" et j'ai recopié le code de la SGBD de @Jeannot45 (merci c'est beaucoup plus simple avec un téléchargement ).

Mais j'ai le même problème sauf que la dernière ligne que je sélectionne se répète 200 fois et les autres que j'ai sélectionnées ne s'ajoutent pas à ma table.

Voici ma requête "importation" :

Code :

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

1
2
3
4
5
INSERT INTO bpu ( IDbpu_catégories, numéro, nom, Description, Aide, [Mise En Oeuvre], unité, [Prix Unitaire], IDaffaire )
SELECT [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle]![IDbpu_catégories] AS Expr1, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtnuméro] AS Expr2, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtnom] AS Expr3, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtDescription] AS Expr4, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtAide] AS Expr5, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtMiseenoeuvre] AS Expr6, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtunité] AS Expr7, [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![txtPrixUnitaire] AS Expr8, [Formulaires]![fBPU]![IDaffaire] AS Expr9
FROM bpu_catégories INNER JOIN bpu ON bpu_catégories.IDbpu_catégories = bpu.IDbpu_catégories
WHERE ((([Formulaires]![BPUmodèle]![CTNRsfBPUmodèle].[Formulaire]![chkImportation])=True))
ORDER BY [Formulaires]![BPUmodèle]![CTNRsfBPUmodèle]![IDbpu_catégories];

Et mon code sur le formulaire :

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
Private Sub BtValider_Click()
 
If CurrentProject.AllForms("fBPU").IsLoaded = True Then
    With DoCmd
        .SetWarnings False
        .OpenQuery "Importation"
        .SetWarnings True
    End With
    Forms.fBPU.CTNRsfLignesDevis.Form.Refresh
    DoCmd.Close acForm, Me.Name
End If
 
chkImportation.Value = False
Me.Refresh
MsgBox ("Terminé")
End Sub

[Jeannot45]

Désolé d'avoir envoyé une base exemple avec une erreur.
Ci joint base corrigée

Bonne journée

[Jeannot45]

En relisant ton premier Post, j'ai vu que tu cochais les éléments que tu souhaitais récupérer.
Je t'ai refait un exemple se basant sur ce principe.

Du coup, je n'utilise plus la Syntaxe

Code SQL :

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

INSERT INTO ...

mais en utilisant des Recordsets et la méthode AddNew

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
    ' Initialisation de la sequence SQL Source et récupération des différents Articles sélectionnés
    l_strSql = "SELECT CodeArticle FROM T_Articles WHERE Selection = -1"
    Set l_rsArticles = CurrentDb.OpenRecordset(l_strSql)
    ' Initialisation de la sequence SQL de la Cible
    l_strSql = "SELECT CodeDevis, CodeArticle FROM T_DetailsDevis"
    Set l_rsDevis = CurrentDb.OpenRecordset(l_strSql)
 
    ' Parcours le jeu d'enregistrements des articles sélectionnés
    With l_rsArticles
        Do While Not .EOF
            ' ajoute les données dans la table de détails du devis
            l_rsDevis.AddNew
                l_rsDevis.Fields("CodeDevis") = Me.txtDevis
                l_rsDevis.Fields("CodeArticle") = .Fields(0)
            l_rsDevis.Update
            .MoveNext
        Loop
    End With

Bonne continuation

[mamwa]

Bonjour,

Merci beaucoup Jeannot45, j'ai repris votre code et ça fonctionne enfin.
Ca me sauve la vie merci encore