Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
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 !