Comment remplir un formulaire continu avec une boucle en vba

**lololebricoleur** · 06/12/2019, 11h45

Bonjour,

Est-il possible de remplir le détail d'un formulaire continu , ligne par ligne, en utilisant une boucle VBA ?
Le but étant que le contenu du formulaire soit totalement indépendant de toute table et requête SQL

Merci de votre aide.

**hyperion13** · 06/12/2019, 15h33

Salut
Avec un nuage de ceci, un zeste de cela.

**lololebricoleur** · 06/12/2019, 18h12

Merci Hyperion,

Je vais essayer de retrouver mes petits dans tes suggestions ;-)

**lololebricoleur** · 07/12/2019, 13h59

Hyperion,

Merci de ton aide mais je dois avouer que j'ai du mal à m'y retrouver.
Un petit coup de pouce serait le bienvenu ;-)

Merci d'avance

**Arkham46** · 07/12/2019, 14h59

Bonjour,

Le Data Shaping est fait pour cela :
https://arkham46.developpez.com/arti...s/msdatashape/

**hyperion13** · 07/12/2019, 15h35

En complément de la réponse d'Arkham46

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Open(Cancel As Integer)
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT ida, a1, a2 FROM tblA", dbOpenDynaset)
Set Me.Recordset = rst
 
Me![txtida].ControlSource = "ida" 'txtida = textbox dans le form / ida champ de la tbl
Me![txta1].ControlSource = "a1"
Me![txta2].ControlSource = "a2"
End Sub

**lololebricoleur** · 07/12/2019, 18h04

Merci Arkham et merci Hyperion,

Je ne connaissais pas le Data Shaping

Merci encore de votre aide précieuse

**lololebricoleur** · 07/12/2019, 18h42

Hyperion,

J'ai testé ton code, il marche mais mon formulaire n'affiche qu'une seule ligne.

J'ai raté un truc ?

**hyperion13** · 07/12/2019, 20h37

Comme sur l'img ?

Ajouter dans la sub

Code :

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

Me.Form.InsideHeight = 567 * n ' 567 = 1cm et n = nombre de cm

**lololebricoleur** · 07/12/2019, 21h30

Non, y'a vraiment qu'une ligne. J'ai mis à non la taille ajustée et la fenêtre n'affiche qu'une ligne

**lololebricoleur** · 07/12/2019, 23h19

"Mon" 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
Private Sub Form_Open(Cancel As Integer)
'On Error GoTo Err_Form_Open
 
 
    Dim DBS As DAO.Database
    Dim rst As DAO.Recordset
 
    Set DBS = CurrentDb
 
    SQl = "SELECT DOCument.DOC_Num, DOCument.DOC_Lib, DOCument.DOC_Select, BOUton.BOU_Nom, DOCument.DOC_Nb, DOCument.DOC_Prev, DOCument.DOC_Pdf" & _
    " FROM BOUton LEFT JOIN (IMPression LEFT JOIN DOCument ON IMPression.IMP_Doc = DOCument.DOC_Num_Bis) ON BOUton.BOU_Num = IMPression.IMP_Bou" & _
    " WHERE (((BOUton.BOU_Nom) = '" & Bimp & "') And ((Impression.IMP_Actif) = True) And ((DOCument.DOC_Actif) = True))" & _
    "ORDER BY DOCument.DOC_Lib;"
 
    Set rst = DBS.OpenRecordset(SQl, dbOpenDynaset)
    Set Me.Recordset = rst
 
    Me![DOC_Lib].ControlSource = "DOC_Lib" 'txtida = textbox dans le form / ida champ de la tbl
    Me![DOC_Num].ControlSource = "DOC_Num"
 
End Sub

**hyperion13** · 08/12/2019, 07h45

Et tu as vérifié le résultat de la syntaxe SQL dans une req graphique (QBE) ?
Quelle est l'origine de cette variable ? BOU_Nom = '" & Bimp & "'

**lololebricoleur** · 08/12/2019, 11h08

Slt Hyperion

Pas acquis de conscience, je viens de re tester ma requête, elle fonctionne. Dans le cas que je test, elle devrait me sortir 2 résultats.

La variable Bimp est renseignée au clic sur le bouton appelant. Je l'utilise pour n'afficher que les documents utiles selon le bouton appelant.

**lololebricoleur** · 08/12/2019, 11h13

J'ai trouvé,

Dans mes différents test, j'avais changé le type d'affiche en feuille de données plutôt que formulaire continu
En formulaire continu, ça fonctionne.

Maintenant, il me reste à rendre les case à cocher indépendantes
Et parcourir les enregistrement du formulaire au clic de validation

**lololebricoleur** · 08/12/2019, 11h15

Question d'ordre général :
Pourquoi on écrit Me![DOC_Lib] et pas Me.DOC_Lib ?

**lololebricoleur** · 08/12/2019, 11h33

Problème Hypérion,

Avec ce code, les champs de mon formulaire sont liés à la table source et c'est justement ce que je ne veux pas.
Je ne veux pas car j'ai plusieurs utilisateurs qui peuvent potentiellement utiliser ce formulaire en même temps et que les sélections des uns et des autres doivent être indépendantes.
Au départ, j'ai bossé avec des copies de la table source (une copie par utilisateur) mais j'ai des interférences que je n'arrive ni à expliquer ni à maitriser totalement.
D'où mon approche différente avec un formulaire totalement indépendant de toute table.

**lololebricoleur** · 08/12/2019, 11h44

Arkham46,

Si j'utilise le Data Shaping, il semble que je ne pourrais pas rendre des cases à cocher modifiables dans mon formulaire, exact ?
Car justement, ce que je veux afficher c'est une liste de documents d'une table source tout en permettant à l'utilisateur de sélectionner les doc qu'il souhaite.

Merci de ton aide

**lololebricoleur** · 08/12/2019, 12h02

Je tourne en rond en fait car soit j'arrive à rendre mes cases à cocher active mais elles sont alors nécessairement liées à une source.
Soit elles sont indépendantes mais alors elles sont figées ou dépendantes les unes de autres.

**hyperion13** · 08/12/2019, 13h07

Envoyé par lololebricoleur

Bonjour,
Est-il possible de remplir le détail d'un formulaire continu , ligne par ligne, en utilisant une boucle VBA ?
Le but étant que le contenu du formulaire soit totalement indépendant de toute table et requête SQL
Merci de votre aide.

une réponse déjà donnée ici.