Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Numerazione progressiva su maschere continue

411 views
Skip to first unread message

Jazz@Chess

unread,
Mar 19, 2003, 4:18:44 PM3/19/03
to
Vorrei sapere quale il miglior modo per numerare automaticamente i record in
una maschera dati.
Per migliore intendo il più semplice.
Grazie

Giacomo Rossi

unread,
Mar 19, 2003, 5:39:45 PM3/19/03
to

"Jazz@Chess" <nos...@libero.it> wrote in message
news:U85ea.120785$zo2.3...@news2.tin.it...

> Vorrei sapere quale il miglior modo per numerare automaticamente i record
in
> una maschera dati.
> Per migliore intendo il piů semplice.
> Grazie
>
>
Ciao assegna un campo nella tabella chiamato ID e dagli come formato
contatore.
Piu' semplice di cosi'
Ciao Giacomo


Jazz@Chess

unread,
Mar 19, 2003, 5:55:27 PM3/19/03
to

"Giacomo Rossi" <rogi...@tin.it> ha scritto nel messaggio
news:Rk6ea.85380$pG1.1...@news1.tin.it...

>
> "Jazz@Chess" <nos...@libero.it> wrote in message
> news:U85ea.120785$zo2.3...@news2.tin.it...
> > Vorrei sapere quale il miglior modo per numerare automaticamente i
record
> in
> > una maschera dati.
> > Per migliore intendo il più semplice.

> > Grazie
> >
> >
> Ciao assegna un campo nella tabella chiamato ID e dagli come formato
> contatore.
> Piu' semplice di cosi'
> Ciao Giacomo
>
>

Ha fatto la battutaaaaaaaaa!
E se filtro con una query come ti comporti ??????


@Alex

unread,
Mar 20, 2003, 2:15:05 PM3/20/03
to

"Jazz@Chess" <nos...@libero.it> ha scritto nel messaggio
news:zz6ea.85455$pG1.1...@news1.tin.it...
>
[CUT]

> Ha fatto la battutaaaaaaaaa!
> E se filtro con una query come ti comporti ??????
>


ZELIG......!!

Non te la prendere, era una soluzione che molti non conoscono
se alle prime armi.....!!!!

Inserisci una TxtBox con Origine Controllo la seguente Funzione:
Ovviamente necessita della selezione delle Librerie DAO, ma forse
facevo senza dirlo......!!! ;-)

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


@Alex.


0 new messages