Discussion :

[samgione]

salut,
j'ai une base de donnees qui fait la gestion des etudiants et des cours. pour un etudiant il peut exister de 0 a plusieurs cours.
j'ai un formulaire independant qui affiche les informations pour un etudiant donner ce formulair fonctionne tres bien. cependant le sous formulaire independent cours qui affiche les cours pour un etudiant enfonction du numero etudiant ne fonctionne pas correctement, meme s'il existe plusieurs enregistrements pour cet etudiant dans la table cours, le sous formulair affiche seulement le premier enregistrement. j'ai utilise plusieurs moyens mais rien ne marche.

je vous prie m'aider a trouver une solution.

voici les differents codes utilizes:

j'ai inserer la base d'exemple en piece jointe.

Option Compare Database
Option Explicit
Dim s As String
Dim rs As DAO.Recordset 'sous form
Dim rsDb As DAO.Database
0)
Sub AfficherDonnees()
s = "SELECT cours.* FROM Cours WHERE NoEtud=" & Me!NoEtu & ";"
Set rs = rsDb.OpenRecordset(s, dbOpenDynaset)
If Not rs.EOF Then
'remplissage des champs du sous formulaire
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
Else
[sfCours].Form!NoCours = ""
[sfCours].Form!NomC = ""
[sfCours].Form!DateC = ""
[sfCours].Form!NoEtud = ""
End If
End sub
Private Sub Form_Load()
Set rsDb = CurrentDb
AfficherDonnees
End Sub
1 'sous form
strFilter = "NoEtud = " & Me!NoEtu
'remplissage des champs du sous formulaire
[sfCours].Form!NoCours = DLookup("NoCours", "Cours", strFilter)
[sfCours].Form!NomC = DLookup("NomC", "Cours", strFilter)
[sfCours].Form!DateC = DLookup("DateC", "Cours", strFilter)
[sfCours].Form!NoEtud = DLookup("NoEtud", "Cours", strFilter)
2 ‘
Set rs = rsDb.OpenRecordset("Select * from Cours WHERE Noetud=1", dbOpenSnapshot)
If rs.RecordCount > 0 Then
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
End If
3e
s = "SELECT * FROM Cours WHERE NoEtud=" & Me.NoEtu & ";"
Set rs = rsDb.OpenRecordset(s, dbOpenDynaset, dbSeeChanges)

If rs.EOF = False Then 'si EOF est False, c'est qu'il y a une réponse: on signale le probleme
'remplissage des champs du sous formulaire
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
Else
[sfCours].Form!NoCours = ""
[sfCours].Form!NomC = ""
[sfCours].Form!DateC = ""
[sfCours].Form!NoEtud = ""
End If
4e
Me.sfCours.Form.RecordSource = _
"SELECT Cours.NoCours, Cours.NomC, " & _
"Cours.NoEtud FROM Cours " & _
"WHERE (((Cours.NoEtud) =" & strSelect & "))"


Set rs = Me.sfCours.Form.Recordset

If Not rs.EOF Then
Me.sfCours.Form.NoCours = _
rs!NoCours
Me.sfCours.Form.NomC = _
rs!NomC
Me.sfCours.Form.NoEtud = _
rs!NoEtud
End If

de grace, aidez moi svp, je suis coince.

[Robert1957]

Bonjour samgione,

Premièrement, il n'est pas possible d'afficher plusieurs lignes différentes dans un sous-formulaire en mode continu. Les champs doivent être liés.

Deuxièmement dans ton 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
Sub AfficherDonnees()
s = "SELECT cours.* FROM Cours WHERE NoEtud=" & Me!NoEtu & ";"
Set rs = rsDb.OpenRecordset(s, dbOpenDynaset)
If Not rs.EOF Then 
'remplissage des champs du sous formulaire
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
Else
[sfCours].Form!NoCours = ""
[sfCours].Form!NomC = ""
[sfCours].Form!DateC = ""
[sfCours].Form!NoEtud = ""
End If
End sub

Tu ne parcours pas les enregistrements. Tu saisies le premier seulement. Pour parcourir les enregistrements il faudrait faire:

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
Sub AfficherDonnees()
s = "SELECT cours.* FROM Cours WHERE NoEtud=" & Me!NoEtu & ";"
Set rs = rsDb.OpenRecordset(s, dbOpenDynaset)
If Not rs.EOF Then 
'remplissage des champs du sous formulaire
While rs.EOF = False
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
rs.MoveNext
Wend
Else
[sfCours].Form!NoCours = ""
[sfCours].Form!NomC = ""
[sfCours].Form!DateC = ""
[sfCours].Form!NoEtud = ""
End If
End sub

Autre remarque mais qui n'est pas la cause de ton problème, tu devrais libérer les objets à la fin de ton code.

Bonne journée

[samgione]

salut à tous spécialement à Robert
j'ai deja essayer de cette façon, ca n'a pas mache.

j'ai libére tous les objets sur la fermeture du formulaire.

[samgione]

Rebonjour a tous
quand j'ai utilisé cette methode,

Sub AfficherDonnees()
s = "SELECT cours.* FROM Cours WHERE NoEtud=" & Me!NoEtu & ";"
Set rs = rsDb.OpenRecordset(s, dbOpenDynaset)
If Not rs.EOF Then
'remplissage des champs du sous formulaire
While rs.EOF = False
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
rs.MoveNext
Wend
Else
[sfCours].Form!NoCours = ""
[sfCours].Form!NomC = ""
[sfCours].Form!DateC = ""
[sfCours].Form!NoEtud = ""
End If
End sub

seul le dernier enregistrement est affiché contrairement à la methode suivante qui affiche seule le premier enregistrement.
Sub AfficherDonnees()
s = "SELECT cours.* FROM Cours WHERE NoEtud=" & Me!NoEtu & ";"
Set rs = rsDb.OpenRecordset(s, dbOpenDynaset)
If Not rs.EOF Then
'remplissage des champs du sous formulaire
[sfCours].Form!NoCours = rs("NoCours")
[sfCours].Form!NomC = rs("NomC")
[sfCours].Form!DateC = rs("DateC")
[sfCours].Form!NoEtud = rs("NoEtud")
Else
[sfCours].Form!NoCours = ""
[sfCours].Form!NomC = ""
[sfCours].Form!DateC = ""
[sfCours].Form!NoEtud = ""
End If
End sub

les objets sont libéré sur la fermeture du formulaire comme ça

Private Sub Form_Close()
rs.Close
rsEtud.Close
rsDb.Close
Set rs = Nothing
Set rsEtud = Nothing
Set rsDb = Nothing
End Sub

si tu veux telechager ma base pourque tu puisses l'essayer.

s'il te plait j'attend une reponse + je suis vraiment coincé.

[Robert1957]

Bonjour samgione,

Je veux bien charger ta base mais pourquoi?

Dans mon autre post ma première réponse:

Premièrement, il n'est pas possible d'afficher plusieurs lignes différentes dans un sous-formulaire en mode continu. Les champs doivent être liés.

Alors pourquoi ne pas lié ton sous-formulaire à une table ou requête?

Bonne journée

[samgione]

salut,
merci pour le conseil, mon formulaire principale est toujours independant cependant j'ai lie mon sous formulaire avec une table au numero cle du formulaire principale le sous formulaire arrive a afficher le nombre d'enregistrement lie.
merci