EDITAR REGISTRO CRIADO COM DAO.RECORSET

MARCOSANDRE 21/04/2015 17:23:34
#446039
Boa tarde! Ao criar um registro tenho um segundo registro q é criado em outra tabela, para isso uso o seguinte codigo em meu form:

Else

Dim db As DAO.Database, Rs As DAO.Recordset
Set db = CurrentDb()

Set Rs = db.OpenRecordset([Ô]Tbl_LancamentosCaixa[Ô])

Rs.AddNew

Rs([Ô]TipoLancamento[Ô]) = [Ô]CRéDITO[Ô]
Rs([Ô]NomeLancamento[Ô]) = [Ô]ENTRADA DE DOAÇÕES[Ô]
Rs([Ô]Responsavel[Ô]) = Me.RecolhedorResponsavel
Rs([Ô]Valor[Ô]) = Me.ValorTotal
Rs([Ô]CodigoDoacao[Ô]) = Me.CódigoDoacao


Rs.Update
db.Close
Set db = Nothing
Set Rs = Nothing

O problema é que quando eu vou alterar o registro no form, o registro acima não é atualizado. Que função coloco no meu botão para que, ao alterar o registro do form seja alterado também esse registro?
OMAR2011 21/04/2015 19:37:52
#446042
Abandona isto.
Vai de VBnet.
Daoooooooooo.
Muito atrasado.
FBGSYSTEMS 21/04/2015 21:22:14
#446044
A dica do OMAr eh valida. Mas caso nao consiga resolver aqui vai como se edita isto

set rs = db.openrecordset([Ô]select registro blablabla[Ô],dbopendynaset)

rs.edit [ô] ou addnew se for novo registro

rs.update
MARCOSANDRE 21/04/2015 22:02:51
#446046
OMAR2011 e FBGSYSTEMS obrigado pelas informações. Na verdade eu tenho um form que faz o registro de doações junto com um sub form. Preciso que o total de doações de cada lançamento seja incorporado em algum tipo de controle de caixa. A opções que eu encontrei na net foi essa do DAO onde eu faço o registro simultaneo em outra tabela. Qual é a melhor forma de realizar esse lançamento de caixa?
FBGSYSTEMS 22/04/2015 09:17:17
#446057
Voce vai precisar de um campo saldo nesta sua tabela de doações.

Assim toda vez que voce inserir um registro, voce pesquisa o ultimo registro e soma/subtrai o valor do novo registro.
Faça seu login para responder
Voltar