Numerazione record

venerdì 11 luglio 2008 - 12.52

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

aleciccio Profilo | Newbie

7 messaggi | Data Invio: ven 11 lug 2008 - 12:52

Ciao a tutti

Ho bisogno di contare i records in una maschera continua, ho trovato questa funzione sito comune:

Public Function GetRecNum() As Long

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

Ok funziona tutto correttamente, ma voglio salvare il risultato in una variabile, come posso fare???

Dainesi Profilo | Senior Member

476 messaggi | Data Invio: ven 11 lug 2008 - 13:45

Non ho capito molto bene .... comunque visto che hai ottenuto il valore che cerchi con .AbsolutePosition + 1 ti basta solo aggiungere una varibile e valorizzarla con questo valore:

Dim pRecNr as long

Public Function GetRecNum() As Long

With CodeContextObject.RecordsetClone

If Not (.BOF And .EOF) Then
.Bookmark = CodeContextObject.Bookmark
GetRecNum = .AbsolutePosition + 1
pRecNr = GetRecNum
End If

End With

ext:

Exit Function

erh:
GetRecNum = 0

End Function

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !