Caros Senhores,

Tenho uma tabela de Clientes [TbClientes] com o saldo de cada Cliente [Saldo]. Fiz uma rotina onde a cada lançamento efetuado, o saldo do cliente que está ativo é atualizado. Exemplo : estou lançando no 10º Cliente cujo o Código do Cliente [CodCliente] = 999 e o seu saldo [Saldo] = -300,00. Ao efetuar o lançamento nesse registro, a rotina está atualizando sempre o [Saldo] do 1º Cliente. O que faço para que 10º Cliente, [Saldo] = -300 e [CodCliente] = 999, em que está sendo feito o lançamento, seja atualizado ?

Segue a Rotina :

Private Sub Form_AfterInsert()

Dim CurSaldoCliente As Currency
Dim rstSaldoCliente As DAO.Recordset

CurSaldoCliente = DLookup("[Saldo]", "TbClientes", "[CodCliente]=" & [CodCliente])
Set rstSaldoCliente = CurrentDb.OpenRecordset("TbClientes", dbOpenDynaset)

'Calcula o SaldoCliente depois dos Lanc do Recibo'

CurSaldoCliente = CurSaldoCliente - Me.VlTotal

'Atualiza o Saldo do Cliente na Tabela Cliente'

rstSaldoCliente.Edit
rstSaldoCliente!Saldo = CurSaldoCliente
rstSaldoCliente.Update

End Sub

Obrigado a todos,

Regis Borda

Antes de editar (.Edit) você deve posicionar o ponteiro da tabela no registro cuja chave é a desejada.

Leia sobre .Seek no Help do Access.

[]s

CEM
carlosemoretti@ig.com.br

Frase para a lápide da sogra (do seu vizinho) :

"Aqui descansa minha querida sogra X.
Senhor, recebei-a com a mesma alegria com que a mando"

Caro Carlos Moretti,

Li o Help do Access sobre o Seek, me parece que tem que definir um Index. Nos Exemplos que vi me pareceu um pouco complicado. Fiz a alteração que me pareceu a correta. Porém me apresentou ERRO "Operação não suportada para esse tipo de Objeto". Não sei o que fazer.

Se você ou alguém puder, poderia corrigir o Módulo em questão, pois não tenho muita Experiencia em VB.

Private Sub Form_AfterInsert()

Dim CurSaldoCliente As Currency
Dim rstSaldoCliente As DAO.Recordset

CurSaldoCliente = DLookup("[Saldo]", "TbClientes", "[CodCliente]=" & [CodCliente])
Set rstSaldoCliente = CurrentDb.OpenRecordset("TbClientes")
rstSaldoCliente.Index = Me.CodCliente

'Calcula o SaldoCliente depois dos Lanc do Recibo'

CurSaldoCliente = CurSaldoCliente - Me.VlTotal

'Atualiza o Saldo do Cliente na Tabela Cliente'

rstSaldoCliente.Seek "=", Me.CodCliente
rstSaldoCliente.Edit
rstSaldoCliente!Saldo = CurSaldoCliente
rstSaldoCliente.Update

End Sub

Muito Obrigado a todos,

Abraços,

Regis Borda

Oi!

Corrija aqui:
Set rstSaldoCliente = CurrentDb.OpenRecordset("TbClientes", dbOpenTable)
Agora se for tabela anexada veja em dicas no Espaço Access

André

Experimente:

rstSaldoCliente.Seek "[CodCliente]=" & [CodCliente])

[]s

CEM
carlosemoretti@ig.com.br

Frase para a lápide da sogra (do seu vizinho) :

"Aqui descansa minha querida sogra X.
Senhor, recebei-a com a mesma alegria com que a mando"