none
NUMERAÇÃO AUTOMATICA ACCESS RRS feed

  • Pergunta

  • Boa tarde

    Tenho uma coluna na contas a pagar que gera parcelas automaticas e uma onde devem aparecer os numeros dos cheque ou do carne. Ex cheque vai do numero 2000 a 2020. Ja tentei o dmax mas na funcionou a estrutura segue abaixo:

    Private Sub btnPARCELAS_Click()
    If (Me.TXTVALORTOTALCOMPRAS > 0) And (Me.TXTNUMEROPARCELAS > 0) Then
    Dim db
    Dim rs
    Dim i As Integer
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("TB_CONTASPAGAR")
    For i = 1 To Me.TXTNUMEROPARCELAS
        rs.AddNew
        rs("IDCOMPRAS") = Me.TXTIDCOMPRAS
        rs("DATACOMPRA") = Me.TXTDATACOMPRA
        rs("MESANOCOMPRA") = Me.TXTMESANOCOMPRA
        rs("NUMNF") = Me.TXTNUMNF
        rs("CODIGOCONTABIL") = Me.TXTCODIGOCONTABIL
        rs("FORNECEDOR") = Me.TXTFORNECEDOR
        rs("CONDICAOPAGTO") = Me.TXTCONDICAOPAGTO

       rs("numerodocumento") = DMax(TXTNUMERODOCUMENTO) + 1 'Me.TXTNUMERODOCUMENTO ' aqui esta dando o problema

     

      rs("numeroparcelas") = i & "/" & Me.NUMEROPARCELAS
        rs("valorparcelacompras") = Round(Me.TXTVALORTOTALCOMPRAS / Me.TXTNUMEROPARCELAS, 2)
        rs("datavencimento") = DateAdd("m", i, Forms!fr_compras!TXTDATAVENCIMENTO)
        rs.Update
      Next
    rs.Close
    db.Close
    Me.SUB_CONTASPAGAR.Requery
    Me.TXTDATACOMPRA.SetFocus
    Else
    End If
    End Sub

    Contando com a ajuda de voces

    Muito obrigado

    Pedro Antonio

    terça-feira, 30 de outubro de 2018 18:50