MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio 4/6/2024, 12:50

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 4/6/2024, 13:08

    Bom dia gilberanio,

    Substitua a linha por essa:

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

    É isso

    boa sorte

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campo personalizado com informação de campo data Setinf11
    Sistemas e Tecnologia Ltda
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio 4/6/2024, 16:08

    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
    Anexos
    [Resolvido]Preencher campo personalizado com informação de campo data AttachmentexemploData.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 4/6/2024, 16:43

    Gil,

    Substitua por essa linha:

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

    Agora vai funcionar.

    Valeu

    Alexandre


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campo personalizado com informação de campo data Setinf11
    Sistemas e Tecnologia Ltda
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio 4/6/2024, 19:03

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 4/6/2024, 20:56

    Gil,
    Agora está correto!

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

    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
    Anexos
    [Resolvido]Preencher campo personalizado com informação de campo data AttachmentexemploData_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 4 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campo personalizado com informação de campo data Setinf11
    Sistemas e Tecnologia Ltda
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio 5/6/2024, 14:56

    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
    Anexos
    [Resolvido]Preencher campo personalizado com informação de campo data AttachmentexemploData_v3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 5/6/2024, 15:32

    Gil,

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

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


    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campo personalizado com informação de campo data Setinf11
    Sistemas e Tecnologia Ltda
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio 5/6/2024, 15:58

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 5/6/2024, 17:15

    Valeu Gil,
    O fórum agradece.
    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campo personalizado com informação de campo data Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 11:23