Newsgroup: it.comp.appl.access
Titolo: # record corrente/complessivi

Ciao!
Qualcuno sa dirmi come è possibile visualizzare all'interno di un
controllo casella di testo (in una maschera)  il numero del record
corrente e/o quello di tutti i record contenuti nella tabella
sottostante?
Ho provato acrivere (all'interno del controllo) il codice SQL di una
query che tramite la funzione conteggio, va ad analizzare il numero di
valori NON nulli presenti nel campo ID (che è una chiave primaria di
tipo contatore), ma non ha funzionato in quanto mi appare #Nome?...
Immagino che ci sia bisogno di un po' di codice VBA da associare
all'evento "Dopo aggoirnamento" dei record della maschera... vero?
Grazie in anticipo!  ;-)
       Luca (The Shark)

 ha scritto nel messaggio
news:9b339508.02121...@posting.google.com...

Prova generando a fronte dell'evento "Su corrente" della maschera questo
codice VBA:
Me!RecordCorrente = Me.CurrentRecord
Me.RecordsetClone.MoveLast
Me!NumeroDeiRecord = Me.RecordsetClone.RecordCount
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

...


Ho una tabella   Paperino   cosě formata :
Nominativo/Data
Pippo: 01/01/1998
Pippo: 01/05/1999
Pippo: 10/07/2001
Pippo: 30/11/2001
ecc.  ecc.
Eseguo questa query per estrapolare l'ultima data per ogni nominativo, e
dalla data ottenuta debbo sottrarre 3 anni
SELECT DISTINCT date.Nominativo, Last(date.Data) AS Pippo,
DateAdd("m",-36,[Pippo]) AS Pluto
FROM [date]
GROUP BY date.Nominativo;
Risultato :
Nominativo ultima data  tre_anni_fa
Pippo :       30/11/2001  30/11/1998
Ora nella stessa query vorrei contare i record della tabella Paperino che
intercorrono fra le due date (30/11/2001-30/11/1998)
nell'esempio indicato il risultato deve essere : 3
grazie mille.

 ha scritto nel messaggio
news:atunfj$2pa2q$1...@ID-24065.news.dfncis.de...

Prova cosě:
SELECT DISTINCT date.Nominativo, Last(date.Data) AS Pippo, DateAdd("m",-36,
[Pippo]) AS Pluto, Val(DCount("*", "date", "Nominativo=" & Chr$(34) &
[Nominativo] & Chr$(34) & " And Data >=#" & Format([Pluto], "mm/dd/yyyy") &
"# And Data <=#" & Format([Pippo], "mm/dd/yyyy") & "#")) AS NumRecord
FROM [date]
GROUP BY date.Nominativo;
Visto che la tua query č basata su una tabella chiamata date, anche il
conteggio l'ho effettuato su tale tabella; se poi vuoi proprio effettuarlo
sulla tabella chiamata Paperino, cambia in Paperino il dominio della
funzione DCount.
Stai attento che la funzione Last ti restituisce la data dell'ultimo record
di quel nominativo e non la data maggiore per quel nominativo, che
otterresti invece con la funzione Max.


 Visto che la tua query è basata su una tabella chiamata date, anche il


 Auguri dalla mia collega.
Ringraziala e falle tanti auguri da parte mia.


 č cosě, cancellalo!
infatti avevo dei record vuoti !!!
finito piccolo database destinato all'archivio dei certificati di  malattia
dei nostri dipendenti.
Tempo impiegato  per catalogare le malattie del 2001: 3 settimane !
tempo previsto  per catalogare le malattie del 2002: 3 ore !
copio e incollo da un newsgroup americano :
Any sufficiently advanced technology
is indistinguishable from magic.
grazie mille ! ciao!