Pb pour remplir un formulaire en VBA

Version imprimable

Bonjour

Je cherche à affecter dynamiquement des valeurs à des zones de texte d'un formulaire, à partir d'un recordset. Les contrôles existent déjà (txtboxes dans la zone Détail, étiquettes dans la zone Header). J'ai écris ce code sur l'évènement "Form_Open" du formulaire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Form_Open(Cancel As Integer) Dim rst As Recordset Dim hdr, txt As String Set rst = CurrentDb.OpenRecordset("Req_Form_mensuel") For i = 1 To rst.Fields.Count hdr = "hdr_" & i txt = "txt_" & i Me.Controls(hdr).Caption = rst.Fields(i - 1).name Me.Controls(txt).ControlSource = "='" & rst.Fields(i - 1) & "'" Next i End Sub
Apparemment l'affectation se passe bien, car mes headers contiennent la bonne info, les zones de texte aussi.
Le problème c'est que bien que je soit en mode "formulaire continus", il n'y a qu'une seule ligne qui apparaît, or dans mon recordset il y en a plusieurs.
Pourquoi les autres lignes n'apparaissent-elles pas ?

Merci de votre aide

re-bonjour

J'ai avancé dans ma solution : il faut paramétrer la source du formulaire, et les lignes d'enregistrements apparaissent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Open(Cancel As Integer)
    Dim rst As Recordset
    Dim hdr, txt As String
    Set rst = CurrentDb.OpenRecordset("Req_Form_mensuel")
    Me.RecordSource = "Req_Form_mensuel"
    For i = 1 To rst.Fields.Count
        hdr = "hdr_" & i
        txt = "txt_" & i
        Me.Controls(hdr).Caption = rst.Fields(i - 1).name
        Me.Controls(txt).ControlSource = "='" & rst.Fields(i - 1) & "'"
 
    Next i
 
 
End Sub

par contre, j'ai la même valeur dans toutes les lignes !!!

01/04/2010, 22h20
marot_r

Avec le code que tu as écrit, le résultat que tu obtient et nornal. Pour chaque enregistement affiché tu assigne la valeur contenu dans le 1er enr.

Ce que tu veux faire c'est que les entêtes de colonne et le nombre de colonne change dynamiquement et que les données suivent.

Si c'est bien cela que tu veux faire je regarderai les formulaires de type croisé dynamique qui devrait faire cela sans une seule ligne de code.

Reviens sur le forum si les formulaires croisée ne répondent pas à ton besoin.

A+
06/04/2010, 12h16
patbeautifulday

Salut

Les formulaires croisés dynamiques ne sont pas très satisfaisant car il faut tout de même faire un drag and drop des champs de colonnes par l'utilisateur : moi je cherche à faire un formulaire tout fait en fonction des résultats de ma requête.

Question : y a-t-il un moyen d'affecter dynamiquement les valeurs d'un recordset à un formulaire en mode "continu" ?

Je sais que c'est possible comme par exemple dans ce code.
Je n'arrive pas à comprendre pourquoi là çà marche et pas chez moi.
06/04/2010, 13h16
jj4822

Bonjour.

Pourquoi ne pas construire le formulaire en utilisant l'automatisme d'Access ? Dans la creation assistee, on choisi le nom de la requete ou se trouvent les donnees, puis on defini les champs de la requete qui doivent se trouver dans le formulaire et enfin le type d'apparence des enregistrement (table etc).

Ca marche tres bien sans complication et sans code.

Cdlt.
06/04/2010, 14h27
patbeautifulday
Salut

J'ai trouvé la solution, dont je n'étais vraiment pas loin, voici le code :
C'était juste l'affectation des données aux contrôles qui pêchaient, il m'a juste fallu remplacer :
Code:

1 2 Me.Controls(hdr).Caption = rst.Fields(i - 1).name Me.Controls(txt).ControlSource = "='" & rst.Fields(i - 1) & "'"
par :
Code:

1 2 Me.Controls(hdr).Caption = rst.Fields(i - 1).name Me.Controls(txt).ControlSource = rst.Fields(i - 1).name
Et mon formulaire se remplit parfaitement!!
Merci à jj4822 et à marot_r pour leur participation sur ce post.