Bonjour,

Je ne suis pas trés fort en VBA et je souhaiterai réaliser une petite action, pas trop compliquée je pense.

J'ai un formulaire avec une liste de nom de personnes issue d'une requête.

Je souhaiterai, lorsque je clique sur un bouton, n'afficher que les noms de personnes qui ne sont plus dans l'entreprise.

J'ai dans ma requête un champ : DATE_DEPART. Donc afficher que les enregistrement qui ont ce champ > date().

J'ai essayé d'adapter des codes mais j'ai pas réussi...

Notamment celui la :

Private Sub MonBoutonA_Click()
On Error GoTo Err_bouton_Click

Me.MaCombo.RowSource = " SELECT Tbl_Clients.Nom_Famille " & _
"FROM Tbl_Clients " & _
"WHERE (((Tbl_Clients.Nom_Famille) Like 'A*'));"
Me.MaCombo.Requery
Exit_MonBoutonA_Click:
Exit Sub

Err_bouton_Click:
MsgBox Err.Description
Resume Exit_MonBoutonA_Click

End Sub
Et le top serait qu'en re cliquant le filtre s'annule...

Merci beaucoup pour votre aide !