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() |