class= " lineNumbers " de
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= de
class= cmdBuildSchedule_Click secondaire de >Private " de l'id= " codeSnippet957340 de 0 puis
strSQL = strSQL et « , tscNotes = » et IIf (IsNull (varNotes), nulle, """" et varNotes et """")
Finir si
DB. Exécuter le strSQL, dbFailOnError
Finir si
Me.sfrmTempScheduleEdit.Requery
Le programme provisoire de MsgBox « a construit. » et _
« Vous pouvez maintenant éditer le programme et » et le _
« apposer au programme permanent. », vbOKOnly + vbInformation, « programme de Temp complet »
Sous-marin d'extrémité
_________________________________
Fonction CheckDates () comme booléen
S'IsDate (Me.txtStartDate) et IsDate (Me.txtEndDate) puis
CheckDates = rectifient
Autrement
CheckDates = faux
MsgBox « vous devez écrire des dates de fin de début et. », vbOKOnly + le vbInformation, « écrivent des dates »
Finir si
Finir la fonction
___________________
Form_Open secondaire privé (annulation comme nombre entier)
Me.grpRepeats.Value = 1
grpRepeats_AfterUpdate d'appel
DoCmd.SetWarnings faux
DoCmd.RunSQL « suppression * des tblTempSchedDates »
DoCmd.SetWarnings vrai
Me.sfrmTempSchedule.Requery
Me.sfrmTempScheduleEdit.Requery
Sous-marin d'extrémité
__________________________
grpRepeats_AfterUpdate secondaire privé ()
Faible ctl comme commande
Faible intCounter comme nombre entier
Faible intWeek comme nombre entier
Faible intDay comme nombre entier
Me.txt EndDate.Visible = (Me.grpRepeats = 2)
Me.txt StartDate.Visible = (Me.grpRepeats = 2)
Me.sfrmTempSchedule.Visible = (Me.grpRepeats = 1)
Pour l'intWeek = 0 à 5
Pour = 1 à 7 intDay
Placer le ctl = je (« chkDay » et l'intWeek et intDay)
ctl. Évident = (Me.grpRepeats = 2)
ctl. Valeur = 0
Après
Après
Choisir le cas Me.grpRepeats
Affaire 2 'répétant
Affaire 1
Extrémité choisie
Sous-marin d'extrémité
|
