Bonjour Tous le Monde
Mon Problème c'est que je veux effectuer une action après le clique sur le button de recherche du boite de dialogue de recherche Access
qui ce lande avec la commande DoCmd.RunCommand acCmdFind

je vous explique plus
1 - j'ai un button de recherche je clique une boite de dialogue s'ouvre
2 - je tape une critère a rechercher et je clique sur suivant
3 - là après avoir cliquer sur suivant il doit trouver ce que je recherche et exécute une condition voir le code du button
SVP Aider moi



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
26
27
28
29
30
31
Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click
 
 
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind
 
If Me![VALIDATION] = "O" Then
Me![detailfactclt1].Enabled = False
Me![NCLT].Enabled = False
Me![NFACTCLT].Enabled = False
Me![DATEFACTCLT].Enabled = False
   Else
Me![detailfactclt1].Enabled = True
Me![NCLT].Enabled = True
Me![NFACTCLT].Enabled = True
Me![DATEFACTCLT].Enabled = True
End If
 
 
 
 
 
Exit_Commande21_Click:
    Exit Sub
 
Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
 
End Sub