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



































Altre soluzioni
 































 






































programming4us

programming4us