Discussion :

[Shades]

Bonjour,

J'ai un sous formulaire avec 4 champs, et j'appelle la source via VB tel que :

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_Load()
 
    Dim rst As DAO.Recordset
 
    'Sélection de la base de données
        Dim sSQL As String
        sSQL = "Select * From R_ValoCarbu"
 
    'Ouvrir
        Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
    'traitement
        Me.zdtIDEntree = rst![IDEntree]
        Me.zdtDateEntree = rst![Entré le]
        Me.zdtQte = rst![Qte]
        Me.zdtTotal = rst![Total]
 
    'close
        rst.Close
 
End Sub

Le sous formulaires est bien en mode continue mais au lieu de m'afficher les 3 lignes qui devraient apparaitre cela ne m'en affiche qu'une seule ?!

Or quand j’exécute "R_ValoCarbu" hors du sous formulaire tout apparait correctement.

Quelqu'un aurait il une idée du pourquoi du comment ?

Merci
Shades

[marot_r]

C'est un peu normal vu ce que tu as programmé.

Pourquoi ne pas faire une formulaire lié à la table (ou requête) R_ValoCarbu ?

Tu obtiendra le même résultat sans une seule ligne de code.

Sinon, si tu tiens à assigner dynamiquement la source tu peux aussi écrire

Code :

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

1
2
3
4
5
Sub Form_Load()
'Sélection de la base de données
        Dim sSQL As String
        sSQL = "Select * From R_ValoCarbu"
exit sub

Et ne pas oublié de définir la source des différents champs d'affichage.

Ça fera la même chose.

A+

[Shades]

Bonjour Marot_r

Tu veux dire si je complètes l'ensemble :

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
Sub Form_Load()
 
    Dim rst As DAO.Recordset
 
    'Sélection de la base de données
        Dim sSQL As String
        sSQL = "Select * From R_ValoCarbu"
 
    'Ouvrir
        Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
    'traitement
        Me.zdtIDEntree = rst![IDEntree]
        Me.zdtDateEntree = rst![Entré le]
        Me.zdtQte = rst![Qte]
        Me.zdtTotal = rst![Total]
 
    'close
        rst.Close
 
Exit Sub

Pourquoi pas avec "Private" et "End Sub" ?

Cordialement
Sylvain

[marot_r]

Non, il faut que tu remplaces ton code actuel par

Code :

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

1
2
3
4
5
Sub Form_Load()
'Sélection de la base de données
Dim sSQL As String
sSQL = "Select * From R_ValoCarbu"
exit sub

Ce que tu as fais ne peut pas fonctionner, il faut que la source de ton fiormulaire soit un recordset. Tu ne peux pas 'écrire' des lignes dans un formulaire de cette façon.

Tu pourrais créer un formulaire totalement déconnecté mais conviendrai quand même de créer un recordset qui serait utilisé comme source d'affichage.

Pourquoi souhaites-tu procéder ainsi alors qu'un formulaire lié sur ta source de données fera le même travail ?

A+