Discussion :

[djibysadji]

Salut tout le monde!

En sélectionnant une classe dans la liste dérroulante "class_num" je rencontre l'erreur 2565:Ms Access ne trouve pas le champ "F_attrib_notes_SF1" auquel il est fait référence dans votre expression.

Nous sollicitons votre soutien.

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
Private Sub UpdateMeRecordSource(ByVal strWhere As String)
  '2021-04-10
  Dim strSql As String
           strSql = "SELECT Classe_id, Note_id, Devoir_id, Matiere_id," _
                 & " T_matiere.Matiere_libelle, DevoirType_id, Devoir_libelle," _
                 & " Devoir_date,  Devoir_semestre," _
                 & " Devoir_valide, Eleve_id, Note_valeur " _
                 & " FROM R_attrib_notes_source " _
                 & IIf(Len(Nz(strWhere)) > 0, " WHERE " & strWhere, "") _
                 & " ORDER BY Classe_id, Matiere_libelle, Devoir_date, Eleve_id;"
    Debug.Print "UpdateMeRecordSource", strSql
 
    ' sauvegarder la nouvelle requete en tant que R_attrib_notes_SF1
    Call SaveQry("R_attrib_notes_SF1", strSql)
 
    Me!F_attrib_notes_SF1.Form.RecordSource = strSql
    Me!F_attrib_notes_SF1.Form.Requery
    Me.txtNbLig = CompteLignes
End Sub

[EricDgn]

Bonjour,

Il semble donc qu'il y ait un problème au niveau de la ligne 16 de votre code. Sans doute qu'il y a une faute d'orthographe au niveau du nom du sous-formulaire.

Par ailleurs avez vous vérifier que la requête R_attrib_notes_SF1 contient bien ce que vous avez prévu?

Cordialement.

[djibysadji]

Bonsoir,
Nous avons bien vérifié l'orthographe. Peut-être, comme vous l'avez souligné, un problème avec la requête R_attrib_notes_SF1.

[hyperion13]

Salut
Où avez-vous copié votre sub Private Sub UpdateMeRecordSource(ByVal strWhere As String)? Dans le form principal qui lui contient votre subform F_attrib_notes_SF1?