bonjour, j'ai créer un bouton me supprimant des données de ma table
voici le code:
donc ce code permet de supprimer les clients inactifs.
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
20
21
22
23
24
25 Private Sub cmdSupprClientsInactifs_Click() Dim maBD As DAO.Database Dim strSQL As String Screen.MousePointer = 11 'remplace le curseur de la souris par un sablier Set maBD = CurrentDb '--- basculer les clients en clients inactifs--- strSQL = "UPDATE T_Clients SET [T_Clients].[blnActif] = 0 " _ & " WHERE [T_Clients].[No_client] not in (SELECT [T_Clients].[No_client]" _ & " FROM (T_Clients INNER JOIN T_carte ON [T_Clients].[No_client]=[T_carte].[No_client]) INNER JOIN T_achat ON [T_carte].[No_CF]=[T_achat].[No_CF]" _ & " WHERE (((Year([DateAchat]))>=Year(Date())- 2)));" maBD.Execute strSQL Screen.MousePointer = 0 'remet le curseur en souris MsgBox "Traitement terminé." Set maBD = Nothing End Sub
Comment dois je faire maintenant via un bouton liste, pour lister ses clients avant de les supprimer?
il y a 2 bouton liste et supprimer
merci
Partager