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 secondario " del id= " codeSnippet957340 del Private " notpretty " ()
datThis fiochi come data
lngActID fioco come lungamente
lngStaffID fioco come lungamente
lngrojectID fioco come lungamente
lngOrganizationID fioco come lungamente
varNotes fiochi come variante
strSQL fioco come stringa
Db fioco come DAO.Database
intDOW fioco come giorno di numero intero 'della settimana
intDIM fioco come giorno di numero intero 'in mese
Se Me.grpRepeats = 2 allora
Se non CheckDates () allora
Uscire il sommergibile
Concluder se
Concluder se
'Se non CheckTimes () allora
'Uscire il sommergibile
'Concluder se
Se IsNull (Me.cboActID) allora
MsgBox “dovete selezionare un'attività. „, vbOKOnly + il vbInformation, “entra nell'attività„
Me.cboActID.SetFocus
Me.cboActID.Dropdown
Escono il sommergibile
Concluder se
Se IsNull (Me.cboLocID) allora
MsgBox “dovete selezionare una posizione. „, vbOKOnly + il vbInformation, “entra nella posizione„
Me.cboLocID.SetFocus
Me.cboLocID.Dropdown
Escono il sommergibile
Concluder se
Se IsNull (Me.cboOrgID) allora
MsgBox “dovete selezionare un'organizzazione. „, vbOKOnly + il vbInformation, “entra nella posizione„
Me.cboOrgID.SetFocus
Me.cboOrgID.Dropdown
Escono il sommergibile
Concluder se
Se IsNull (Me.cboProjectID) allora
MsgBox “dovete selezionare un progetto. „, vbOKOnly + il vbInformation, “entra nella posizione„
Me.cboProjectID.SetFocus
Me.cboProjectID.Dropdown
Escono il sommergibile
Concluder se
'strTitle = titolo di Me.txt
varNotes = note di Me.txt
lngStaffID = Me.cboLocID
lngrojectID = cboProjectID
lngOrganizationID = Me.cboOrgID
lngActID = Me.cboActID
Regolar db = CurrentDb
Se Me.grpRepeats = 2 allora 'devono collegare attraverso le date
Per i datThis = Me.txt StartDate a Me.txt EndDate
intDIM = GetDIM (datThis)
intDOW = giorno della settimana (datThis)
Se me (“chkDay„ & intDIM & intDOW) = allineo o il _
Me (“chkDay0„ & intDOW) = allora allineo
strSQL = “INSERTO nei tblTempSchedDates (" & nel _
“tscDate, OrgID, ProjectID, tscActID, tscstaffID,„ & _
“tscNotes)„ & _
“Valori (#„ & datThis & “#,„ & lngOrganizationID & “,„ & lngrojectID & “,„ & lngActID & “,„ & _
lngStaffID & “,„ & _
IIf (IsNull (varNotes), “posizione di segnale minimo„, """" & varNotes & """") & ") “
db. Eseguire lo strSQL, dbFailOnError
Concluder se
Dopo
Altrimenti 'le date sono là, appena aggiungono il titolo, le note, i periodi, la posizione, attività
lo strSQL = “tblTempSchedDates dell'aggiornamento ha regolato il tscActID =„ & lngActID & _
“, tscstaffID =„ & lngStaffID & “, OrgID =„ & lngOrganizationID & “, ProjectID =„ & lngrojectID
Se Len (varNotes & "") > 0 allora
strSQL = strSQL & “, tscNotes =„ & IIf (IsNull (varNotes), posizione di segnale minimo, """" & varNotes & """")
Concluder se
db. Eseguire lo strSQL, dbFailOnError
Concluder se
Me.sfrmTempScheduleEdit.Requery
Il programma provvisorio di MsgBox “ha costruito. „ & _
“Potete ora pubblicare il programma e„ & il _
“aggiungere al programma permanente. „, vbOKOnly + vbInformation, “programma del Temp completo„
Sommergibile dell'estremità
_________________________________
Funzione CheckDates () come booleano
Se IsDate (Me.txtStartDate) e IsDate (Me.txtEndDate) allora
CheckDates = allinea
Altrimenti
CheckDates = falso
MsgBox “dovete entrare nelle date di estremità e di inizio. „, vbOKOnly + il vbInformation, “entra nelle date„
Concluder se
Concludere la funzione
___________________
Form_Open secondario riservato (annullamento come numero intero)
Me.grpRepeats.Value = 1
grpRepeats_AfterUpdate di chiamata
DoCmd.SetWarnings falso
DoCmd.RunSQL “cancellazione * dai tblTempSchedDates„
DoCmd.SetWarnings allineare
Me.sfrmTempSchedule.Requery
Me.sfrmTempScheduleEdit.Requery
Sommergibile dell'estremità
__________________________
grpRepeats_AfterUpdate secondario riservato ()
Ctl fioco come controllo
intCounter fioco come numero intero
intWeek fioco come numero intero
intDay fioco come numero intero
Me.txt EndDate.Visible = (Me.grpRepeats = 2)
Me.txt StartDate.Visible = (Me.grpRepeats = 2)
Me.sfrmTempSchedule.Visible = (Me.grpRepeats = 1)
Per intWeek = 0 - 5
Per = 1 - 7 intDay
Regolare il ctl = me (“chkDay„ & intWeek & intDay)
ctl. Visibile = (Me.grpRepeats = 2)
ctl. Valore = 0
Dopo
Dopo
Selezionare il caso Me.grpRepeats
Caso 2 'che si ripete
Caso 1
Estremità prescelta
Sommergibile dell'estremità
|
