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:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
|
" codeBody "
van Private SubbtnSave_Click ()
Op Fout GoTo Err_btnSave_Click
'Cre�ër functionele variabelen
Verduister strSQL als Koord
Verduister bericht als Koord
'Cre�ër variabelen voor inputgebieden.
Verduister Werknemer als Geheel
Verduister FName als Koord
Verduister LName als Koord
Verduister Titel als Koord
Verduister Adres als Koord
Verduister Stad als Koord
Verduister Prov als Koord
Verduister PCode als Koord
Verduister Telefoon als Koord
Verduister WorkEmail als Koord
Als IsNull (cboEmployee.Value) = Vals toen
'Wijs gebieden aan variabelen toe
Werknemer = cboEmployee.Value
FName = txtFName.Value
LName = txtLName.Value
Titel = txtTitle.Value
Adres = txtAddress.Value
Stad = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Telefoon = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Open het gegevensbestand
Plaats db = CurrentDb ()
'Open recordset
Plaats rs = db.OpenRecordset („Werknemer“)
'SQL verklaring om alle verslagen te schrappen die passende identiteitskaart van de Werknemer van de cboEmployeecontrole hebben
strSQL = „SCHRAP * VAN [Werknemer] WAAR [EmployeeID] =“ & Werknemer
DoCmd.SetWarnings Vals
DoCmd.RunSQL strSQL
DoCmd.SetWarnings Waar
'Vul de lijst van de Werknemer met de waarden van de vormgebieden in
rs.AddNew
rs. Gebieden („FName“). Waarde = FName
rs. Gebieden („LName“). Waarde = LName
rs. Gebieden („Titel“). Waarde = Titel
rs. Gebieden („Adres“). Waarde = Adres
rs. Gebieden („Stad“). Waarde = Stad
rs. Gebieden („Prov“). Waarde = Prov
rs. Gebieden („PostalCode“). Waarde = PCode
rs. Gebieden („Telefoon“). Waarde = Telefoon
rs. Gebieden („WorkEmail“). Waarde = WorkEmail
rs. Update
'Sluit en stel db terug en recordset
rs. Sluit
Plaats rs = niets
db. Sluit
Plaats db = niets
Toegevoegde de Werknemer van MsgBox „. “, vbInformation + vbOKOnly, „het Beheer van de Werknemer“
'Verfris de werknemersdaling onderaan menu
Me.cboEmployee.Requery
'Duidelijke gebieden
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = verklaar nietig
Anders
'Wijs gebieden aan variabelen toe
FName = txtFName.Value
LName = txtLName.Value
Titel = txtTitle.Value
Adres = txtAddress.Value
Stad = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Telefoon = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Open het gegevensbestand
Plaats db = CurrentDb ()
'Open recordset
Plaats rs = db.OpenRecordset („Werknemer“)
'SQL verklaring om alle verslagen te schrappen die passende identiteitskaart van de Werknemer van de cboEmployeecontrole hebben
strSQL = „SCHRAP * VAN [Werknemer] WAAR [EmployeeID] =“ & Werknemer
DoCmd.SetWarnings Vals
DoCmd.RunSQL strSQL
DoCmd.SetWarnings Waar
'Vul de lijst van de Werknemer met de waarden van de vormgebieden in
rs.AddNew
rs. Gebieden („FName“). Waarde = FName
rs. Gebieden („LName“). Waarde = LName
rs. Gebieden („Titel“). Waarde = Titel
rs. Gebieden („Adres“). Waarde = Adres
rs. Gebieden („Stad“). Waarde = Stad
rs. Gebieden („Prov“). Waarde = Prov
rs. Gebieden („PostalCode“). Waarde = PCode
rs. Gebieden („Telefoon“). Waarde = Telefoon
rs. Gebieden („WorkEmail“). Waarde = WorkEmail
rs. Update
'Sluit en stel db terug en recordset
rs. Sluit
Plaats rs = niets
db. Sluit
Plaats db = niets
Toegevoegde de Werknemer van MsgBox „. “, vbInformation + vbOKOnly, „het Beheer van de Werknemer“
'Duidelijke gebieden
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = verklaar nietig
'Verfris de werknemersdaling onderaan menu
Me.cboEmployee.Requery
Eind als
Exit_btnSave_Click:
Sub van de uitgang
Err_btnSave_Click:
MsgBox Err.Description
Hervat Exit_btnSave_Click
Beëindig Sub
|