[Resolvido]Lançamento altomatico no caixa

Olâ a todos
Estou iniciando no acces e estou fazendo um programa para controle financeiro para a empresa onde faço estágio de curso

Tenho os formulários de contas a pagar e receber e caixa
No formulario de contas a receber tenho um subformulario acoplado onde vou lançando as parcelas de cada cliente e quando ele paga aquela parcela coloco a data do pagamento e marco a chekbox, até ai ok

Queria que quando marcar a chekbox e clicar em um botão ele pegasse alguns dados da linha onde está aquele chekbox e inserisse no caixa
Lembrando que eu posso ja ter algumas chekbox marcadas e cada parcela possui um id unico acho que deve ser por ele que tenho que buscar o registro

Agradeço se alguem puder me ajudar pois ja procurei muito.

poste o bd em access2007 e descreva melhor o que quer que ele insira no caixa

Abra o formulário contas a receber

Tem um subformulario Recebimentos onde são cadastradas as prestações
Quando o cliente paga e coloco a  data real em que ele pagou e marco o chekbox e salvo.

Eu quero uma forma de poder lançar na tabela de caixa a Data_real e o Valor do subformulario e o ID do cliente no formulário contas a receber em Data, Valor e ID_Cliente_fornecedor respectivamente  da tabela caixa.

Neste mesmo processo quero armazenar no campo Histórico e Tipo_movimento da tabela caixa um texto pré_definido Lançamento de contas a receber e Entrada respectivamente.

Não sei se recebeu o arquivo
Não consigo adicionar pois diz que ecedeu o limite de espaço mas o arquivo zip tem so 411 kb

Boa tarde

Poste neste site, basta arrastar o BD para lá.

http://ge.tt/

Segue link do bd
http://ge.tt/9JkrAqQ2/v/0?c

Boa tarde a todos
Desculpem pela insistência
Se alguém conseguir me ajudar eu agradeço, pois preciso terminar isso para defesa de banca do meu estágio que é semana que vem
Caso não tenham entendido posso explicar com mais detalhes.

esta dando formato de banco de dados nao reconhecido.

se puder mandar numa versao anterior

http://ge.tt/4mO2ttQ2?c

Alguem saberia me ajudar

Boa noite

Altere os nomes dos campos e da tabela para os seus ....

'------ Depois de marcar a chekbox no tal Botão de Gravar ......

Dim DB As Database, rs As Recordset
   Set DB = CurrentDb()
   Set rs = DB.OpenRecordset("NomeDaTabela", dbOpenDynaset)
   rs.FindFirst "CódigoDaTabela = " & Me.CodigodoFormulario
   rs.Edit
     rs("NomedoCampodaTabela1") = Me!CampoDoFormulario1
     rs("NomedoCampodaTabela2") = Me!CampoDoFormulario2
     rs("NomedoCampodaTabela3") = Me!CampoDoFormulario3
   ' Aqui pode colocar + campos

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

Ola Assis

Eu fiz umas mudanças no código com base em um que eu tenho para lançar em caixa alguns dados quando for feito uma venda a vista

Coloquei o código no click da chekbox, ele ficou assim


Private Sub ckbox_Pago_Click()
Dim DB As Database, Caixa As Recordset

Set DB = CurrentDb()
Set Caixa = DB.OpenRecordset("Caixa", dbOpenDynaset)

'Não sei o que usar FindFirst "" = " & Me.Titulo
Caixa.Edit 'Trocar por Caixa.AddNew

Caixa!Data = Me.Data_real
Caixa!Valor = Me.Valor
Caixa!ID_cliente_fornecedor = Forms!Contas_Receber!Cliente
Caixa!Histórico = "Lançamento de Contas á Receber"
Caixa!Tipo_movimento = "Entrada"

If MsgBox("Deseja fazer o lançamento no caixa", vbYesNo, "Confirmação") = vbYes Then

MsgBox "Lançado com sucesso", vbInformation, "lançamento realizado"
Caixa.Update
Caixa.MoveLast

Else

Caixa.CancelUpdate

End If


Caixa.Close
Set Caixa = Nothing
DB.Close
Set DB = Nothing
End Sub


Porém eu estou com algumas duvidas na quinta e sexta linha do código

Eu quero adicionar os valores na tabela Caixa, Então seria AddNew?
E pelo que entendi na quinta linha o comando FindFirst do código eu me passou ele busca o código do formulário e procura ele na tabela caixa.
Porem o que eu quero é que identifique no Subformulario Recebimentos, qual o chekbox que eu assinalei e me retorne os seus devidos valores nas variáveis
Poderia me ajudar?

