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
Partager