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]Executar UPDATE por VBA em todas as linhas do relatório

    Compartilhe

    Chevonica
    Novato
    Novato

    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

    Mensagem  Chevonica em 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á!


    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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!

    Chevonica
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Chevonica em 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,
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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: 21/9/2018, 03:54