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
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.
- 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.