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:
|
class=
class= cmdBuildSchedule_Click " id= " codeSnippet957340 Private Sub ()
Тусклые datThis как дата
Тусклое lngActID как длиной
Тусклое lngStaffID как длиной
Тусклое lngrojectID как длиной
Тусклое lngOrganizationID как длиной
Тусклые varNotes как вариант
Тусклое strSQL как шнур
Тусклый db как DAO.Database
Тусклое intDOW как день интежер 'недели
Тусклое intDIM как день интежер 'в месяце
Если Me.grpRepeats = 2 после этого
Если не CheckDates () после этого
Выходите подводная лодка
Закончитесь если
Закончитесь если
'Если не CheckTimes () после этого
'Выходите подводная лодка
'Закончитесь если
Если IsNull (Me.cboActID) после этого
MsgBox «вы должны выбрать деятельность. », vbOKOnly + vbInformation, «вписывает деятельность»
Me.cboActID.SetFocus
Me.cboActID.Dropdown
Выходите подводная лодка
Закончитесь если
Если IsNull (Me.cboLocID) после этого
MsgBox «вы должны выбрать положение. », vbOKOnly + vbInformation, «входит положение»
Me.cboLocID.SetFocus
Me.cboLocID.Dropdown
Выходите подводная лодка
Закончитесь если
Если IsNull (Me.cboOrgID) после этого
MsgBox «вы должны выбрать организацию. », vbOKOnly + vbInformation, «входит положение»
Me.cboOrgID.SetFocus
Me.cboOrgID.Dropdown
Выходите подводная лодка
Закончитесь если
Если IsNull (Me.cboProjectID) после этого
MsgBox «вы должны выбрать проект. », vbOKOnly + vbInformation, «входит положение»
Me.cboProjectID.SetFocus
Me.cboProjectID.Dropdown
Выходите подводная лодка
Закончитесь если
'strTitle = название Me.txt
varNotes = примечания Me.txt
lngStaffID = Me.cboLocID
lngrojectID = cboProjectID
lngOrganizationID = Me.cboOrgID
lngActID = Me.cboActID
Установите db = CurrentDb
Если Me.grpRepeats = 2 после этого 'нужно закрепить петлеть через даты
Для datThis = Me.txt StartDate к Me.txt EndDate
intDIM = GetDIM (datThis)
intDOW = будний день (datThis)
Если я («chkDay» & intDIM & intDOW) = True или _, то
Я («chkDay0» & intDOW) = True после этого
strSQL = «ВСТАВКА В tblTempSchedDates (" & _
«tscDate, OrgID, ProjectID, tscActID, tscstaffID,» & _
«tscNotes)» & _
«Значения (#» & datThis & «#,» & lngOrganizationID & «,» & lngrojectID & «,» & lngActID & «,» & _
lngStaffID & «,» & _
IIf (IsNull (varNotes), «Null», """" & varNotes & """") & ") «
db. Исполните strSQL, dbFailOnError
Закончитесь если
Затем
Еще 'даты там, как раз добавляют название, примечания, времена, положение, деятельность
strSQL = «tblTempSchedDates уточнения установило tscActID =» & lngActID & _
«, tscstaffID =» & lngStaffID & «, OrgID =» & lngOrganizationID & «, ProjectID =» & lngrojectID
Если Len (varNotes & "") > 0 после этого
strSQL = strSQL & «, tscNotes =» & IIf (IsNull (varNotes), Null, """" & varNotes & """")
Закончитесь если
db. Исполните strSQL, dbFailOnError
Закончитесь если
Me.sfrmTempScheduleEdit.Requery
План-график MsgBox «временно построил. » & _
«Вы можете теперь редактировать план-график и» & _
«приложите к постоянному план-графику. », vbOKOnly + vbInformation, «план-график Temp вполне»
Подводная лодка конца
_________________________________
Функция CheckDates () как булевско
Если IsDate (Me.txtStartDate) и IsDate (Me.txtEndDate) после этого
CheckDates = True
Еще
CheckDates = ложно
MsgBox «вы должны вписать даты старта и конца. », vbOKOnly + vbInformation, «вписывает даты»
Закончитесь если
Закончите функцию
___________________
Приватное Sub Form_Open (Cancel как интежер)
Me.grpRepeats.Value = 1
grpRepeats_AfterUpdate звонока
DoCmd.SetWarnings ложное
DoCmd.RunSQL «Delete * от tblTempSchedDates»
DoCmd.SetWarnings поистине
Me.sfrmTempSchedule.Requery
Me.sfrmTempScheduleEdit.Requery
Подводная лодка конца
__________________________
Приватное Sub grpRepeats_AfterUpdate ()
Тусклое ctl как управление
Тусклое intCounter как интежер
Тусклое intWeek как интежер
Тусклое intDay как интежер
Me.txt EndDate.Visible = (Me.grpRepeats = 2)
Me.txt StartDate.Visible = (Me.grpRepeats = 2)
Me.sfrmTempSchedule.Visible = (Me.grpRepeats = 1)
Для intWeek = от 0 до 5
Для intDay = 1 к 7
Установите ctl = я («chkDay» & intWeek & intDay)
ctl. Видимо = (Me.grpRepeats = 2)
ctl. Значение = 0
Затем
Затем
Выберите случай Me.grpRepeats
Случай 2 'повторяя
Случай 1
Конец отборный
Подводная лодка конца
|
