Forms

3.106 Numerare progressivamente le righe di una maschera/sottomaschera continua
  Maurizio Borrelli

Con la funzione che segue è possibile numerare progressivamente le righe di una maschera o sottomaschera continua.
Public Function GetRecNum() As Long
'==========================================================================
'Name      : GetRecNum()
'Purpose   :
'Author    : Maurizio Borrelli
'Date      : 01 febbraio 2002
'Called by :
'Calls     :
'Inputs    :
'Output    : Posizione assoluta del record corrente+1
'==========================================================================
  On Error GoTo erh
  With CodeContextObject.RecordsetClone
    If Not (.BOF And .EOF) Then
      .Bookmark = CodeContextObject.Bookmark
      GetRecNum = .AbsolutePosition + 1
    End If
  End With
ext:
  Exit Function
erh:
  GetRecNum = 0
End Function

Per ottenere la numerazione progressiva registrare la funzione di cui sopra in un modulo del database, inserire nella maschera o sottomaschera continua una casella di testo non associata nella cui origine controllo scrivere:
=GetRecNum()

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.