[Resolvido]sequência individual para cada registro

Boa tarde pessoal!


Há alguma forma de dar sequência automática em um subformulário, mas ao invéz de ser continua:

Exemplo: 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20... etc

ser separado para cada registro: Exemplo:

Tenho um exemplo muito comum que é um form com subform

Ao gerar lançamento nesse subform no campo SEQ(Sequência) gostaria que para cada registro no form tivesse no subform uma nova sequência e não sequência contínua como está acontecendo.

Se ao lançar 5 produtos no subform tivesse a sequência 1,2,3,4,5

Ao lançar 3 produtos no subform no segundo registro viesse 1,2,3

Ao contrário do que acontece: Lanço o primeiro registro o subform gera 1,2,3,4,5; lanço o segundo registro no subform vem 6,7,8.


Grato,

Campos.

poste uma parte de seu banco(zipado) ai pois fica melhora para te ajudar

mas é mais ou menos isso
function EnSeq()
If IsNull([Item]) Then
x = DCount("*", "sua tabela sub", "[codigofilho]=forms![seu formulario]![codigopai]")
enseq = x + 1
End If

end function

coloque essa função("=enseq()") no "valor padrão" do campo SEQ

Clebergyn Bom dia!!
 
Primeiramente quero agradecer por sua disposição em me ajudar.
 
Olha, ainda tenho dificuldade em montar funções,
 
Até apliquei oq eu você me explicou, só que não deu certo.
 
Acredito que, fiz algo de errado.
 
 
Estou disponibilizando um bd básico para os acertos, ok.
 
 
 
Grato,
Um abraço,
Campos.

Olá, verifica nesse esse exemplo desse tópico.
http://maximoaccess.forumeiros.com/t18905-resolvidonumero-de-registro-no-formulario

fiz ai em anexo, veja se serve

Bom dia amigos desse forum!


Eu postei o agradecimento, mas como tive problema no servidor e não foi enviado.

Entrei hoje e vi que relmente não foi.

Quero agradecer ao Beto Givoni que me enviou o código, realmente era isso o que eu precisa. Aliás fazia muito tempo que não correspondia com você Beto.

Fiquei muito grato pela sua disposição,
Um Forte abraço.
Campos,

E pra complementar o amigo clebergyn confirmou pelo exemplo enviado.

Clebergyn, obrigado e um forte abraço.


Campos.

Ok amigo, saudações do fórum pelo retorno e fechamento do tópico.