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]Atualizar o mesmo registro que se repete na mesma tabela

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4040
    Registrado : 20/04/2011

    [Resolvido]Atualizar o mesmo registro que se repete na mesma tabela

    Mensagem  Silvio em 11/7/2018, 20:39

    Prezados boa tarde / boa noite !

    Preciso realizar uma atualização de preços de um mesmo produto em uma tabela.
    É pegar a descrição que o produto e atualizar o preço do mesmo em toda a tabela.

    Segue abaixo o código eu usava anteriormente, mas o mesmo atualiza apenas um campo e os demais permanecem com o preço antigo.

    Private Sub bt_AtualizaCusto_Click()
    On Error Resume Next
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select * from TblOrcamentoDetalhe Where Descricao = '" & Me.Descricao & "'")
    rs.Edit
    rs("Valorvenda") = Me.VCompra.Value
    rs.Update
    rs.Close
    db.Close
    End Sub

    Tem como adaptar o código acima ?

    Grato pela ajuda !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4040
    Registrado : 20/04/2011

    Re: [Resolvido]Atualizar o mesmo registro que se repete na mesma tabela

    Mensagem  Silvio em 11/7/2018, 21:19

    Deixo aqui o código que eu usei para propagar o mesmo preço de um mesmo produto que se repete em uma tabela.

    Private Sub bt_AtualizaCusto_Click()
    'Desenvolvido por Silvio/Julho2018

    Dim rs As DAO.Recordset
    Dim Contador As Long
    Dim ContaOProgresso As Long
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TblOrcamentoDetalhe WHERE descricao  ='" & Me.Descricao & "'")

    If rs.RecordCount > 0 Then
    rs.MoveLast
    Contador = rs.RecordCount
    rs.MoveFirst
    End If

    For ContaOProgresso = 1 To Contador
    rs.Edit
    rs("valorvenda") = Me.VCompra
    rs.Update
    rs.MoveNext
    Next ContaOProgresso
    MsgBox "OK, Total de: " & Contador & " registros atualizados.", vbInformation, "AVISO"
    DoCmd.RunCommand acCmdSave
    Me.Requery
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 26/9/2018, 02:31