Question : Le code de touche "ARRÊT" si la condition est remplie dans le module.

Désolé au sujet du titre, n'était pas sûr comment le dire. J'ai un module qui vérifie qu'une table a des données : class= " lineNumbers " >

1 de >
 :
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 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
class= " de 
Public de l'id= " codeSnippet964936 " de >
 0 puis
        Faible StrSQL comme corde
        StrSQL = « suppression * de chute ;  »
        DoCmd.SetWarnings faux
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings vrai
        acImport de DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, « chute », strSelectedFile, vraie, fausse
        Autrement
        DoCmd.OpenForm « FileNotSelected », acNormal, faux
        Finir si
        
        

        
    Finir avec
        Placer FD = rien
Exit_Procedure :
     Sortir le sous-marin
appel " clair " de >

I de class= de 
1 de >
Private " codeBody " de " prettyprint " ()
        CheckTable
        DoCmd.Hourglass vrai
        'Arrête les messages d'avertissement d'accès
        DoCmd.SetWarnings faux
        DoCmd.OpenQuery « TotalScrapQry »
        DoCmd.Hourglass faux
        'Allume les messages d'avertissement d'accès arrières
        DoCmd.SetWarnings vrai
        
        
        DoCmd.OpenForm « ByTotalScrap », acNormal, faux
Sous-marin d'extrémité
le class= >

What de 


  
  class= de 

Réponse : Le code de touche "ARRÊT" si la condition est remplie dans le module.

Vous pourriez changer CheckTable () en fonction et renvoyer vrai si la table a des données.  Alors votre code de clic de bouton serait n'importe quoi de pareil :

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 :

btnTotal_Click secondaire privé () SI CheckTable alors DoCmd.Hourglass vrai 'Arrête les messages d'avertissement d'accès DoCmd.SetWarnings faux DoCmd.OpenQuery « TotalScrapQry » DoCmd.Hourglass faux 'Allume les messages d'avertissement d'accès arrières DoCmd.SetWarnings vrai DoCmd.OpenForm « ByTotalScrap », acNormal, faux Finir si Finir le sous-marin