Discussion :

[azzangot]

Bonjour à tous,

Toujours en phase d'apprentissage sur la manipulation des données à l'aide de Recorset et aussi SQL, l'un d'entre vous pourrait-il m'expliquer pourquoi ce formulaire, pourtant élémentaire, ne fonctionne pas ?
Une table avec 2 champs, un formulaire, 2 boutons pour trier les enregistrements de la table à l'aide d'un recordset et d'une requete SQL, mais non ! Je ne parviens pas à obtenir le fonctionnement souhaité.
Ci-joint le fichier zip pour support.
En vous emerciant d'avance pour votre aide,
cordialement,

[tee_grandbois]

bonsoir,

Ci-joint le fichier zip pour support.

pour info, un fichier .7z nécessite un logiciel propriétaire alors qu'un .zip est extractible nativement sous Windows sans aucune installation supplémentaire.
Il est donc préférable d'utiliser un logiciel de compression accessible au plus grand nombre des contributeurs, comme préconisé ici

[azzangot]

Hello tee_grandbois,
sincèrement désolé pour ce couac !
Merci pour l'alerte.
Voici donc le fichier en version ZIP.

MesEssais.zip

[hyperion13]

Salut
Le plus sage serait d'utiliser les propriétés Form.OrderBy et Form.OrderByOn.

[azzangot]

Bonjour hyperion13 et merci,
effectivement cela fonctionne avec ce principe + le sous fourmulaire, mais je reste sur ma faim.

Je n'ai pas l'explication sur le "pourquoi cela ne fonctionne pas avec le recodset ?"
L'objet de mon message sur ce forum n'était pas que l'on m'apporte une solution, mais plutôt qu'on explique pourquoi mon truc ne fonctionne pas

Cordialement,

[Robert1957]

Bonjour azzangot, hyperion13, tee_grandbois,

Votre code ne fait rien avec le "RecordSet" que vous ouvrez. Votre code commenté:

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
Private Sub btn_Prenom_Click()
 
Dim dbs As DAO.Database
Dim rsSQL As DAO.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM T_Prenom ORDER BY Prenom ASC"  'Instruction SQL
 
Set dbs = CurrentDb
Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenSnapshot)  'Ouverture du recordset
'Rien ne se passe
rsSQL.Close  'Fermeture du recordset
dbs.Close
Set rsSQL = Nothing
Set dbs = Nothing
 
End Sub

Pour modifier la source de votre sous-formulaire vous devez travailler sur le "RecordSource" comme suit:

Code :

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

1
2
3
4
5
Private Sub btn_age_Click()
 
Me.T_Prenom.Form.RecordSource = "SELECT * FROM T_Prenom ORDER BY Age DESC"
 
End Sub

Bonne journée

[azzangot]

Merci Robert1957,

Effectivement cette solution est très élégante et fonctionne parfaitement.
Recordset, Recordsource... tout cela reste quand même assez flou dans mon esprit

Merci en tous cas !
Cordialement,