Início
![[Resolvido] Numeração de Campo após actualização de outro Empty](https://2img.net/i/empty.gif)
brunogor 6/1/2016, 23:10Viva a todos mais uma vez, já estamos no 6º dia de 2006 e já é o 2º Tópico que coloco, bem vamos lá.
No exemplo em questão, aproveitei um código do Mestre Avelino Sampaio para numerar campos desvinculados, para o aplicar a um campo vinculado da minha tabela, que é este:
O problema é que no meu exemplo a numeração sequencial do campo "Ordenacao" após atualização do campo "Texto" repete o "1" nos dois primeiros registos ficando assim:
1 (Está aqui o erro)
1
2
3
4
etc.
e eu queria que ficasse assim:
1
2
3
4
etc.
Se me pudessem ajudar agradecia, Obrigado.
Bruno Gordino
No exemplo em questão, aproveitei um código do Mestre Avelino Sampaio para numerar campos desvinculados, para o aplicar a um campo vinculado da minha tabela, que é este:
- Código:
Private Sub Texto_AfterUpdate()
Me.Ordenacao = fncNumerar([Form])
End Sub
Public Function fncNumerar(frm As Form) As Long
'Código do Mestre Avelino Sampaio
On Error GoTo TrataErro
With frm.RecordsetClone
.Bookmark = frm.Bookmark
fncNumerar = 1 + .AbsolutePosition
End With
Exit Function
TrataErro:
If Err = 3021 Then fncNumerar = 0
End Function
O problema é que no meu exemplo a numeração sequencial do campo "Ordenacao" após atualização do campo "Texto" repete o "1" nos dois primeiros registos ficando assim:
1 (Está aqui o erro)
1
2
3
4
etc.
e eu queria que ficasse assim:
1
2
3
4
etc.
Se me pudessem ajudar agradecia, Obrigado.
Bruno Gordino
- Anexos
![[Resolvido] Numeração de Campo após actualização de outro Attachment](https://2img.net/i/fa/attachment.png)
Ordenacao_v1.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (577 Kb) Baixado 24 vez(es)
Última edição por brunogor em 8/1/2016, 21:19, editado 3 vez(es)
