Mitt kodifiera laddar för närvarande bordläggadatan som baseras på utvalt combo, boxas värderar. Den visar dess värderar i ett obundet bildar. Jag kan ändra datan, då klickar räddningen knäppas. Vilket öppnar därefter RecordSeten som baseras på EmployeeIDen därefter som den tar bort existerande anställd och sparar därefter anställd, men bordläggafunderarna detta är naturligtvis ett nytt tillträde så, det ger det en nya EmployeeID. Finns det a långt som uppdaterar existerande anställd, utan att måste att ta bort anställd från bordlägga, och att uppdatera dess existerande värderar till de nya som levereras på bilda? Är här mitt kodifierar för räddningen knäppas…
> för
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 "
" class= underbtnSave_Click " för Private ()
På felet GoTo Err_btnSave_Click
'Skapa funktionella variabler
Dunkel strSQL som stränger
Dunkelt meddelande som stränger
'Skapa variabler för matar in sätter in.
Dunkel anställd som heltal
Dunkla FName som stränger
Dunkla LName som stränger
Dunkel titel som stränger
Dunkelt tilltala som stränger
Dunkel stad som stränger
Dunkla Prov som stränger
Dunkla PCode som stränger
Dunkelt ringa som stränger
Dunkla WorkEmail som stränger
Om IsNull (cboEmployee.Value) = falskt därefter
'Tilldela sätter in till variabler
Anställd = cboEmployee.Value
FName = txtFName.Value
LName = txtLName.Value
Titel = txtTitle.Value
Tilltala = txtAddress.Value
Stad = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Ringa = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Öppna databasen
Uppsättning db = CurrentDb ()
'Öppna recordseten
Fastställda rs = db.OpenRecordset (”anställd”)
'Sql-meddelande som tar bort alla rekord som har den matcha anställdLEGITIMATIONEN från cboEmployeen att kontrollera
strSQL = ”BORTTAGNINGS * FRÅN [anställd] VAR [EmployeeID] =” & anställd
Falsk DoCmd.SetWarnings
DoCmd.RunSQL-strSQL
Riktig DoCmd.SetWarnings
'Fyll anställd bordlägger in med värderar från bilda sätter in
rs.AddNew
rs. Sätter in (”FName”). Värdera = FName
rs. Sätter in (”LName”). Värdera = LName
rs. Sätter in (”titel”). Värdera = titeln
rs. Sätter in (”tilltala”). Värdera = tilltala
rs. Sätter in (”stad”). Värdera = staden
rs. Sätter in (”Prov”). Värdera = Prov
rs. Sätter in (”PostalCode”). Värdera = PCode
rs. Sätter in (”ringa”). Värdera = ringa
rs. Sätter in (”WorkEmail”). Värdera = WorkEmail
rs. Uppdatering
'Nära och nollställd db och recordset
rs. Nära
Fastställda rs = ingenting
db. Nära
Uppsättning db = ingenting
Tillfogad MsgBox ”anställd. ” vbInformation + vbOKOnly, ”anställdledning”,
'Förnya anställd tappar besegrar menyn
Me.cboEmployee.Requery
'Klart sätter in
txtFName.Value = "",
txtLName.Value = "",
txtTitle.Value = "",
txtAddress.Value = "",
txtPhone.Value = "",
txtCity.Value = "",
txtWorkEmail.Value = "",
txtPostalCode.Value = "",
cboProv.Value = ogiltigt
Annars
'Tilldela sätter in till variabler
FName = txtFName.Value
LName = txtLName.Value
Titel = txtTitle.Value
Tilltala = txtAddress.Value
Stad = txtCity.Value
Prov = cboProv.Value
PCode = txtPostalCode.Value
Ringa = txtPhone.Value
WorkEmail = txtWorkEmail.Value
'Öppna databasen
Uppsättning db = CurrentDb ()
'Öppna recordseten
Fastställda rs = db.OpenRecordset (”anställd”)
'Sql-meddelande som tar bort alla rekord som har den matcha anställdLEGITIMATIONEN från cboEmployeen att kontrollera
strSQL = ”BORTTAGNINGS * FRÅN [anställd] VAR [EmployeeID] =” & anställd
Falsk DoCmd.SetWarnings
DoCmd.RunSQL-strSQL
Riktig DoCmd.SetWarnings
'Fyll anställd bordlägger in med värderar från bilda sätter in
rs.AddNew
rs. Sätter in (”FName”). Värdera = FName
rs. Sätter in (”LName”). Värdera = LName
rs. Sätter in (”titel”). Värdera = titeln
rs. Sätter in (”tilltala”). Värdera = tilltala
rs. Sätter in (”stad”). Värdera = staden
rs. Sätter in (”Prov”). Värdera = Prov
rs. Sätter in (”PostalCode”). Värdera = PCode
rs. Sätter in (”ringa”). Värdera = ringa
rs. Sätter in (”WorkEmail”). Värdera = WorkEmail
rs. Uppdatering
'Nära och nollställd db och recordset
rs. Nära
Fastställda rs = ingenting
db. Nära
Uppsättning db = ingenting
Tillfogad MsgBox ”anställd. ” vbInformation + vbOKOnly, ”anställdledning”,
'Klart sätter in
txtFName.Value = "",
txtLName.Value = "",
txtTitle.Value = "",
txtAddress.Value = "",
txtPhone.Value = "",
txtCity.Value = "",
txtWorkEmail.Value = "",
txtPostalCode.Value = "",
cboProv.Value = ogiltigt
'Förnya anställd tappar besegrar menyn
Me.cboEmployee.Requery
Avsluta om
Exit_btnSave_Click:
Gå ut suben
Err_btnSave_Click:
MsgBox Err.Description
Meritförteckning Exit_btnSave_Click
Avsluta suben
" klar "
|