Вопрос : Остановите Кодего кнопки если условие соотвествовано в модуле.

Огорченно о названии, не был уверенн как сказать его. Я имею модуль подтверждает таблица имеет данные: class= " lineNumbers " >

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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
class= " prettyprint " >Public Sub CheckTable id= " codeSnippet964936 " >
 0 после этого
        Тусклое StrSQL как шнур
        StrSQL = «Delete * от утиля; »
        DoCmd.SetWarnings ложное
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings поистине
        acImport DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, «утиль», strSelectedFile, поистине, ложный
        Еще
        DoCmd.OpenForm «FileNotSelected», acNormal, ложное
        Закончитесь если
        
        

        
    Закончитесь с
        Установите fd = ничего
Exit_Procedure:
     Выходите подводная лодка
звонок >

I class= 
1 >
Private " prettyprint " " class= id= " codeSnippet964964 >


What, котор 


  
  class= 

Ответ : Остановите Кодего кнопки если условие соотвествовано в модуле.

Вы smogли изменить CheckTable () к функции и возвратить поистине если таблица имеет данные.  После этого ваше Кодий щелчка кнопки было бы что-нибудь подобное:

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

Приватное Sub btnTotal_Click () ЕСЛИ CheckTable после этого DoCmd.Hourglass поистине 'Поворачивает предупредительные сообщения доступа DoCmd.SetWarnings ложное DoCmd.OpenQuery «TotalScrapQry» DoCmd.Hourglass ложное 'Поворачивает предупредительные сообщения доступа задним дальше DoCmd.SetWarnings поистине DoCmd.OpenForm «ByTotalScrap», acNormal, ложное Закончитесь если Закончите подводную лодку