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
