Newsgroup: it.comp.appl.access
Titolo: Dcount statistica

Uso A97 e vorrei sapere quanti record soddisfano certi parametri.
 Ho realizzato una maschera con tre etichette le cui caption sono indirizzi
di uffici giudiziari (uno dei quali č Corte d'Appello(vedi apostrofo)), tre
caselle di testo, non associate, dove in ciascuna devono apparire i
risultati dei conteggi dei record della tabella (i cui campi sono
Nrecord(numerico),Nome(testo),Ufficio(testo),dataspedizione(data/ora-gg/mm/y
y), ecc.) il cui campo ufficio corrisponde alla caption di ciscuna
etichetta, il tutto in base ad un intervallo di dataspedizione che inserisco
in altre due caselle di testo(formato data/ora), in poche parole una piccola
statistica.
Ho provato mettendo in corrente della maschera :
me.caselladitesto1 = Dcount("ufficio","nometabella")
e giustamente nella caselladitesto1 mi appare il totale dei record, ma
quando cerco di fare un confronto con la caption di un'etichetta mi impaccio
e ancor di piů quando cerco di farlo in base all'intervallo di
dataspedizione.
Ciao
Franco

 ha scritto nel messaggio
news:9Yn9a.11157$zo2.3...@news2.tin.it...

Sempre che abbia capito il tuo problema potresti provare cosě:
Me!CasellaDiTesto1 = DCount("*", "NomeTabella", "Ufficio=" & _
Chr$(34) & Me!TuaEtichetta.Caption & Chr$(34) & _
" AND DataSpedizione >= #" & Format(Me!Inizio, "mm/dd/yyyy")  & _
"# AND DataSpedizione <= #" & Format(Me!Fine, "mm/dd/yyyy") & "#")
Dove Inizio e Fine sono il nome delle due caselle di testo non associate
dove digiti le due date che delimitano il periodo di selezione.
TuaEtichetta č invece il nome della Etichetta che contiene nel Caption la
descrizione per selezionare l'ufficio.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Grazie
Funziona (non ne dubitavo)
Comunque dopo avere inviato il post ho provato a sostituire le etichette con
caselle di testo, formattate in modo che sembrino etichette, e come valore
predefinito di ciascuna ho messo il nome di un ufficio.
Per quanto riguarda l'apostrofo ho utilizzato una funzione che tempo
addietro avevo trovato nell'NG. E senza fare raffronti tra intervallo di
date, funzionava.
Ora meglio.
Ho scoperto, dopo vari tentativi, che nel confronto ci volevano gli apici,
Dcount("*","nometabella","ufficio = '" & me.txtufficio1 & "'")
nella tua risposta non metti apici.
Forse perchè come ho fatto io lo considera testo e se è un'etichetta non
occorrono?
Piccola curiosità, visto che sono ad imparare, perché bisogna mettere la & ?
facendo riferimento ad un intervallo di date ho dovuto inserire tutto il
codice nell'evento click di un pulsante, inquanto nell'evento maschera
corrente mi dava errore.
Come sempre andando avanti nei progetti si prospettano altre necessità.
Infatti nel campo ufficio vi sono altri indirizzi diversi da quelli che ho
usato per le false etichette.
Come è possibile contare anche questi, non separatamente tra di loro, come
gli altri.
Ho provato con
Me.txtdiversi = Dcount("*","nometabella","ufficio <> '"  & me.txtufficio1 &
"' And '" & me.txtufficio2 & " ' And ecc. (fino a menzionare tutte le
caselle di testo delle finte etichette) ")
ma da un numero che non corrisponde al vero.
Grazie di nuovo
Ciao
Franco

 Franco
--


Ho provato ad escludere nella successione degli And alcuni confronti,
quindi la cifra in txtdiversi dovrebbe cambiare, ma invece rimane la stessa.
Dove sbaglio?
 Grazie per la pazienza
Franco

 Franco
Non credi che sarebbe il caso che tu postassi la sintassi della Dcount che
stai usando?
O pensi che qualcuno ha il dono della chiarovveggenza e riesce a distanza a
sapere cosa hai scritto?


 Private Sub Form_Current()
Me.txtappello.SetFocus
stringatrova = stringaper(txtappello.Text)
Me.txtconta = DCount("*", "citazion", "ufficio = '" & Me.txtnumeri & "'")
Me.txtconta1 = DCount("*", "citazion", "ufficio = '" & Me.txtpretura & "'")
Me.txtconta2 = DCount("*", "citazion", "ufficio = '" & Me.txtminori & "'")
Me.txtconta3 = DCount("*", "citazion", "ufficio = '" & stringatrova & "'")
dove strigatrova si riferisce alla funzione per non dare errore con gli
apici
Me.txtconta4 = DCount("*", "citazion", "ufficio = '" & Me.txtpace & "'")
Me.txtconta5 = DCount("*", "citazion", "ufficio = '" & Me.txtprocura & "'")
Fino a qui tutto bene.
E questa è la parte di codice, incriminata, che dovrebbe darmi il totale
esatto degli indirizzi diversi
Me.txtdiversi= DCount("*", "citazion", "ufficio <> '" & Me.txtnumeri & "'
and '" & Me.txtpretura & "' and ufficio <> '" & Me.txtminori & "' and
ufficio <> '" & stringatrova & "' and ufficio <> '" & Me.txtpace & "' and
ufficio <>'" & Me.txtprocura & "'")
questa parte di codice è riferita a due caselle di testo che ho messo a piè
di pagina maschera
Me.txttotale = DCount("*", "citazion")
Capisco che quest'altra parte di codice messa su corrente mi dovrebbe dare
lo stesso risultato della  TxtTotale, ma la utilizzo anche nella ricerca tra
date.
Me.txtparziale = Me.txtconta + Me.txtconta1 + Me.txtconta2 + Me.txtconta3 +
Me.txtconta4 + Me.txtconta5 + Me.Txtdiversi
End Sub
Per quanto riguarda la ricerca tra date uso il codice di cui sopra con
aggiunto naturalmente and dataspedizione >= #" & format ecc.,applicato
all'evento click di un pulsante
Franco

 ha scritto nel messaggio
news:6_P9a.16858$pG1.4...@news1.tin.it...

Prova così:
Me.txtdiversi = DCount("*", "citazion", "ufficio <> '" & Me.txtnumeri & "'
and ufficio <> '" & Me.txtpretura & "' and ufficio <> '" & Me.txtminori & "'
and ufficio <> '" & stringatrova & "' and ufficio <> '" & Me.txtpace & "'
and ufficio <>'" & Me.txtprocura & "'")
un *ufficio <> * ti è rimasto nella tastiera. ;-)


 Perfetto, i conti tornano.
 Ho riaperto l'uffico che sbadatamente avevo chiuso. :-(
Si vede che la Classe non è acqua!
Ciao e grazie :-))
Franco