Fråga : Ta fram 2003: Är den möjligheten som ska redigeras, och att uppdatera a bordlägger data using en recordset

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 "

Svar : Ta fram 2003: Är den möjligheten som ska redigeras, och att uppdatera a bordlägger data using en recordset

Andra lösningar  
 
programming4us programming4us