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 :
Et le top serait qu'en re cliquant le filtre s'annule...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
Merci beaucoup pour votre aide !
Partager