Boa tarde, tenho o seguinte código onde é feito o parcelamento de uma venda e lançamento das parcelas no contas a receber.
Private Sub btngerarp_Click()
If txtsaldo > 0 Then
MsgBox ("Essa venda foi lançada no Contas a Receber ")
Set db = CurrentDb()
Set rs = db.OpenRecordset("tab_contasr") 'Abre a tabela contas a receber
Valorcr = Me.txtsaldo / Me.QtdeParcelas 'Valor de cada Parcela
For I = 1 To Me.QtdeParcelas 'Insere as Parcela na tabela contas a receber
rs.AddNew
rs("CodVenda") = Código
rs("Cliente") = Cliente
rs("CodigoParcelamento") = Documentor
rs("Descrição") = desc
rs("ControleParcelas") = I & "/" & Me.QtdeParcelas
rs("Valorcr") = Valorcr
rs("Vencimento") = DateAdd("m", I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
db.Close
Me.tab_contasr_subvendas.Requery 'Atualiza o SubForm
End If
End Sub
Gostaria de executar esse código somente uma vez, pois todas as vezes que clico no botão ele duplica as parcelas.
Não sei se é possível pesquisar se já foi criada a parcela para depois lançar.
Obrigado
Private Sub btngerarp_Click()
If txtsaldo > 0 Then
MsgBox ("Essa venda foi lançada no Contas a Receber ")
Set db = CurrentDb()
Set rs = db.OpenRecordset("tab_contasr") 'Abre a tabela contas a receber
Valorcr = Me.txtsaldo / Me.QtdeParcelas 'Valor de cada Parcela
For I = 1 To Me.QtdeParcelas 'Insere as Parcela na tabela contas a receber
rs.AddNew
rs("CodVenda") = Código
rs("Cliente") = Cliente
rs("CodigoParcelamento") = Documentor
rs("Descrição") = desc
rs("ControleParcelas") = I & "/" & Me.QtdeParcelas
rs("Valorcr") = Valorcr
rs("Vencimento") = DateAdd("m", I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
db.Close
Me.tab_contasr_subvendas.Requery 'Atualiza o SubForm
End If
End Sub
Gostaria de executar esse código somente uma vez, pois todas as vezes que clico no botão ele duplica as parcelas.
Não sei se é possível pesquisar se já foi criada a parcela para depois lançar.
Obrigado