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]Dúvida código para atualizar um campo de tabela

    Compartilhe

    maralucca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 26/05/2016

    [Resolvido]Dúvida código para atualizar um campo de tabela

    Mensagem  maralucca em Sab 06 Maio 2017, 23:22

    Boa noite,

    tenho uma tabela  (tbl_pedidos) onde preciso atualizar o campo Prox com a data do registro anterior a questão é que quando chega no ultimo registro dá um erro. Sou iniciante em VBA se alguém puder me dar uma luz no que fiz de errado agradeço.

    Código:
    Private Sub Comando0_Click()
    Dim rs As DAO.Recordset
    Dim dtIN As Date
    Dim Count As Integer
    Dim Total As Integer

    'limpa o campo
    CurrentDb.Execute "UPDATE tbl_pedidos SET Prox = null;"

    Set rs = CurrentDb.OpenRecordset("tbl_pedidos SET")

    Count = rs.RecordCount
    Total = Count - 1
      
     
    Do Until Count < Total
      
            rs.MoveNext
            
            dtIN = rs![Inicio P] 'captura data do inicio
          
            rs.MovePrevious 'retorna para o registro anterior
            rs.Edit
            rs!ProxI = dtIN
            rs.Update ' atualizei o registro anterior
            rs.MoveNext 'Avança para o registro seguinte
          
      
        
    Loop
    rs.Close

    Set rs = Nothing

        
        

    End Sub
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

    Re: [Resolvido]Dúvida código para atualizar um campo de tabela

    Mensagem  ronaldojr1 em Seg 08 Maio 2017, 20:55

    nao sei se e so comigo, mas as vezes a função recordCount da umas bugadas.
    para garantir que pega o valor certo eu movo para o ultimo registro depois eu uso
    a função e depois volto para o primeiro registro. tenta vazer isso:

    Código:
    rs.MoveLast
    Count = rs.RecordCount
    rs.MoveFirst
    Total = Count - 1

    ou vc pode percorrer os registro dessa forma:
    Código:

    Do While Not rs.EOF
        'seu codigo
    Loop

    maralucca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 26/05/2016

    Re: [Resolvido]Dúvida código para atualizar um campo de tabela

    Mensagem  maralucca em Qui 11 Maio 2017, 01:10

    Muito obrigada , funcionou
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

    Re: [Resolvido]Dúvida código para atualizar um campo de tabela

    Mensagem  ronaldojr1 em Qui 11 Maio 2017, 12:46

    O forum agredece o retorno.

      Data/hora atual: Sab 18 Nov 2017, 19:19