Cuestión : Acceso 2003: Es posible corregir y poner al día datos de las tablas usar un recordset

Mi código carga actual los datos de la tabla basados en valor seleccionado de la caja combinada. Exhibe su valor en una forma desatada. Puedo cambiar los datos, después chasco el botón de ahorro. Cuál entonces abre el RecordSet basado en el EmployeeID entonces que suprime a empleado existente y después que ahorra a empleado, pero por supuesto la tabla piensa que esto es una nueva entrada así que le da un nuevo EmployeeID. ¿Hay una manera de poner al día a un empleado existente sin tener que suprimir al empleado de la tabla y poner al día sus valores existentes a los nuevos suministrados en la forma? Aquí está mi código para el

del botón de ahorro… class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= 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= 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
class= del

Respuesta : Acceso 2003: Es posible corregir y poner al día datos de las tablas usar un recordset

Otras soluciones  
 
programming4us programming4us