Questione : Il codice del tasto di arresto se la circostanza è riempita in modulo.

Spiacente circa il titolo, non era sicuro come dirlo. Ho un modulo che verifica che una tabella abbia dati: 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 secondario >Public del id= " codeSnippet964936 " del >
 0 allora
        StrSQL fioco come stringa
        StrSQL = “cancellazione * da scarto; „
        DoCmd.SetWarnings falso
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings allineare
        acImport di DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, “scarto„, strSelectedFile, allineare, falso
        Altrimenti
        DoCmd.OpenForm “FileNotSelected„, acNormal, falso
        Concluder se
        
        

        
    Concluder con
        Regolar fd = niente
Exit_Procedure:
     Uscire il sommergibile
chiamata " libera " di >

I del class= di 
1 del >
Private " codeBody " " del prettyprint " ()
        CheckTable
        DoCmd.Hourglass allineare
        'Spegne i messaggi d'avvertimento di accesso
        DoCmd.SetWarnings falso
        DoCmd.OpenQuery “TotalScrapQry„
        DoCmd.Hourglass falso
        'Accende i messaggi d'avvertimento di accesso posteriori
        DoCmd.SetWarnings allineare
        
        
        DoCmd.OpenForm “ByTotalScrap„, acNormal, falso
Sommergibile dell'estremità
il class= >

What che di 


  
  class= del 

Risposta : Il codice del tasto di arresto se la circostanza è riempita in modulo.

Potreste cambiare CheckTable () ad una funzione e restituire allineare se la tabella ha dati.  Allora il vostro codice di scatto del tasto sarebbe qualcosa di simile:

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

btnTotal_Click secondario riservato () SE CheckTable allora DoCmd.Hourglass allineare 'Spegne i messaggi d'avvertimento di accesso DoCmd.SetWarnings falso DoCmd.OpenQuery “TotalScrapQry„ DoCmd.Hourglass falso 'Accende i messaggi d'avvertimento di accesso posteriori DoCmd.SetWarnings allineare DoCmd.OpenForm “ByTotalScrap„, acNormal, falso Concluder se Concludere il sommergibile