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]Loop para Update de vários campos vázios

    Compartilhe

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/03/2013

    [Resolvido]Loop para Update de vários campos vázios

    Mensagem  mfendesa em 23/5/2018, 09:52

    Prezados, bom dia!

    Estou precisando de uma ajuda para atualizar um campo chamado REGISTRO de uma tabela chamada Tab_Dados1. O que acontece, quero um loop que pegue o último valor 10835 do campo REGISTRO e vá atualizando os campo restantes vázios e assim sucessivamente.
    Exemplo:

    REGISTRO
    10835
    10836
    e assim vai!

    Alguém pode me ajudar?

    Cordialmente,
    Marcos Fábio
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Loop para Update de vários campos vázios

    Mensagem  CassioFabre em 23/5/2018, 15:04

    Boa tarde,

    No evento ao clicar de qualquer botão em um formulário, coloque o seguinte:
    Código:
       Dim i As Integer
        i = DLast("registro", "tab_dados1", "registro <> null")
        
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("SELECT registro FROM tab_dados1 WHERE NOT registro <> null")
        
        Do While Not rs.EOF
            i = i + 1
            rs.Edit
                rs("registro") = i
            rs.Update
            rs.MoveNext
        Loop
        
        rs.close

        MsgBox "Dados atualizados com sucesso! O ultimo registro é o de número " & i & ".", vbInformation, "Atualização"

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/03/2013

    Re: [Resolvido]Loop para Update de vários campos vázios

    Mensagem  mfendesa em 24/5/2018, 14:49

    Boa tarde!
    Prezado Cassio,

    Foi de grande ajuda sua informação.

    Abraços!

      Data/hora atual: 20/7/2018, 09:48