CISA FotoGallery

Statistiche

Tot. visite contenuti : 928203
Home Articoli tecnici Moduli Numero Progressivo nelle Form

Numero Progressivo nelle Form

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