[Resolvido]Incrementar numero em tabela

PPTT 23/7/2011, 01:03

PPTT: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 308
Registrado : 18/05/2011

Mensagem nº1

Incrementar numero em tabela

Mensagem PPTT 23/7/2011, 01:03

Boas,

Coloquei este código:
Private Sub Comando12_Click()
Dim i, strPrestacoes As Long
Dim strvalor As Long

strPrestacoes = [Forms]![Contrato]![Meses]
strvalor = [Forms]![Contrato]![Valor] * strPrestacoes

If Parcela = "" Or IsNull(Parcela) Or Parcela = "0" Then

For i = i + 1 To strPrestacoes
DoCmd.GoToRecord , , acNewRec
Me.Parcela = i
'Me.Valor = strValor

Next
End If

End Sub

Como faço para incrementar o valor do campo "Parcela" na Tabela?

Cptos

.................................................................................
bounce

Este lugar é o ceú

criquio 23/7/2011, 01:06

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Incrementar numero em tabela

Mensagem criquio 23/7/2011, 01:06

Olá! Não consegui captar a ideia. O que realmente precisa fazer? Não entendi o For i = i + 1. Se puder der mais uma detalhada do resultado esperado...

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.