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

    avatar
    mfendesa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  mfendesa 23/5/2018, 15: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
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  CassioFabre 23/5/2018, 21: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!
    avatar
    mfendesa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  mfendesa 24/5/2018, 20:49

    Boa tarde!
    Prezado Cassio,

    Foi de grande ajuda sua informação.

    Abraços!

      Data/hora atual: 3/12/2022, 06:14