Contatore in Access

Minelab · 26-08-2004, 16:33

Ciao a tutti
Vorrei creare in Access 2002 un contatore che mi consenta appunto di contare i record con caratteristiche comuni dal 1° a quello corrente.
Mi spiego con un esempio che forse è meglio: ho 200 record e voglio che nel campo [N° Trovati] del record 100 mi compaia quanti ne sono già presenti sino ad esso (compreso).
Dcount non va bene perché restituisce il numero totale. Esiste magari un criterio specifico per ottenere un conteggio parziale?
Non trovandolo ho provato a scrivere la routine seguente (per il caso particolare di “aaa” e “bbb”, una volta funzionante generalizzerò) ma il risultato è sempre uguale a [Totale] come se la condizione non fosse presente.
Private Sub Descrizione_AfterUpdate()
Dim n As Long
Dim a As Long
a = 0
For n = 1 To [Totale]
If [Modello] = "aaa" And [Descrizione] = "bbb" Then
a = a + 1
[N° Trovati] = a
End If
Next
End Sub
[Totale] rappresenta il record corrente
Come posso risolvere e perché accade questo?
Grazie

Minelab · 26-08-2004, 18:29

Domanda OT:
Come si inserisce in questi messaggi del codice con la corretta indentazione?

Fenomeno85 · 26-08-2004, 18:34

scusa ma non riesco molto a capire cosa vuoi fare

~§~ Sempre E Solo Lei ~§~

26-08-2004, 16:33	#1
Minelab Member Iscritto dal: Mar 2003 Città: Provincia di Como Messaggi: 223	Contatore in Access Ciao a tutti Vorrei creare in Access 2002 un contatore che mi consenta appunto di contare i record con caratteristiche comuni dal 1° a quello corrente. Mi spiego con un esempio che forse è meglio: ho 200 record e voglio che nel campo [N° Trovati] del record 100 mi compaia quanti ne sono già presenti sino ad esso (compreso). Dcount non va bene perché restituisce il numero totale. Esiste magari un criterio specifico per ottenere un conteggio parziale? Non trovandolo ho provato a scrivere la routine seguente (per il caso particolare di “aaa” e “bbb”, una volta funzionante generalizzerò) ma il risultato è sempre uguale a [Totale] come se la condizione non fosse presente. Private Sub Descrizione_AfterUpdate() Dim n As Long Dim a As Long a = 0 For n = 1 To [Totale] If [Modello] = "aaa" And [Descrizione] = "bbb" Then a = a + 1 [N° Trovati] = a End If Next End Sub [Totale] rappresenta il record corrente Come posso risolvere e perché accade questo? Grazie Ultima modifica di Minelab : 26-08-2004 alle 16:37.

26-08-2004, 18:34	#3
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	scusa ma non riesco molto a capire cosa vuoi fare ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

26-08-2004, 18:29	#2
Minelab Member Iscritto dal: Mar 2003 Città: Provincia di Como Messaggi: 223	Domanda OT: Come si inserisce in questi messaggi del codice con la corretta indentazione?

Strumenti
Mostra una versione stampabile Invia questa pagina per email