Rene

Se é um movimento novo na tabela caixa, então tente adaptar este código.


Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Confirma
Confirma = MsgBox("Confirma a Gravação dos Dados Inseridos ?", vbYesNo, "Aviso")
If Confirma = vbYes Then
Set rst = CurrentDb.OpenRecordset("Caixa")
With rst
.AddNew
rst("ID") = Nz(DMax("id", "Caixa")) + 1
rst("nome") = Me.Nome
rst("letra") = Me.Letra

.Update
End With

Exit Sub
Else
MsgBox "Cancelar Gravação ?", vbCritical, "Aviso"

Exit Sub
End If

End Sub

Assis

No código acima eu entendi que ele faz um novo registro na tabela Caixa, certo?
O ID de Caixa é gerando automaticamente....

Porém o que eu quero é uma forma de identificar no Subformulario Recebimentos, em qual linha que eu marquei o checkbox.

No código a seguir, ele está funcionando direto quando eu tenho apenas uma parcela no subformulario. Porém quando tenho mais que uma ele não consegue identificar a linha.


Private Sub ckbox_Pago_Click()
Dim DB As DAO.Database, Caixa As DAO.Recordset

Set DB = CurrentDb()
Set Caixa = DB.OpenRecordset("Caixa", dbOpenDynaset)

Caixa.AddNew

Caixa!Data = Me.Data_real
Caixa!Valor = Me.Valor
Caixa!ID_cliente_fornecedor = Forms!Contas_Receber!Cliente
Caixa!Histórico = "Lançamento de Contas á Receber"
Caixa!Tipo_movimento = "Entrada"


If MsgBox("Deseja fazer o lançamento no caixa?", vbYesNo, "Confirmação") = vbYes Then

MsgBox "Lançado com sucesso", vbInformation, "lançamento realizado"
Caixa.Update
Caixa.MoveLast

Else

Caixa.CancelUpdate

End If


Caixa.Close
Set Caixa = Nothing
DB.Close
Set DB = Nothing
End Sub

Rene

Não faz os registos um de cada vez ?

Eu aqui com este comando marco 2 ou mais .....

Digita a Data_real e depois clika na caixa Pago

Falta o campo a vermelho na tabela recebimentos.

Dim DB As DAO.Database, Caixa As DAO.Recordset

Set DB = CurrentDb()
Set Caixa = DB.OpenRecordset("Caixa", dbOpenDynaset)

Caixa.AddNew

Caixa!Data = Me.Data_real
Caixa!Valor = Me.Valor
Caixa!ID_cliente_fornecedor = Forms![Contas Receber]!Cliente
Caixa!Histórico = "Lançamento de Contas á Receber"
Caixa!Tipo_movimento = "Entrada"
Caixa!ID_tipo_pagamento = 1

If MsgBox("Deseja fazer o lançamento no caixa?", vbYesNo, "Confirmação") = vbYes Then

MsgBox "Lançado com sucesso", vbInformation, "lançamento realizado"
Caixa.Update
Caixa.MoveLast

Else

Caixa.CancelUpdate

End If


Caixa.Close
Set Caixa = Nothing
DB.Close
Set DB = Nothing

É que no subformulario eu registro as parcelas de cada clientes de cada compra que ele faz, neste momento elas ficam abertas
Quando o cliente me paga eu vou la e marco a chekbox, porem quando eu faço isso significa que ele já me pagou, e pra facilitar esse processo, pra não precisar abrir a tela de caixa, eu queria que ele fizesse automaticamente n momento em que eu do baixa de uma parcela especifica, lembrando que pode ter varias parcelas, algumas já pagas anteriormente e outras abertas no mesmo subformulario
Se tiver apenas uma parcela no subformulario ele faz o lançamento em caixa, mas se tiver mais ele da erro
E eu alterei a Tabela Caixa no campo Tipo_pagamento para não obrigatório. ai não é necessário imformar neste caso

Teste neste exemplo



http://ge.tt/8E8Bw6R2/v/0?c

Ok Assis
Deu certo

Apenas para fins didáticos

Por que antes não funcionava? Era no evento errado?

Obrigado

Rene

Diferenças:

sua linha ------- Caixa!ID_cliente_fornecedor = Forms!Contas_Receber!Cliente

Minha linha --- Caixa!ID_cliente_fornecedor = Forms![Contas Receber]!Cliente

Faltava

esta linha ------ Caixa!ID_tipo_pagamento = 1

ok
Obrigado