[Resolvido]Baixa automática

Senhores do Fórum, boa tarde.

Estou criando um projeto(está em fase de estudo),a minha questão é sobre baixa automática dos pagamentos enviados no relatório em txt do banco recebedor, porém o código criado baixa todas as parcelas do Contas a Receber. Queria apenas que fosse baixado as parcelas que constam no relatório somente.

Segue o código em vba que está no botão (baixa automática) no formulário "Relação de Parcelas"

.................................................................................
Private Sub cmdBaixar_Click()

Dim strSql As String
Dim db As Database
Dim rs As Recordset
Dim rsP As Recordset
Dim dtBaixa As Date
Dim i As Integer

Set db = CurrentDb

dtBaixa = Me.txtData.Value

If IsNull(Me.txtData) Then
MsgBox ("Necessário digitar uma data válida!"), vbInformation, "Atenção!"
Exit Sub
End If
       
i = 0

strSql = "SELECT * FROM tabDetRetornoBanco WHERE tabDetRetornoBanco.pagtoRetorno Like '" & dtBaixa & "'"

Set rs = db.OpenRecordset(strSql)

Set rsP = db.OpenRecordset("tabDetParcelas", dbOpenTable)

Do While Not rsP.EOF

  rsP.Edit
  rsP!pagtoParcela = rs!pagtoRetorno
  rsP!valorPagoParcela = rs!valorPagoRetorno
  rsP.Update
 
  rsP.MoveNext
 
  i = i + 1
   
Loop

rs.Close
rsP.Close

Set rs = Nothing
Set rsP = Nothing

MsgBox ("Foram atualizados " & i & " registros!"), vbInformation, "Atualização"

Me.Requery

Me.txtData = Null
Me.txtData.SetFocus

End Sub
.................................................................................

Segue também em anexo o bd e o modelo do relatório em txt.

Grato a todos!

RDuarte

Estou enviando o modelo do relatório em txt enviado pelo banco (apenas um rascunho).

Obrigado.
RDuarte

Olá

Romi escreveu:
Segue também em anexo o bd e o modelo do relatório em txt.

Cadê o bd?

Abraços


Noob

Noobezinho, tudo bem.

O anexo referente ao bd está na mensagem inicial, ok.

RDuarte

Romi

Tai o teu exemplo modificado

O campo pagtoRetorno mudei para DtpagtoRetorno por ser um campo data( estava me confundindo)   

Ao invés de código criei 2 consultas:

-Uma seleção onde refina os dados pela data digitada no formulário Relação das parcelas
-E  a consulta Atualização que contem a consulta seleção acima + a tabela das parcelas.

Teste bastante, veja se funfou legal

Abraços

Noob

Noobezinho.

Muito obrigado.

Desculpe a demora no retorno é que tem alguns dias que não acesso o meu computador.
Realmente com as consultas funcionam, ficou show.

Por isso estou dando o tópico como resolvido.

Ótimo

Valeu o retorno

Boa sorte!

Noob