MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Zero a esquerda do numero

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 11/01/2018

    [Resolvido]Zero a esquerda do numero Empty [Resolvido]Zero a esquerda do numero

    Mensagem  Anslu em 23/7/2020, 15:41

    Bom dia! Venho pedir a ajuda de vocês mais uma vez!
    Quando gera parcelas fica com zero a esquerda em todas as parcelas. gostaria que só ficasse até a parcela 09,
    do 10 em diante não aparecer mais o zero. (Ex.: 01-02-03-04-05-06-07-08-09-10-11-12....)
    Não sei onde estou errando.

    Desde já fico agradecido!

    Set db = CurrentDb()
       Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
           ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
       
       For i = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
           rs.AddNew
           rs("Cod_Lançamento") = Me.Cod_Lance
          rs("NumCheque") = "0" & i & "/" & Me.QtdeParcelas
           rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
           rs("VencCheque") = DateAdd("d", i - 1, Me.txtDt_1Parcela) 'Calcula as datas de Vencto através da função DateAdd()
           rs("DataLanc") = Me.txtDataLanc
           rs("Taxa") = Me.txtTaxa
           rs.Update
       Next
       rs.Close
       db.Close
       Me.frm_LancChequeDetSub.Requery  'Atualiza o SubForm
       Me.btn_Diário.enabled = False
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Zero a esquerda do numero Empty Re: [Resolvido]Zero a esquerda do numero

    Mensagem  Alexandre Fim em 23/7/2020, 16:07

    Olá,

    Na linha em vermelho que vc informou, copie e cole o seguinte código:
    Código:

    rs("NumCheque") = Right("00" & i, 2) & "/" & Right("00" & Me.QtdeParcelas, 2)

    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 11/01/2018

    [Resolvido]Zero a esquerda do numero Empty Re: [Resolvido]Zero a esquerda do numero

    Mensagem  Anslu em 23/7/2020, 16:24

    Bom dia! Alexandre,

    Muito obrigado pela ajuda!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Zero a esquerda do numero Empty Re: [Resolvido]Zero a esquerda do numero

    Mensagem  Alexandre Fim em 23/7/2020, 18:31

    Valeu Anderson,

    O fórum agradece.
    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 30/11/2020, 04:10