[Resolvido]Preencher campo personalizado com informação de campo data

Olá pessoal, uso esse código para gerar parcelas em uma tabela, funciona perfeito. Mas gostaria que o campo referenteRecibo fosse preenchido com a informação do mês e ano (exemplo: junho/2024) com base no campo txtDataReferencia.

Exemplo:
Se gerar 3 parcelas com o campo txtDataReferencia = 04/06/2024 o campo referenteRecibo ficaria assim:

junho/2024
julho/2024
agosto/2024

Alguém tem uma dica para esse caso?

Código:

   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim DB As Database, rs As DAO.Recordset
    Dim ValorPac As Currency, i As Long
            
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("TBL_PARCELAMENTO") 'Abre TBL_PARCELAMENTO
    ValorPac = Me.txtfinan_totalContrato / Me.txtfinan_qtdeParcelas 'Valor de cada Parcela
        
    For i = 1 To Me.txtfinan_qtdeParcelas  'Insere as Parcela na TBL_PARCELAMENTO
        rs.AddNew
        rs("CODIGO_VENDA") = Me.idLocacao
        rs("Parcela") = i & "/" & Me.txtfinan_qtdeParcelas
        rs("Valor_Parcela") = txtValorParcela
        rs("referenteRecibo") = txtDataReferencia ' ESSA LINHA DE CÓDIGO QUE PRECISO AJUSTAR
        rs("Vencimento") = DateAdd("m", i - 1, Me.txtfinan_dataVencimento)
        rs.Update
    Next
    rs.Close
    DB.Close
    Me.Refresh
    txtDataVencimentoPlanoTab = CVDate(txtDataVencimentoPlanoFrm)
    Me.FRM_PARCELAMETO.Requery  'Atualiza o SubForm

Bom dia gilberanio,

Substitua a linha por essa:

rs("referenteRecibo") = MonthName(txtDataReferencia) &"/"& Year(txtDataReferencia)

É isso

boa sorte

Att,

Alexandre Fim

Alexandre, obrigado pela ajuda. Gera um erro na execusão do código. Fiz um exemplo para ficar melhor. Clique no botão Parcelar do formulário lançamento

Gil,

Substitua por essa linha:

rs("referenteRecibo") = MonthName(Month(txtDataReferencia)) & "/" & Year(txtDataReferencia)

Agora vai funcionar.

Valeu

Alexandre

Agora ele gerou, mas gerou tudo no mesmo mês.

3 parcelas com data = 01/01/2024 está gerando assim

janeiro/2024
janeiro/2024
janeiro/2024

Precisaria que de acordo com a quantidade de parcelas gerasse em sequência tipo:
3 parcelas com data = 01/01/2024 ficaria:

janeiro/2024
fevereiro/2024
março/2024

Gil,
Agora está correto!



Aproveitei, e criei uma sub "GravaParcelas", onde utilizo instrução SQL (INSERT) para gravar dados.

Da forma que você criou não está errado, mas quando se utiliza recordset e carregando TODOS os registros da tabela, pra depois utilizar somente o "AddNew", não é viável, pois quando essa tabela tiver com mais de 10 mil registros o recordset é carregado na memória, deixando o sistema lento.
Se for utilizar dessa forma, instancie o recordset sem registro da tabela, desta forma:

Set rs = db.OpenRecordset("SELECT * FROM TBL_PARCELAMENTO WHERE CODIGO_PARCELAMENTO = 0") 'Abre TBL_PARCELAMENTO

Sempre que puder utilize instruções SQL, até porque se você quiser mudar de banco de dados (Ex.: SQL Server, MySQL, Oracle), a instrução já estará pronta também, talvez com pouquissima manutenção, devidos às diferenças destes bancos de dados.

Espero ter ajudado.

Segue versão atualizada.

É isso

Att,

Alexandre Fim

Alexandre funcionou perfeitamente. Se poder me orientar só em mais uma questão fico grato.
Tentei usar a mesma lógica para preencher o campo vencimento da tabela e está dando um erro que não consegui achar

Código:

'-- Alexandre Fim - 04/06/2024
Public Sub GravaParcela()
On Error GoTo trata_erro
Dim db          As DAO.Database
Dim sSQL        As String
Dim vVlrParc    As String
Dim vDataParc   As String
Dim vDataVenc   As String

    Set db = CurrentDb()
    
    vVlrParc = Format((Me.txtValorParcela / Me.txtQtdParcelas), "#,###.###")
    
    For i = 1 To Me.txtQtdParcelas  'Insere as Parcela na TBL_PARCELAMENTO
        vDataParc = Format(DateAdd("m", i - 1, Me.txtDataReferencia), "dd/mm/yyyy")
        vDataVenc = Format(DateAdd("m", i - 1, Me.txtVencimento), "dd/mm/yyyy")
      
        
        sSQL = "INSERT INTO TBL_PARCELAMENTO"
        sSQL = sSQL & " ("
        sSQL = sSQL & " Parcela,"
        sSQL = sSQL & " Valor_Parcela,"
        sSQL = sSQL & " referenteRecibo"
        sSQL = sSQL & " vencimento"
        sSQL = sSQL & " )"
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & " ("
        sSQL = sSQL & " '" & i & "/" & Me.txtQtdParcelas & "',"
        sSQL = sSQL & " '" & vVlrParc & "',"
        sSQL = sSQL & " '" & MonthName(Month(vDataParc)) & "/" & Year(vDataParc) & "'"
        sSQL = sSQL & " '" & vDataVenc & "',"
        sSQL = sSQL & " )"
        db.Execute sSQL
    Next
    
    db.Close
    Me.Refresh
    Me.FRM_PARCELAMETO.Requery  'Atualiza o SubForm
    
    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
    

End Sub

Gil,

É um erro de sintaxe. No caso, a posição da VIRGULA.




Ajuste também a formatação da variável:

vVlrParc = Format((Me.txtValorParcela / Me.txtQtdParcelas), "#,##0.#0")


NOTA: Utilize sempre a Verificação Imediata, conforme na imagem, para exibir o conteudo da variavel e verificar o erro. Neste caso, o erro de sintaxe da variável "sSQL".


É isso

Att,

Alexandre Fim

Meu amigo, muito obrigado pelas dicas e por compatilhar seus conhecimentos. Funcionando 100%

Valeu Gil,
O fórum agradece.
Boa sorte