Discussion :

[Fabrice7627]

Bonjour à tous,

À partir d'une requête que je nommerai X, j'ai écrit le code SQL ci-dessous qui me permet de n'afficher que les 4 derniers enregistrements de ma requête en fonction des dernières dates et heures.

Code :

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

1
2
3
 SELECT TOP 4 [rqt X].Date, [rqt X].Heure
FROM [rqt X]
ORDER BY [rqt X].Date DESC , [rqt X].Heure DESC;

J'ai décidé de construire un formulaire à partir de ma requête X et de lui associer un bouton relié à une procédure événementielle et qui sur un clic n'afficherait que les 4 derniers enregistrement comme avec mon code SQL.

Mais voilà, j'ai presque honte de le dire, mais je ne sais pas traduire mon code SQL en langage VBA.

Je pense que cela doit être très simple mais je ne sais pas quoi écrire dans mon éditeur VBA.

Merci d'avance pour le coup de main donné au néophyte que je suis.

Fabrice.

[Pierre Fauconnier]

Bonsoir

Je ne suis pas certain d'avoir compris.

Si tu appuies ton formulaire sur la requête telle que définie, tu n'affiches que les 4 premières valeurs, et je ne comprends donc pas l'utilité du bouton...

J'ai peut-être mal dormi la nuit dernière, et ai donc peut-être le cerveau un peu lent...

[Fabrice7627]

Je me suis sans doute mal exprimé.

Le formulaire s'appuie sur la requête X ne comprenant pas mon code SQL puisque je veux l'intégrer en VBA.

À l'ouverture de mon formulaire, tous les enregistrements de ma requête apparaîtront et un clic sur le bouton ne me donnera que les 4 derniers enregistrements.

En fait, je veux avoir le choix entre l'affichage de tous les enregistrements ou les 4 derniers.

[Jean-Philippe André]

bonjour,
si j'ai le cerveau un peu moins pire que celui de pierre, je partirai sur les propriétés (Row)Source que tu alimentes avec la requete.
Une mise à jour du resultat de la requete avec Requery devrait faire l'affaire...
Est-ce bien cela, ou dois aller me prendre aussi un verre de vitamines

[Fabrice7627]

Merci pour vos réponses mais cette fois c'est moi qui ne comprends pas très bien, n'étant pas, loin sans faut, un expert en VBA.

Si je te suis bien je dois intégrer dans mon code VBA les propriétés (Row)Source et Requery, c'est ça ?

[Pierre Fauconnier]

Bonjour

Voici la transcription en code vba de la solution de jpCheck.
Pour cet exemple, j'ai créé une table, deux requêtes et un formulaire
La requête "rTous" reprend tous les enregistrements, la requête "RTop4" reprend les quatre premiers.
Sur le formulaire, j'ai placé deux boutons, "cmdTous" pour visualiser tous les enregistrements et "cmd4Premiers" pour visualiser les quatre premiers.

Voici le code sur clic pour les deux boutons

Code :

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

1
2
3
4
5
6
7
Private Sub cmd4Premiers_Click()
    Me.RecordSource = "rTop4"
End Sub
 
Private Sub cmdTous_Click()
    Me.RecordSource = "rTous"
End Sub

Ok?