Cuestión : El código del botón de paro si la condición se cumple en módulo.

Apesadumbrado sobre el título, no estaba seguro cómo decirlo. Tengo un módulo que verifique que una tabla tenga datos: class= " lineNumbers " >

1 del >
:
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= codeBody " prettyprint " CheckTable secundario >Public del id= " codeSnippet964936 " del >
 0 entonces
        StrSQL dévil como secuencia
        StrSQL = “cancelación * del desecho; ”
        DoCmd.SetWarnings falso
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings verdad
        acImport de DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, “desecho”, strSelectedFile, verdad, falso
        
        DoCmd.OpenForm “FileNotSelected”, acNormal, falso
        Terminar si
        
        

        
    Terminar con
        Fijar fd = nada
Exit_Procedure:
     Salir el submarino
llamada " clara " de >

I del class= de 
1 del >
Private " codeBody " del " prettyprint " ()
        CheckTable
        DoCmd.Hourglass verdad
        'Apaga los mensajes de alerta del acceso
        DoCmd.SetWarnings falso
        DoCmd.OpenQuery “TotalScrapQry”
        DoCmd.Hourglass falso
        'Gira los mensajes de alerta del acceso traseros
        DoCmd.SetWarnings verdad
        
        
        DoCmd.OpenForm “ByTotalScrap”, acNormal, falso
Submarino del extremo
el class= >

What de 


  
  class= del 

Respuesta : El código del botón de paro si la condición se cumple en módulo.

Usted podría cambiar CheckTable () a una función y volver verdad si la tabla tiene datos.  Entonces su código del tecleo del botón sería algo similar:

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

btnTotal_Click secundario privado () SI CheckTable entonces DoCmd.Hourglass verdad 'Apaga los mensajes de alerta del acceso DoCmd.SetWarnings falso DoCmd.OpenQuery “TotalScrapQry” DoCmd.Hourglass falso 'Gira los mensajes de alerta del acceso traseros DoCmd.SetWarnings verdad DoCmd.OpenForm “ByTotalScrap”, acNormal, falso Terminar si Terminar el submarino