[Resolvido]Adaptação de um bd para receber dívidas

Amigos boa noite.estou tentando adaptar um módulo de receber dividas do amigo formiga em um bd de OS que estou a fazer pra mim mas esta dificil,se algum colega puder dar uma olhada postei o bd e um texto explicando oque gostaria.

Abçs.

https://dl.dropboxusercontent.com/u/90217826/Jars%20OS.zip

Boa tarde
Kaynan

Se for + ou - isto é só continuar

Ola Assis, isso mesmo, e me diga como poderia fazer pra preencher os demais campos da list do Receberdividas.
Obrigado amigo.

Kaynan
Tem de criar os campos que faltam na tabela, para por exemplo poder receber parte do valor etc.

Assis,na tabela REA8 tem o cod_os,o codCliente,,a data a pecaAplicada e quantidade,não é por ai.
Se tiver tempo acerte pra mim,ta complicado rsrs

Assis,quando eu quito a divida do cliente ele não salva a divida quitada,se eu fecho e abro novamente o form Receberdivida esta la a divida novamente que sera.

Abçs.

Kaynan

Tem que editar a tabela

Tente aplicar no botão de gravar

Dim DB As Database, rs As Recordset
   Set DB = CurrentDb()
   Set rs = DB.OpenRecordset("SuaTabela", dbOpenDynaset)
   rs.FindFirst "Codigonatabela = " & Codigonoformulario
   rs.Edit
   
   rs("ValorAReceber") = rs("ValorAReceber").Value - Me!txtValorRecebido

 
   rs.Update
   rs.Close
   Set rs = Nothing


Atenção ao campo a que chama "Valor" na tabela. Mude para txtValor porque valor é uma palavra propria do VBA e vai causar problemas.
 
   Set DB = Nothing

Assis diz nenhum registro atua e fica em amarelo o rs.Edit

Private Sub btnGravar_Click()

Dim DB As Database, rs As Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Venda", dbOpenDynaset)
rs.FindFirst "Código = " & Cod_os
rs.Edit

rs("txtValordivida") = rs("txtvalorDivida").Value - Me!txtValorAbater


rs.Update
rs.Close
Set rs = Nothing
Set DB = Nothing
End Sub

Teste

rs.FindFirst "Código = " & Me.Cod_os


Ou poste porque isso é outra tabela

Veja Assis.

https://dl.dropboxusercontent.com/u/90217826/JARsEleteste1-Assis.zip

Teste

Na Lista de devedores só aparecem os que devem.

Depois de confirmar o recebimento repare que a lista dos devedores atualiza de seguida.

Perfeitooo Assis,agora pra finalizar teria jeito de aparecer na list o aparelho em conserto com seu valor.

Qual List

A do frmReceberDivida.

O Valor já aparece, "Valor da Divida"

Perfeito Assis, muito bom mesmo,agora vou adaptar no form original e fazer os ultimos testes.
Muito obrigado por tudo mestre,valeu mesmo um abraço e fica com Deus.

Assis ou um outro colega: neste exemplo de receber dividas tenho um botão que escolho o ano para visualizar o que foi feito e o que foi faturado em consertos, só que após receber a divida do cliente o valor passa a ser "0" zero,e eu queria que me mostrasse o valor obtido na quele ano,ou seja quando o cliente pagar a divida essa divida fosse para uma outra tabela de recebidos.
Alguém poderia dar uma olhada pra mim. Abçs.


https://dl.dropboxusercontent.com/u/90217826/JARsEleteste-Assis%20Novo.zip

Kaynan
Tem de ter na tabela um campo para guardar o valorInicial, que é o que já lá está.
E outro para guardar os recebimentos, e este é que tem que diminuir com os recebebimentos.

E ao gravar os dados tem de dizer que o valor o campo valor a receber é igual ao campo que já lá está o "txtValor"

Qual é o formulario que grava na tabela REA8 ?

Fim de semana a trabalhar

Ola mestre é o formulario FormElet.

Teste
Tem mais um campo na tabela para receber os recebimentos

O formulario de registar veja o camando "gravar"

Bem melhor mestre,mas tem como no "ContasReceber" no campo Valordivida ir diminuindo tambem conforme o cliente ir pagando até ficar zero a divida,e no campo recebido do formElet zerar também.

Agora não posso ver isso porque estou no ipad . Só amanhã

Ok mestre.
Abçs.

Assis resolvi assim.
Obrigado pelas dicas e exemplos valeu mesmo.

https://dl.dropboxusercontent.com/u/90217826/JARsEleteste-Assis%20Novo.zip