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]Percorre a tabela e atualiza os registros selecionados

    avatar
    patrickdanielli1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 22/07/2017

    [Resolvido]Percorre a tabela e atualiza os registros selecionados Empty [Resolvido]Percorre a tabela e atualiza os registros selecionados

    Mensagem  patrickdanielli1 12/1/2018, 11:22

    Ola pessoal, eu tenho um formulário que contem um sub_formulario neste sub tem uma caixa de seleção(PAGAMENTO), eu gostaria que ao selecionar a caixa de seleção ele atualizasse a data de pagamento para o dia de hoje, lembrando que se pode selecionar mais de um registro, estou usando esse código

    Código:
    Dim rst As Recordset

    Set rst = Me.Recordset
    rst.MoveFirst
    Do While Not rst.EOF

    With rst
    .Edit

    CurrentDb.Execute "UPDATE CAD_LANCAMENTO Set CAD_LANCAMENTO.DATA_PAGAMENTO= now() Where [cod_lancamento]=" & Me.sub_pagamento!cod_lancamento & " and me.sub_pagamento!PAGAMENTO = -1"

    .Update
    ------>.MoveNext
    End With
    Loop

    Set rst = Nothing

    Porém esta dando erro 91 variável do objeto ou do bloco With não definida e depura na linha marcada(-->)
    Achei que poderia ser alguma definição não selecionada, mas parece que esta tudo ok.
    Atenciosamente.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Percorre a tabela e atualiza os registros selecionados Empty Percorre a tabela e atualiza os registros selecionados

    Mensagem  good guy 12/1/2018, 12:26

    Olá Parick,

    Onde está a referência à tabela que é o recordset propriamente dito?

    Set rst = Me.Recordset (?)

    O certo seria:

    Set rst = CurrentDb.OpenRecordset("SuaTabela", dbOpenTable)
    avatar
    patrickdanielli1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 22/07/2017

    [Resolvido]Percorre a tabela e atualiza os registros selecionados Empty Re: [Resolvido]Percorre a tabela e atualiza os registros selecionados

    Mensagem  patrickdanielli1 12/1/2018, 16:31

    Ola good guy, obrigado pelo retorno

    a parte do record set consegui resolver com sua recomendação.
    tópico resolvido

    Conteúdo patrocinado


    [Resolvido]Percorre a tabela e atualiza os registros selecionados Empty Re: [Resolvido]Percorre a tabela e atualiza os registros selecionados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:23