MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Duplicando ao salvar o registro editado

    Compartilhe

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Ter 02 Ago 2016, 22:11

    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 ?
    avatar
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  Caio em Qua 24 Ago 2016, 15:31

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

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Qua 24 Ago 2016, 18:29

    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
    avatar
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  Caio em Qua 24 Ago 2016, 19:01

    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.

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Qui 25 Ago 2016, 13:41

    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.

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Qui 25 Ago 2016, 16:17

    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 ?
    avatar
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  Caio em Qui 25 Ago 2016, 17:49

    mande o BD para [Você precisa estar registrado e conectado para ver este link.]

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Qui 25 Ago 2016, 18:25

    Enviado conforme solicitado

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Qui 01 Set 2016, 12:20

    bom dia...

    up

    roger aprend
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 19/08/2015

    Re: [Resolvido]Duplicando ao salvar o registro editado

    Mensagem  roger aprend em Qua 23 Ago 2017, 19:43

    resolvido

      Data/hora atual: Qua 22 Nov 2017, 10:54