class= " lineNumbers " del
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= del
class= cmdBuildSchedule_Click secundario " del id= " codeSnippet957340 del Private " notpretty " ()
datThis déviles como fecha
lngActID dévil como de largo
lngStaffID dévil como de largo
lngrojectID dévil como de largo
lngOrganizationID dévil como de largo
varNotes déviles como variante
strSQL dévil como secuencia
DB dévil como DAO.Database
intDOW dévil como día de número entero 'de semana
intDIM dévil como día de número entero 'en mes
Si Me.grpRepeats = 2 entonces
Si no CheckDates () entonces
Salir el submarino
Terminar si
Terminar si
'Si no CheckTimes () entonces
'Salir el submarino
'Terminar si
Si IsNull (Me.cboActID) entonces
MsgBox “usted debe seleccionar una actividad. ”, vbOKOnly + el vbInformation, “incorpora actividad”
Me.cboActID.SetFocus
Me.cboActID.Dropdown
Salen el submarino
Terminar si
Si IsNull (Me.cboLocID) entonces
MsgBox “usted debe seleccionar una localización. ”, vbOKOnly + el vbInformation, “entra en la localización”
Me.cboLocID.SetFocus
Me.cboLocID.Dropdown
Salen el submarino
Terminar si
Si IsNull (Me.cboOrgID) entonces
MsgBox “usted debe seleccionar una organización. ”, vbOKOnly + el vbInformation, “entra en la localización”
Me.cboOrgID.SetFocus
Me.cboOrgID.Dropdown
Salen el submarino
Terminar si
Si IsNull (Me.cboProjectID) entonces
MsgBox “usted debe seleccionar un proyecto. ”, vbOKOnly + el vbInformation, “entra en la localización”
Me.cboProjectID.SetFocus
Me.cboProjectID.Dropdown
Salen el submarino
Terminar si
'strTitle = título de Me.txt
varNotes = notas de Me.txt
lngStaffID = Me.cboLocID
lngrojectID = cboProjectID
lngOrganizationID = Me.cboOrgID
lngActID = Me.cboActID
Fijar DB = CurrentDb
Si Me.grpRepeats = 2 entonces 'necesitan colocar a través de fechas
Para los datThis = Me.txt StartDate a Me.txt EndDate
intDIM = GetDIM (datThis)
intDOW = día laborable (datThis)
Si (“chkDay” y intDIM y intDOW) = verdad o el _
(“chkDay0” y intDOW) = entonces verdad
strSQL = “PARTE MOVIBLE EN tblTempSchedDates (” y _
“tscDate, OrgID, ProjectID, tscActID, tscstaffID,” y _
“tscNotes)” y _
“Valores (#” y datThis y “#,” y lngOrganizationID y “,” y lngrojectID y “,” y lngActID y “,” y _
lngStaffID y “,” y _
IIf (IsNull (varNotes), “falta de información”, """" y varNotes y """") y ") “
DB. Ejecutar el strSQL, dbFailOnError
Terminar si
Después
Las 'fechas están allí, apenas agregan el título, notas, épocas, localización, actividad
strSQL = “tscActID fijado tblTempSchedDates de la actualización =” y lngActID y _
“, tscstaffID =” y lngStaffID y “, OrgID =” y lngOrganizationID y “, ProjectID =” y lngrojectID
Si Len (varNotes y "") > 0 entonces
strSQL = strSQL y “, tscNotes =” y IIf (IsNull (varNotes), falta de información, """" y varNotes y """")
Terminar si
DB. Ejecutar el strSQL, dbFailOnError
Terminar si
Me.sfrmTempScheduleEdit.Requery
El horario temporal de MsgBox “construyó. ” y _
“Usted puede ahora corregir el horario y” y el _
“añadir al horario permanente. ”, vbOKOnly + vbInformation, “horario del Temp completo”
Submarino del extremo
_________________________________
Función CheckDates () como boleano
Si IsDate (Me.txtStartDate) e IsDate (Me.txtEndDate) entonces
CheckDates = verdad
CheckDates = falso
MsgBox “usted debe incorporar fechas del comienzo y de extremo. ”, vbOKOnly + el vbInformation, “incorpora fechas”
Terminar si
Terminar la función
___________________
Form_Open secundario privado (cancelación como número entero)
Me.grpRepeats.Value = 1
grpRepeats_AfterUpdate de la llamada
DoCmd.SetWarnings falso
DoCmd.RunSQL “cancelación * de tblTempSchedDates”
DoCmd.SetWarnings verdad
Me.sfrmTempSchedule.Requery
Me.sfrmTempScheduleEdit.Requery
Submarino del extremo
__________________________
grpRepeats_AfterUpdate secundario privado ()
Ctl dévil como control
intCounter dévil como número entero
intWeek dévil como número entero
intDay dévil como número entero
Me.txt EndDate.Visible = (Me.grpRepeats = 2)
Me.txt StartDate.Visible = (Me.grpRepeats = 2)
Me.sfrmTempSchedule.Visible = (Me.grpRepeats = 1)
Para el intWeek = 0 a 5
Para = 1 a 7 intDay
Fijar el ctl = yo (“chkDay” y el intWeek y intDay)
ctl. Visible = (Me.grpRepeats = 2)
ctl. Valor = 0
Después
Después
Seleccionar el caso Me.grpRepeats
Caso 2 'que repite
Caso 1
Extremo selecto
Submarino del extremo
|
