MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Movimentos Periódicos

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3968
    Registrado : 06/11/2009

    [Resolvido]Movimentos Periódicos Empty [Resolvido]Movimentos Periódicos

    Mensagem  Assis em 25/1/2019, 14:17

    Boa tarde Amigos

    Tenho este código abaixo para registar movimentos mensais.
    Código:
    Dim I As Integer
       
       For I = 1 To Me.Mensalidades.Value
             
           rs.AddNew
           
           rs("DataMovimento") = DateAdd("m", I - 1, Me.txtHireDate)
           rs("ValorMovimento") = Me.Valor
           rs("idcaixa") = Me.txtidcaixa
           rs("Historico") = Movimentos
           rs("Rubrica") = Rubrica
           rs("Entidade") = Entidade
           rs("Doc") = Nz(DMax("Doc", "Lançamentos Consulta", "idcaixa = " & Me.txtidcaixa & " and " & "Historico='" & Me.Movimentos & "' AND " & "RUBRICA ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1

    Por exemplo: Pago renda de casa todos os dias 8 de cada mês com um valor XXXXX.
    Então no inicio do Ano eu lanço os movimentos da renda (12) só de uma vez, e todos os meses eles aparecem na minha tabela de movimentos.

    O meu problema está na numeração dos movimentos:

    Com a linha abaixo vou buscar o último e somo +1, até aqui tudo bem:

    Código:
    rs("Doc") = Nz(DMax("Doc", "Lançamentos Consulta", "idcaixa = " & Me.txtidcaixa & " and " & "Historico='" & Me.Movimentos & "' AND " & "RUBRICA ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1

    O primeiro fica certo. Exemplo (1)

    Mas os movimentos seguintes vai dar sempre o mesmo numero. Sempre (1), e devia das (2), (3) etc.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3968
    Registrado : 06/11/2009

    [Resolvido]Movimentos Periódicos Empty Re: [Resolvido]Movimentos Periódicos

    Mensagem  Assis em 25/1/2019, 20:14

    Boa noite

    Resolvi assim.

    rs("Doc") = (Nz(DMax("Doc", "Lançamentos Consulta", "idcaixa = " & Me.txtidcaixa & " and " & "Historico='" & Me.Movimentos & "' AND " & "RUBRICA ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1) + I


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6410
    Registrado : 15/03/2013

    [Resolvido]Movimentos Periódicos Empty Re: [Resolvido]Movimentos Periódicos

    Mensagem  ahteixeira em 2/2/2019, 15:55

    Olá Assis,

    Obrigado pelo retorno o fórum agradece.

    Abraço

    Conteúdo patrocinado

    [Resolvido]Movimentos Periódicos Empty Re: [Resolvido]Movimentos Periódicos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 07:19