[Access vba] Azzerare una costante tramite query

[nman]

Ci sono ancora dei problemi ma sembra che comincia a funzionare,

Fatti questa demo

Crea una tabella di Nome "Tab"
- C1 --- Testo --- NON Null ------- Ammette Duplicati --- Non Indicizzato
- C2 --- Testo --- Ammette Null --- Ammette Duplicati --- Non Indicizzato
- C3 --- Testo --- Ammette Null --- Ammette Duplicati --- Non Indicizzato
NB: Mi sono messo quasi nel caso peggiore, Senza nessun indice

Crea una query di nome "Que1"

SELECT Tab.C1, Tab.C2, Tab.C3, Conteggia([C1]) AS Ranking FROM Tab;

Crea un Modulo e ci metti questa funzione

Public Indicizza As Long

Function Conteggia(testo As String) As Long

Dim X As Long
X = DCount("*", "Tab")

    Indicizza = Indicizza + 1
    Conteggia = Indicizza
    
If Conteggia >= X Then Indicizza = 0
    
End Function

Pero se poi lavori un po sulla query noterai i problemi
vale a dire il campo "Ranking" si riaggiorna

se invece la tua query è in sola lettura dovrebbe andare

Facci sapere

NB: Hai un qualunque campo univoco nella tabella ??


.