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

    [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório

    avatar
    Chevonica
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/06/2017

    [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório Empty [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório

    Mensagem  Chevonica 22/2/2018, 22:27

    Boa noite senhores!

    Peço desculpas, talvez o que procuro seja fácil de resolver, porém, não consegui encontrar nenhuma solução até o momento.

    Vamos lá!

    Minha intenção é executar uma "UPDATE" em todas as linhas que o relatório apresenta,

    De forma simples, executando apenas o código ( CurrentDb.Execute.... )
    esta executando apenas na última linha do relatório.

    Exemplo -



    ID       NOME        DTPAG
    1         JOSÉ         22/02/2018
    2         MARIA       EM ABERTO
    3         CARLOS     EM ABERTO
    Executar o código :

    Private Sub Comando218_Click()

    CurrentDb.Execute "UPDATE tb_nomedatabela SET [DTPAG] = '" & Date & "' WHERE [ID] = " & ID

    End Sub

    Apenas executando desta forma, o resultado seria este :



    ID       NOME        DTPAG
    1         JOSÉ         22/02/2018
    2         MARIA       EM ABERTO
    3         CARLOS     22/02/2018
    Alguém tem alguma dica de como fazer o código executar para todas as linhas?
    Para que também a linha da MARIA, ID 2 seja atualizada?

    Agradeço desde já!


    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório Empty Re: [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório

    Mensagem  FabioPaes 23/2/2018, 22:24

    Olá, se possível anexe a parte envolvida do seu Aplicativo, assim fica mais fácil entender e indicar a melhor solução!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Chevonica
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/06/2017

    [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório Empty Re: [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório

    Mensagem  Chevonica 26/2/2018, 19:38

    Prezado! Identifiquei em um código e aprimorei para a minha necessidade.

    Agradeço a abertura, de qualquer forma, vou postar aqui, caso seja a dúvida de mais alguém.

    Código:

    Sub updateemtodoscamposdorelatorio()
    '' Definir Variáveis
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sqlStr As String
    '' Setar Variáveis

    sqlStr = "SELECT tb_suatabela.seucampo FROM tb_suatabela;"
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sqlStr)

    rs.MoveFirst
    ''
    x = 0
    Do While Not rs.EOF

    'Executar comando em cada resultado, para capturar resultado ( rs!NOMEDOCAMPO )
      CurrentDb.Execute "UPDATE tb_suatabela SET [seucampo] = '" & Date & "' WHERE [CAMPODECRITÉRIO] = " & rs!CAMPODECRITÉRIO
      x = x + 1
      rs.MoveNext

    Loop



    End Sub
    Laughing

    Espero ter ajudado.
    Atenciosamente,
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório Empty Re: [Resolvido]Executar UPDATE por VBA em todas as linhas do relatório

    Mensagem  FabioPaes 27/2/2018, 12:37

    Grato pelo retorno e até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 12/4/2021, 01:02