[Resolvido]Registo Atual num Formulário

JPaulo escreveu:
Num modulo novo, cole e salve;


Public Function ExibeResultado(frmNome As Form)
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = frmNome.RecordsetClone

rs.MoveLast

rs.Bookmark = frmNome.Bookmark

If (Err <> 0) Then
ExibeResultado= rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeResultado= rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
End Function




Insira uma caixa de texto no rodapé do seu form:

No evento VBA do currente no seu form;


Private Sub Form_Current()
Me.SuaCaixaTexto.Value = "Total Registos -" & ExibeResultado(Forms!NomeDoSeuFormulario)
End Sub

Código:

' informação do Nregisto existentes no formulário
'------------------------------------------------------
Dim recClone As Recordset
Dim intTotalRecords As Integer
Dim intCurrentRecord As Integer
Set recClone = Me.RecordsetClone()

recClone.MoveLast
recClone.Bookmark = Me.Bookmark
intCurrentRecord = recClone.AbsolutePosition + 1
intTotalRecords = recClone.RecordCount
Me.NRegistos = intCurrentRecord & "/" & intTotalRecords
recClone.Close
'-------------------------------------------------------

Código:

Private Sub Form_Current()
Me.SuaCaixaTexto.Value = "Total Registos -" & ExibeResultado(Forms!NomeDoSeuFormulario)
End Sub

Código:

Me.NRegistos.Value = ExibeResultado(Forms!Portin_Posvenda2!Portin_Contactos2.Form)

Código:

Me.NomeDoCampo.Value = ExibeResultado(Forms!FormularioPrincipal!SubFormuario.Form)