MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    maralucca
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Dúvida código para atualizar um campo de tabela

    Mensagem  maralucca 6/5/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
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ronaldojr1 8/5/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
    avatar
    maralucca
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Dúvida código para atualizar um campo de tabela

    Mensagem  maralucca 11/5/2017, 01:10

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ronaldojr1 11/5/2017, 12:46

    O forum agredece o retorno.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:11