Discussion :

[morobaboumar]

Bonsoir membres du forum !
Comment faut il programmer un formulaire en mode tabulaire ou en mode Feuille de données
de sorte à sélectionner plusieurs lignes (Sélection multiple: Simple) telle qu'on le fait avec le contrôle
zone de liste ?
Cordialement.

[tee_grandbois]

bonjour morobaboumar,
il faudrait ajouter une case à cocher dans la table de manière à pouvoir sélectionner les enregistrements.

[morobaboumar]

Bonsoir membres du forum,
bonsoir tee_grandbois,
j'ai créé une BD en m'inspirant de votre post de la discussion https://www.developpez.net/forums/d1...uts-multiples/.
Voici les erreurs qui résultent du code que j'ai essayé d'adapter à mon cas

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 BtnEnregisterArticles_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
 
With Me.ListeArticleEnregistresA_Commander
    ' contrôle saisie articles
    If .ItemsSelected.Count = 0 Then Exit Sub
    ' contrôle saisie client
    If IsNull(Me.Num_Inscription) Then
        MsgBox "L'élève n'a pas été sélectionné.", vbCritical
        Me.Num_Inscription.SetFocus
        Exit Sub
    End If
 
    stMsg = "Voulez-vous insérer les articles 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("ArticlesScolairesEnregistres_Achetes", dbOpenDynaset)
 
' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        oRS.AddNew
        oRS.Fields("NumEnregistreArticle") = .ItemData(Itm)
        oRS.Fields("NumInsCriptEleve") = Me.ArticlesScolairesEnregistres_Achetes_SF
        oRS.Update
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
End With
 
End Sub

Pièces jointes:


Copie de ma BD.
Cordialement.

[tee_grandbois]

bonsoir,
vérifie que le champ NumEnregistreArticle fait bien partie de la table du RecordSet utilisé ici :

Code :

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

Set oRS = oDb.OpenRecordset("ArticlesScolairesEnregistres_Achetes", dbOpenDynaset)

[morobaboumar]

Salut tee_grandbois,

J'ai corrigé mon erreur dans le code:

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 BtnEnregisterArticles_Click()
Dim stMsg As String
Dim Itm As Variant
Dim oDb As Database
Dim oRS As Recordset
 
With Me.ListeArticleEnregistresA_Commander
    ' contrôle saisie articles
    If .ItemsSelected.Count = 0 Then Exit Sub
    ' contrôle saisie client
    If IsNull(Me.Num_Inscription) Then
        MsgBox "L'élève n'a pas été sélectionné.", vbCritical
        Me.Num_Inscription.SetFocus
        Exit Sub
    End If
 
    stMsg = "Voulez-vous insérer les articles 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("ArticlesScolairesEnregistres_Achetes", dbOpenDynaset)
 
' ajout des éléments sélectionnés
    For Each Itm In .ItemsSelected
        oRS.AddNew
        oRS.Fields("ARTICL_SCO_EnrAchete") = .ItemData(Itm)
        oRS.Fields("NumInsCriptEleve") = Me.ArticlesScolairesEnregistres_Achetes_SF
        oRS.Update
    Next Itm
 
' enlever la sélection
    .RowSource = .RowSource
 
' affichage des éléments saisis
    Me.Refresh
End With
 
End Sub

et modifié le type de donnée du champ "NumVente_Fourn_Scol" en NuméroAuto.
L'insertion des données du côté du champ "ARTICL_SCO_EnrAchete" marche.
Mais les autres champs restent vides. Je souhaiterais alors insérer les données dans le formulaire "ArticlesScolairesEnregistres_Achetes_SF" d'abord
avant d'atteindre la table dudit formulaire.
Afin que les champs: Etabissement_NO; anneescol; NumInsCriptEleve; Mleeleve puissent recevoir leurs données respectives selon l'élève sélectionné
à partir de la zone de liste déroulante "Num_Inscription".





Ici https://www.developpez.net/forums/d1.../#post10814537,
aidez moi à mieux comprendre la selection multiple dans un formulaire.

A+

[tee_grandbois]

Etabissement_NO; anneescol; NumInsCriptEleve; Mleeleve

où peut-on trouver ces champs ?
je ne trouve que les 2 premiers dans les colonnes de la liste ListeArticleEnregistresA_Commander et ça ce code comme cela:

Code :

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

1
2
orst.fields("IdentifEtablissement") = .Column(9,itm)
orst.fields("ANNEE_SCOL") = .Column(8,itm)