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

    Compartilhe

    patrickdanielli1
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Percorre a tabela e atualiza os registros selecionados

    Mensagem  patrickdanielli1 em 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.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Percorre a tabela e atualiza os registros selecionados

    Mensagem  good guy em 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)

    patrickdanielli1
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  patrickdanielli1 em 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

      Data/hora atual: 24/6/2018, 02:21