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:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
|
class=
class= btnSave_Click " id= " codeSnippet814528 Private Sub ()
На ошибке переход Err_btnSave_Click
'Создайте функциональные перемеююые
Затемните strSQL как шнур
Затемните сообщение как шнур
'Создайте перемеююые для полей входного сигнала.
Затемните работника как интежер
Затемните FName как шнур
Затемните LName как шнур
Затемните название как шнур
Затемните адрес как шнур
Затемните город как шнур
Затемните Prov как шнур
Затемните PCode как шнур
Затемните телефон как шнур
Затемните WorkEmail как шнур
Если IsNull (cboEmployee.Value) = ложно после этого
'Задайте поля к перемеююым
Работник = cboEmployee.Value
FName = txtFName.Value
LName = txtLName.Value
Название = txtTitle.Value
Адрес = txtAddress.Value
Город = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Телефон = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Раскройте базу данных
Установите db = CurrentDb ()
'Раскройте recordset
Установите rs = db.OpenRecordset («работник»)
'Заявление SQL для того чтобы уничтожить все записывает имеют сопрягая удостоверение личности работника от управления cboEmployee
strSQL = «DELETE * ОТ [работник] ГДЕ [EmployeeID] =» & работник
DoCmd.SetWarnings ложное
strSQL DoCmd.RunSQL
DoCmd.SetWarnings поистине
'Заполните внутри таблицу работника с значениями от полей формы
rs.AddNew
rs. Поля («FName»). Значение = FName
rs. Поля («LName»). Значение = LName
rs. Поля («название»). Значение = название
rs. Поля («адрес»). Значение = адрес
rs. Поля («город»). Значение = город
rs. Поля («Prov»). Значение = Prov
rs. Поля («PostalCode»). Значение = PCode
rs. Поля («телефон»). Значение = телефон
rs. Поля («WorkEmail»). Значение = WorkEmail
rs. Уточнение
'Близкие и переустановленные db и recordset
rs. Конец
Установите rs = ничего
db. Закройте
Установите db = ничего
Добавленный работник MsgBox «. », vbInformation + vbOKOnly, «управление работника»
'Освежите работник упадите вниз меню
Me.cboEmployee.Requery
'Ясные поля
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = Null
Еще
'Задайте поля к перемеююым
FName = txtFName.Value
LName = txtLName.Value
Название = txtTitle.Value
Адрес = txtAddress.Value
Город = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Телефон = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Раскройте базу данных
Установите db = CurrentDb ()
'Раскройте recordset
Установите rs = db.OpenRecordset («работник»)
'Заявление SQL для того чтобы уничтожить все записывает имеют сопрягая удостоверение личности работника от управления cboEmployee
strSQL = «DELETE * ОТ [работник] ГДЕ [EmployeeID] =» & работник
DoCmd.SetWarnings ложное
strSQL DoCmd.RunSQL
DoCmd.SetWarnings поистине
'Заполните внутри таблицу работника с значениями от полей формы
rs.AddNew
rs. Поля («FName»). Значение = FName
rs. Поля («LName»). Значение = LName
rs. Поля («название»). Значение = название
rs. Поля («адрес»). Значение = адрес
rs. Поля («город»). Значение = город
rs. Поля («Prov»). Значение = Prov
rs. Поля («PostalCode»). Значение = PCode
rs. Поля («телефон»). Значение = телефон
rs. Поля («WorkEmail»). Значение = WorkEmail
rs. Уточнение
'Близкие и переустановленные db и recordset
rs. Конец
Установите rs = ничего
db. Закройте
Установите db = ничего
Добавленный работник MsgBox «. », vbInformation + vbOKOnly, «управление работника»
'Ясные поля
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = Null
'Освежите работник упадите вниз меню
Me.cboEmployee.Requery
Закончитесь если
Exit_btnSave_Click:
Выходите подводная лодка
Err_btnSave_Click:
MsgBox Err.Description
Резюме Exit_btnSave_Click
Подводная лодка конца
|