Início
biligo 27/4/2017, 18:11Boas galera,
Estou a horas a procura de uma solução e não consigo resolver.
Preciso enumerar os registros de meu formulário continuo que é baseado em 5 tabelas.
A base esta em ordem decrescente ou seja cada vez que adiciono um novo registro ele vai para baixo mas precisa manter a mesma numeração.
Após procurar muito encontrei uma solução parcial (No site do Avelino Sampaio) pois ela enumera mas os registros novos vão sendo sempre o 1° pois esta em ordem decrescente meu frm
=fncNumerar([Formulário])
Public Function fncNumerar(frm As Form) As Long
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
Se alguem souber uma outra maneira ou uma forma de adaptar esta função agradeço.
Estou a horas a procura de uma solução e não consigo resolver.
Preciso enumerar os registros de meu formulário continuo que é baseado em 5 tabelas.
A base esta em ordem decrescente ou seja cada vez que adiciono um novo registro ele vai para baixo mas precisa manter a mesma numeração.
Após procurar muito encontrei uma solução parcial (No site do Avelino Sampaio) pois ela enumera mas os registros novos vão sendo sempre o 1° pois esta em ordem decrescente meu frm
=fncNumerar([Formulário])
Public Function fncNumerar(frm As Form) As Long
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
Se alguem souber uma outra maneira ou uma forma de adaptar esta função agradeço.
