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:
6:
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:
|
Private VorcmdBuildSchedule_Click ()
Schwache datThis als Datum
Schwaches lngActID als lang
Schwaches lngStaffID als lang
Schwaches lngrojectID als lang
Schwaches lngOrganizationID als lang
Schwache varNotes als Variante
Schwaches strSQL als Schnur
Schwaches DB als DAO.Database
Schwaches intDOW als Zahl'Tag der Woche
Schwaches intDIM als Zahl-'Tag im Monat
Wenn Me.grpRepeats = 2 dann
Wenn nicht CheckDates () dann
Unterseeboot herausnehmen
Beenden wenn
Beenden wenn
'Wenn nicht CheckTimes () dann
'Unterseeboot herausnehmen
'Beenden wenn
Wenn IsNull (Me.cboActID) dann
MsgBox „Sie müssen eine Tätigkeit vorwählen. “, vbOKOnly + tragen vbInformation, „Tätigkeit“ ein
Me.cboActID.SetFocus
Me.cboActID.Dropdown
Nehmen Unterseeboot heraus
Beenden wenn
Wenn IsNull (Me.cboLocID) dann
MsgBox „Sie müssen eine Position vorwählen. “, vbOKOnly + kommen vbInformation, „Position“
Me.cboLocID.SetFocus
Me.cboLocID.Dropdown
Nehmen Unterseeboot heraus
Beenden wenn
Wenn IsNull (Me.cboOrgID) dann
MsgBox „Sie müssen eine Organisation vorwählen. “, vbOKOnly + kommen vbInformation, „Position“
Me.cboOrgID.SetFocus
Me.cboOrgID.Dropdown
Nehmen Unterseeboot heraus
Beenden wenn
Wenn IsNull (Me.cboProjectID) dann
MsgBox „Sie müssen ein Projekt vorwählen. “, vbOKOnly + kommen vbInformation, „Position“
Me.cboProjectID.SetFocus
Me.cboProjectID.Dropdown
Nehmen Unterseeboot heraus
Beenden wenn
'strTitle = Me.txt-Titel
varNotes = Me.txt-Anmerkungen
lngStaffID = Me.cboLocID
lngrojectID = cboProjectID
lngOrganizationID = Me.cboOrgID
lngActID = Me.cboActID
Einstellen DB = CurrentDb
Wenn Me.grpRepeats = 2 dann 'sich durch Daten schlingen müssen
Für datThis = Me.txt StartDate zu Me.txt EndDate
intDIM = GetDIM (datThis)
intDOW = Wochentag (datThis)
Wenn ich („chkDay“ u. intDIM u. intDOW) = ausrichte oder _
Ich („chkDay0“ u. intDOW) = richte dann aus
strSQL = „EINSATZ IN tblTempSchedDates (“ u. _
„tscDate, OrgID, ProjectID, tscActID, tscstaffID,“ u. _
„tscNotes)“ u. _
„Werte (#“ u. datThis u. „#,“ u. lngOrganizationID u. „,“ u. lngrojectID u. „,“ u. lngActID u. „,“ u. _
lngStaffID u. „,“ u. _
IIf (IsNull (varNotes), „Null“, """" u. varNotes u. """") u. ") „
DB. strSQL, dbFailOnError durchführen
Beenden wenn
Zunächst
Sonst 'Daten sind dort, addieren gerade den Titel, Anmerkungen, Zeiten, Position, Tätigkeit
strSQL = „Update tblTempSchedDates stellte tscActID =“ u. lngActID u. _ ein
„, tscstaffID =“ u. lngStaffID u. „, OrgID =“ u. lngOrganizationID u. „, ProjectID =“ u. lngrojectID
Wenn Len (varNotes u. "") > 0 dann
strSQL = strSQL u. „, tscNotes =“ u. IIf (IsNull (varNotes), Null, """" u. varNotes u. """")
Beenden wenn
DB. strSQL, dbFailOnError durchführen
Beenden wenn
Me.sfrmTempScheduleEdit.Requery
MsgBox „temporärer Zeitplan errichtete. “ u. _
„Sie können den Zeitplan und“ u. _ jetzt redigieren
„zum dauerhaften Zeitplan hinzufügen. “, vbOKOnly + vbInformation, „Tempzeitplan komplett“
Enden-Unterseeboot
_________________________________
Funktion CheckDates () wie Boolesch
Wenn IsDate (Me.txtStartDate) und IsDate (Me.txtEndDate) dann
CheckDates = richten aus
Sonst
CheckDates = falsch
MsgBox „Sie müssen Anfangs- und Enddaten erreichen. “, vbOKOnly + erreichen vbInformation, „Daten“
Beenden wenn
Funktion beenden
___________________
Privates VorForm_Open (Löschen als ganze Zahl)
Me.grpRepeats.Value = 1
Anruf grpRepeats_AfterUpdate
DoCmd.SetWarnings falsch
DoCmd.RunSQL „Löschung * von den tblTempSchedDates“
DoCmd.SetWarnings zutreffend
Me.sfrmTempSchedule.Requery
Me.sfrmTempScheduleEdit.Requery
Enden-Unterseeboot
__________________________
Privates VorgrpRepeats_AfterUpdate ()
Schwaches ctl als Steuerung
Schwaches intCounter als ganze Zahl
Schwaches intWeek als ganze Zahl
Schwaches intDay als ganze Zahl
Me.txt EndDate.Visible = (Me.grpRepeats = 2)
Me.txt StartDate.Visible = (Me.grpRepeats = 2)
Me.sfrmTempSchedule.Visible = (Me.grpRepeats = 1)
Für intWeek = 0 bis 5
Für intDay = 1 bis 7
Ctl einstellen = ich („chkDay“ u. intWeek u. intDay)
ctl. Sichtbar = (Me.grpRepeats = 2)
ctl. Wert = 0
Zunächst
Zunächst
Fall Me.grpRepeats vorwählen
Rechtssache 2 'wiederholend
Rechtssache 1
Ende auserwählt
Enden-Unterseeboot
|
