Pergunta : Acesso 2003: É possível editar e atualizar uns dados das tabelas using um recordset

Meu código carrega atualmente os dados da tabela baseados no valor selecionado da caixa combinado. Indica seu valor em um formulário unbound. Eu posso mudar os dados, a seguir estalo a tecla de salvaguarda. Qual abre então o RecordSet baseado no EmployeeID então que suprime do empregado existente e conserva então o empregado, mas naturalmente a tabela pensa que esta é uma entrada nova assim que dá-lhe um EmployeeID novo. Há uma maneira de atualizar um empregado existente sem ter que suprimir do empregado da tabela e atualizar seus valores existentes aos novos fornecidos no formulário? Está aqui meu código para o

da tecla de salvaguarda… class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= 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= 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
class= do

Resposta : Acesso 2003: É possível editar e atualizar uns dados das tabelas using um recordset

Outras soluções  
 
programming4us programming4us