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:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
|
class= del
class= btnSave_Click secundario " del id= " codeSnippet814528 del Private " notpretty " ()
En el error Err_btnSave_Click indicado
'Crear las variables funcionales
Amortiguar el strSQL como secuencia
Amortiguar el mensaje como secuencia
'Crear las variables para los campos de la entrada.
Amortiguar a empleado como número entero
Amortiguar FName como secuencia
Amortiguar LName como secuencia
Amortiguar el título como secuencia
Amortiguar la dirección como secuencia
Amortiguar la ciudad como secuencia
Amortiguar Prov como secuencia
Amortiguar PCode como secuencia
Amortiguar el teléfono como secuencia
Amortiguar WorkEmail como secuencia
Si IsNull (cboEmployee.Value) = falso entonces
'Asignar los campos a las variables
Empleado = cboEmployee.Value
FName = txtFName.Value
LName = txtLName.Value
Título = txtTitle.Value
Dirección = txtAddress.Value
Ciudad = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Teléfono = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Abrir la base de datos
Fijar DB = CurrentDb ()
'Abrir el recordset
Fijar los rs = db.OpenRecordset (el “empleado”)
La 'declaración de SQL para suprimir toda registra que tengan la identificación del empleado que empareja del control del cboEmployee
strSQL = “CANCELACIÓN * DE [empleado] DONDE [EmployeeID] =” y empleado
DoCmd.SetWarnings falso
strSQL de DoCmd.RunSQL
DoCmd.SetWarnings verdad
'Completar la tabla del empleado de los valores de los campos de la forma
rs.AddNew
rs. Campos (“FName”). Valor = FName
rs. Campos (“LName”). Valor = LName
rs. Campos (“título”). Valor = título
rs. Campos (“dirección”). Valor = dirección
rs. Campos (“ciudad”). Valor = ciudad
rs. Campos (“Prov”). Valor = Prov
rs. Campos (“PostalCode”). Valor = PCode
rs. Campos (“teléfono”). Valor = teléfono
rs. Campos (“WorkEmail”). Valor = WorkEmail
rs. Actualización
'DB y recordset cercanos y reajustados
rs. Cierre
Fijar los rs = nada
DB. Cerrarse
Fijar DB = nada
Empleado de MsgBox “agregado. ”, vbInformation + vbOKOnly, “gerencia del empleado”
'Restaurar a empleado el menú de persiana
Me.cboEmployee.Requery
'Campos claros
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = falta de información
'Asignar los campos a las variables
FName = txtFName.Value
LName = txtLName.Value
Título = txtTitle.Value
Dirección = txtAddress.Value
Ciudad = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Teléfono = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Abrir la base de datos
Fijar DB = CurrentDb ()
'Abrir el recordset
Fijar los rs = db.OpenRecordset (el “empleado”)
La 'declaración de SQL para suprimir toda registra que tengan la identificación del empleado que empareja del control del cboEmployee
strSQL = “CANCELACIÓN * DE [empleado] DONDE [EmployeeID] =” y empleado
DoCmd.SetWarnings falso
strSQL de DoCmd.RunSQL
DoCmd.SetWarnings verdad
'Completar la tabla del empleado de los valores de los campos de la forma
rs.AddNew
rs. Campos (“FName”). Valor = FName
rs. Campos (“LName”). Valor = LName
rs. Campos (“título”). Valor = título
rs. Campos (“dirección”). Valor = dirección
rs. Campos (“ciudad”). Valor = ciudad
rs. Campos (“Prov”). Valor = Prov
rs. Campos (“PostalCode”). Valor = PCode
rs. Campos (“teléfono”). Valor = teléfono
rs. Campos (“WorkEmail”). Valor = WorkEmail
rs. Actualización
'DB y recordset cercanos y reajustados
rs. Cierre
Fijar los rs = nada
DB. Cerrarse
Fijar DB = nada
Empleado de MsgBox “agregado. ”, vbInformation + vbOKOnly, “gerencia del empleado”
'Campos claros
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = falta de información
'Restaurar a empleado el menú de persiana
Me.cboEmployee.Requery
Terminar si
Exit_btnSave_Click:
Salir el submarino
Err_btnSave_Click:
MsgBox Err.Description
Curriculum vitae Exit_btnSave_Click
Submarino del extremo
|