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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
|
class=
функция DeleteRecord " class= " id= " codeSnippet808021 Public ()
'Эта функция позволяет рекордные пропускания когда explicity потребителя спрашивает a
'delete через деталь меню DeleteRecord.
На ошибке переход ErrorHandler
strProcedureName Const = «DeleteRecord»
Тусклое frm как форма
'Сделайте конечно там будет активно формой.
На ошибке возобновьте затем
Установите frm = Screen.ActiveForm
Если <> 0 Err.Number после этого
Переход ExitRoutine
Закончитесь если
На ошибке переход ErrorHandler
'Если форма не имеет никакое RecordSource, то отсутствие потребности продолжать.
Если Format$ (frm.RecordSource) = "" после этого
Переход ExitRoutine
Закончитесь если
'Если это будет новый рекорд, то отсутствие потребности продолжать.
Если frm.NewRecord после этого
Переход ExitRoutine
Закончитесь если
'Все если наилучшим образом, так сделайте, то мы пришли здесь сделать.
gstrActiveFormForDeleteRecord = frm. Имя
'Пошлите F2 для того чтобы обеспечить что потребитель не выбирал все показатели.
SendKeys «{F2}», поистине
'Выберите в настоящее время показатель (и обеспечьте выбрано только одно!)
На ошибке возобновьте затем
acCmdSelectRecord RunCommand
Если <> 0 Err.Number после этого
Переход ExitRoutine
Закончитесь если
На ошибке переход ErrorHandler
'Сделайте вариант меню регулярно «Delete рекордный».
'На резюме ошибки затем
Если frm. Пакостно = True после этого
frm. Расстегните
Закончитесь если
acCmdDeleteRecord DoCmd.RunCommand
'SendKeys «{DELETE}», поистине
gobjLastError.Save заблуждаются, strProcedureName
На ошибке переход ErrorHandler
Выберите случай gobjLastError.Number
Не покрывайте 0 'никаких ошибок
'Не сделайте ничего
Покрывайте еще
'Дайте ошибку системы для что-нибудь еще.
gobjLastError.Raise gobjLastError.Number & «: » & gobjLastError.Description
Конец отборный
ExitRoutine:
На резюме ошибки затем
gstrActiveFormForDeleteRecord = ""
Выходите функция
ErrorHandler:
gobjLastError.Save заблуждаются, strProcedureName
Выберите случай gobjLastError.Number
Покрывайте еще
gobjLastError.Show
Возобновьте ExitRoutine
Закончите отборное
Закончите функцию
|
