[Resolvido]Gerar mensalidades automaticamente

Boa Noite!

Estou criando um Sistema para gerar uma arquivo de débito automático de uma associação para o banco debitar as mensalidades, já temos o convenio, o layout do arquivo, por hora estou fazendo o BD com os formulários, após vou pra parte de gerar o arquivo.REM (um arquivo texto com linha reader e determinados dados).

Quero um formulário onde eu selecione o convenio ; e gere as mensalidades para todos os clientes com situação "Ativa" e valores de acordo com a tabela clientes, com vencimento na data que digitar no formulario.
Atualmente o software que o banco fornece tem que gerar um por um, como a mensalidade é de valor fixo, deve haver uma forma de automatizar

Será que é muito difícil?

Bd até onde fui

https://drive.google.com/open?id=1YbyHjJ8uUvxFbxymByzp5Dmpr6FUy9Uj

Caro Amigo,

Onde tem o convênio do cliente?
Onde vai gravar os resultados para cada cliente com tabelas com uma chave primária?

Abraços

Onde tem o convênio do cliente?
(como vai ser um sistema só pro nosso convenio, nao vinculei, existe o convenio só pra ter a informação no arquivo)


Onde vai gravar os resultados para cada cliente com tabelas com uma chave primária?
( na tabela débitos )


To meio perdido, faz tempo que não uso access, e surgiu essa necessidade, me deem uma luz!

Caro Bruno,

Veja este botão Gerar. Seria isso mesmo?
Lembrando que não está criticando o convênio. Conforme você falou, só vai trabalhar com um. Aconselho criar logo esse campo na tabela de Clientes, lá na frente aparece outro convênio, como vai separar? Pense no futuro.

Abraços

Bah show de bola, daqui pra diante vou tentando me virar rsrsrs


Poderia fazerum comentário no código pra eu tentar entender como funciona?? talvez outras situações conseguirei fazer sozinho:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim TotalX As Integer
TotalX = 0
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM [Clientes]")
Set rs2 = db.OpenRecordset("SELECT * FROM [Remessa]")
Set rs3 = db.OpenRecordset("SELECT * FROM [debitos]")

Do While Not rs.EOF
rs3.AddNew
If rs![situacao] = "Ativo" Then ' And Me.[Convenio] Then
rs3![Id_mensalidade] = Me.[Id_remessa]
rs3![Cliente] = rs![Cod_Cliente]
rs3![Vencimento] = Me.[Vencimento]
rs3![vlr_Mensalidade] = Me.[vlr_Mensalidade]
TotalX = TotalX + Me.[vlr_Mensalidade]
End If


rs3.Update
rs3.Requery

rs.MoveNext
Loop
Me.[Total] = TotalX


rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
rs3.Close
Set rs3 = Nothing
db.Close
Set db = Nothing

Exit Sub
trata_erro:

'Call MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

MsgBox "TERMINADO..."

Dim db As DAO.Database

'definição de variáveis
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim TotalX As Integer
TotalX = 0
Set db = CurrentDb()

'cria conjunto de registo para trabalho
Set rs = db.OpenRecordset("SELECT * FROM [Clientes]")
Set rs2 = db.OpenRecordset("SELECT * FROM [Remessa]")
Set rs3 = db.OpenRecordset("SELECT * FROM [debitos]")

'Faz um laço até chegar no fim da tabela (End Of File)
Do While Not rs.EOF

'Adicionar novo registro
rs3.AddNew

If rs![situacao] = "Ativo" Then ' And Me.[Convenio] Then ' Verifica se campo situação é igual a Ativo. Se Sim, grava os conteúdos na tabela Débitos (rs3), se Não, não faz nada. O laço vai mandar para próximo registro.

'Gravando conteúdo na tabela
rs3![Id_mensalidade] = Me.[Id_remessa]
rs3![Cliente] = rs![Cod_Cliente]
rs3![Vencimento] = Me.[Vencimento]
rs3![vlr_Mensalidade] = Me.[vlr_Mensalidade]

TotalX = TotalX + Me.[vlr_Mensalidade] ' Acumula total das mensalidades para gravar no final do processo
End If

'Grava atualiza tabelas
rs3.Update
rs3.Requery

'Vai para próximo registro
rs.MoveNext
'Faz retornar o laço
Loop

'Grava total de mensalidades
Me.[Total] = TotalX


'Fecha recordset, conexões...
rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
rs3.Close
Set rs3 = Nothing
db.Close
Set db = Nothing

Exit Sub
trata_erro:

'Call MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

MsgBox "TERMINADO..."

Obrigado! Como encerro o topico?

Vá para Responder. A última linha da janela que abre tem um botão Resolvido. Click

Obrigado!