class= " lineNumbers " do
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= do
class= btnSave_Click secundário " do id= " codeSnippet814528 do Private " notpretty " ()
No erro Err_btnSave_Click empreendedores
'Criar variáveis funcionais
Escurecer o strSQL como a corda
Escurecer a mensagem como a corda
'Criar variáveis para campos da entrada.
Escurecer o empregado como o inteiro
Escurecer FName como a corda
Escurecer LName como a corda
Escurecer o título como a corda
Escurecer o endereço como a corda
Escurecer a cidade como a corda
Escurecer Prov como a corda
Escurecer PCode como a corda
Escurecer o telefone como a corda
Escurecer WorkEmail como a corda
Se IsNull (cboEmployee.Value) = falso então
'Atribuir campos às variáveis
Empregado = cboEmployee.Value
FName = txtFName.Value
LName = txtLName.Value
Título = txtTitle.Value
Endereço = txtAddress.Value
Cidade = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Telefone = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Abrir a base de dados
Ajustar DB = CurrentDb ()
'Abrir o recordset
Ajustar rs = db.OpenRecordset (o “empregado”)
'A indicação de SQL para suprimir de toda grava que tem a identificação de harmonização do empregado do controle do cboEmployee
strSQL = “SUPRESSÃO * DE [empregado] ONDE [EmployeeID] =” & empregado
DoCmd.SetWarnings falso
strSQL de DoCmd.RunSQL
DoCmd.SetWarnings verdadeiro
'Preencher a tabela do empregado com os valores dos campos do formulário
rs.AddNew
rs. Campos (“FName”). Valor = FName
rs. Campos (“LName”). Valor = LName
rs. Campos (“título”). Valor = título
rs. Campos (“endereço”). Valor = endereço
rs. Campos (“cidade”). Valor = cidade
rs. Campos (“Prov”). Valor = Prov
rs. Campos (“PostalCode”). Valor = PCode
rs. Campos (“telefone”). Valor = telefone
rs. Campos (“WorkEmail”). Valor = WorkEmail
rs. Atualização
'DB e recordset próximos e restaurados
rs. Fim
Ajustar rs = nada
DB. Fechar
Ajustar DB = nada
Empregado de MsgBox “adicionado. ”, vbInformation + vbOKOnly, “gerência do empregado”
'Refrescar o empregado deixam cair para baixo o menu
Me.cboEmployee.Requery
'Campos desobstruídos
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = zero
Mais
'Atribuir campos às variáveis
FName = txtFName.Value
LName = txtLName.Value
Título = txtTitle.Value
Endereço = txtAddress.Value
Cidade = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Telefone = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Abrir a base de dados
Ajustar DB = CurrentDb ()
'Abrir o recordset
Ajustar rs = db.OpenRecordset (o “empregado”)
'A indicação de SQL para suprimir de toda grava que tem a identificação de harmonização do empregado do controle do cboEmployee
strSQL = “SUPRESSÃO * DE [empregado] ONDE [EmployeeID] =” & empregado
DoCmd.SetWarnings falso
strSQL de DoCmd.RunSQL
DoCmd.SetWarnings verdadeiro
'Preencher a tabela do empregado com os valores dos campos do formulário
rs.AddNew
rs. Campos (“FName”). Valor = FName
rs. Campos (“LName”). Valor = LName
rs. Campos (“título”). Valor = título
rs. Campos (“endereço”). Valor = endereço
rs. Campos (“cidade”). Valor = cidade
rs. Campos (“Prov”). Valor = Prov
rs. Campos (“PostalCode”). Valor = PCode
rs. Campos (“telefone”). Valor = telefone
rs. Campos (“WorkEmail”). Valor = WorkEmail
rs. Atualização
'DB e recordset próximos e restaurados
rs. Fim
Ajustar rs = nada
DB. Fechar
Ajustar DB = nada
Empregado de MsgBox “adicionado. ”, vbInformation + vbOKOnly, “gerência do empregado”
'Campos desobstruídos
txtFName.Value = ""
txtLName.Value = ""
txtTitle.Value = ""
txtAddress.Value = ""
txtPhone.Value = ""
txtCity.Value = ""
txtWorkEmail.Value = ""
txtPostalCode.Value = ""
cboProv.Value = zero
'Refrescar o empregado deixam cair para baixo o menu
Me.cboEmployee.Requery
Terminar se
Exit_btnSave_Click:
Retirar o submarino
Err_btnSave_Click:
MsgBox Err.Description
Resumo Exit_btnSave_Click
Submarino da extremidade
|