[Resolvido]Duplicando ao salvar o registro editado

Boa noite Srs
venho mais uma vez a recorrer a ajuda de voces, no entanto como estou no começo desta jornada do access estou quebrando a cabeça que para muitos e bem simples mais com esforço eu chego la....

minha duvida : tenho determinados registros ja gravados na tabela....ao selecionar determinado registro pelo formulario e puxar suas informações ha um botao de editar que habilita os campos para alterações ate ae ok, outro botao para SALVA ai esta minha duvida, ao clicar no botao ele salva os dado como um novo registro na tabela e nao edita aquela alterações que eu gostaria.

o que eu posso esta fazendo de errado ?

A busca pelo registro esta sendo feita por um numero sequencial?
Qual código esta usando no botão SALVAR?

boa tarde Predella
segue conforme solicitado o codigo do btn salvar.



Private Sub SALVAR_Click()
'Pessoal aqui uma estrutura de comando do botão salvar, observem os comentários.

If IsNull(Me.Empresa) Then 'Se o campo tiver vazio então
MsgBox "PARA SALVAR ESTE REGISTRO VOCÊ PRECISA DIGITAR O CODIGO EMPRESA", vbInformation, "SALVAR" 'Emite mensagem de alerta e
Me.CódCliente.SetFocus 'redireciona para o campo para que o usuário digite o nome


Else

'Se lá acima o código verificou o preenchimento dos campos e constatou tudo certo então

'By JPaulo ® Maximo Access
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim i As String
On Error Resume Next


'abre o recordset da tabela
Set rst = CurrentDb.OpenRecordset("SELECT * FROM fornec WHERE cod ")

'pergunta ao user se quer mesmo salvar
i = MsgBox("Tem a certeza que deseja Salvar este Registro ?", vbYesNo, "Confirmação")
If i = vbYes Then

rst.Edit
rst("CódCliente") = Me.CódCliente
rst("Empresa") = Me.Empresa
rst("RazaoSocial") = Me.RazaoSocial
rst("Endereco") = Me.Endereco
rst("Bairro") = Me.Bairro
rst("Cidade") = Me.Cidade
rst("UF") = Me.UF
rst("CEP") = Me.CEP
rst("CNPJ") = Me.CNPJ
rst("InscEstadual") = Me.InscEstadual
rst("inscMunicipal") = Me.inscMunicipal
rst("Contato") = Me.Contato
rst("Telefone") = Me.Telefone
rst("CAP") = Me.CAP
rst("CTP") = Me.CTP
rst("POP") = Me.POP
rst("ARP") = Me.ARP
rst("Email") = Me.Email
rst("Limite") = Me.Limite
rst("Mensal") = Me.Mensal
rst("LimiteFinal") = Me.LimiteFinal
rst("Residuos") = Me.RESIDUOS
rst("liberadoColeta") = Me.LiberadoColeta
rst.Update

MsgBox "Registro Salvo com sucesso...", vbInformation
Me.Caixasucateiro.Requery

Exit Sub
End If
End If
rst.Close
Set rst = Nothing

Me.Linha1.Visible = True
Me.Linha2.Visible = True
Me.Linha3.Visible = True
Me.Linha4.Visible = True
Me.Linha5.Visible = True
Me.Linha6.Visible = True
Me.Linha7.Visible = True
Me.Linha8.Visible = True



TimerInterval = 500


Me.EXCLUIR.Enabled = False
Me.SALVAR.Enabled = False
Me.NOVO.Enabled = True
Me.FECHAR.Enabled = True

End Sub

Sugiro que vc faça assim:

No evento "ao clicar" do botão Buscar:

Código:

Private Sub SeuBotaoBuscar_Click()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SeuNumeroSequencial] = " & Str(Nz(Me.txt_CampoNumeroSequencial, 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

No evento "antes de atualizar" do seu formulário:

Código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim x As Integer
If Me.Dirty Then
x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
If x = vbNo Then
Me.Undo
End If
End If
End Sub

No botão salvar:

Código:


Private Sub Salvar_Click()
DoCmd.GoToRecord , , acNewRec
End Sub

Ou...

Código:


Private Sub Salvar_Click()
DoCmd.Close AcForm, "SeuForm"
End Sub

A lógica é, que quando vc buscar o número do registro pelo campo NÃO ACOPLADO ele traz o registro e quando clicar no Salvar ele pergunta se que alterar ou não.
Ai vc decide se quando clicar no sim o formulário fecha ou fica em branco.

Predella bom dia.
Obrigado pelo retorno. Estarei verificando e realizando o procedimento abaixo, volto a informar dando certo ou nao. De qualquer formar obrigado pelo retorno e ajuda.

Predella boa tarde
eu fiz como orientou porem nao deu certo. nao esta duplicando porem nao esta salvando na tabela as informações quando clico no botao salvar. o que posso estar fazendo de errado ?

mande o BD para caio.fabio91@gmail.com

Enviado conforme solicitado

bom dia...

up

resolvido