Newsgroup: it.comp.appl.access
Titolo: Rif: query con progressivo


mea culpa...
Come non detto. Libreria ggiunta e funziona.
Però...  Io avrei bisogno che mi facesse anche il progressivo su ogni codice
prodotto, se lo appoggio sull'"id" me lo fà di tutto, io ho bisogno di un
raggruppamento per CodiceProdotto
es.
CodiceProdotto    Data          Qta Richiesta  progressivo
1                           18/05/03        6                        6
1                           20/05/03        8                        14
2                           18/05/03        4                        4
2                           19/05/03        18                      22
Si può fare?
Spero si sia capito qualche cosa.... Sono appena tornata dal lavoro e non
sono molto lucida a quest'ora.
Grazie
Lily


Ordina la query per Codice ed alimenta con questa una maschera tabellare
saluti Daniele
---

 ha scritto nel messaggio
news:A8iBa.13848$g92.3...@news2.tin.it...

Niente da fare... evidentemente sono troppo imbranata.
Non riesco a fargli fare ciò che voglio.
Ci sono riuscita solo su report ma non mi và bene. mi serve in una query.
Qualcuno ha altre idee per fare il totale progressivo di ogni codice
prodotto?
Ditemi di si per favore...
P.S. Grazie Daniele se hai altre idee spara.
:-)



 ha scritto nel messaggio
news:m3uBa.44909$lK4.1...@twister1.libero.it...

Potresti spiegare cosa non sei riuscita a fare?
Non dovevi fare altro che copiare la struttura del db Totaleprogressivo, che
hai scaricato dal sito comune. Se ho capito il tuo problema.
saluti Daniele

 ha scritto nel messaggio
news:YrvBa.22773$g92.5...@news2.tin.it...

Per quello è ok.L'ho fatto ma mi fà il totale progressivo di tutti i record
presenti nella tabella.
Io, invece, ho bisogno del totale progressivo raggruppato per codice
prodotto.
ossia:
CodiceProdotto "1" e relativo progressivo
CodiceProdotto "2" e relativo progressivo
Non sò se mi sono spiegata
Ciao
Lily

 Lily
saluti Daniele

 saluti Daniele
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:WksBa.44227$Ny5.1...@twister2.libero.it...

Visto che Cidi mi ha chiamato in causa, sempre facendo riferimento
all'esempio che hai trovato sul Sito Comune, ipotizziamo che tu voglia il
totale progressivo per IDProdotto.
Se così è, modifica la funzione in questa maniera:
Function TotProgrQry(KeyName As String, KeyValue, _
FieldNameToGet As String, NomeTabella As String, _
Prodotto As Variant)
Dim RS As DAO.Recordset
On Error GoTo Err_TotProgrQry
TotProgrQry = 0
Set RS = CurrentDb().OpenRecordset(NomeTabella, dbOpenDynaset)
' Trova il record corrente
Select Case RS.Fields(KeyName).Type
    ' La chiave è Numerica?
    Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
        DB_DOUBLE, DB_BYTE
        RS.FindFirst "[" & KeyName & "] = " & KeyValue
    ' La chiave è di tipo Data/ora?
    Case DB_DATE
        RS.FindFirst "[" & KeyName & "] = #" & Format(KeyValue, _
        "mm/dd/yyyy") & "#"
    ' La chiave è di tipo Testo?
    Case DB_TEXT
        RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
    Case Else
        MsgBox "ERRORE: Tipo dati della chiave non valido!"
        Exit Function
   End Select
Do Until RS.BOF
    If RS!IDProdotto = Prodotto Then
        TotProgrQry = TotProgrQry + RS(FieldNameToGet)
    End If
    RS.MovePrevious
Loop
Set RS = Nothing
Bye_TotProgrQry:
    Exit Function
Err_TotProgrQry:
    Resume Bye_TotProgrQry
End Function
e modifica il codice SQL di Query1 in questa maniera:
SELECT tblMovimenti.*,
CDbl(TotProgrQry("IDMovimento",[IDMovimento],"Quantità","Query1",[IDProdotto
])) AS Totale
FROM tblMovimenti
ORDER BY tblMovimenti.IDProdotto, tblMovimenti.DataMovimento,
tblMovimenti.IDMovimento;
Così modificata la funzione TotProgrQry effettua i totali progressivi anche
di campi con decimali: quella pubblicata sul Sito Comune opera correttamente
con campi interi.
Facci sapere se funziona.


 ha scritto nel messaggio
news:rYEBa.45545$Ny5.1...@twister2.libero.it...

Ciao Roberto, grazie per essere intervenuto.
Ho voluto provare, anch'io, la tua soluzione che ovviamente ho aggiunto al
mio archivio :-)))
facendo le sostituzioni sul modulo e Query1 dell'esempio del SC .
Aprendo sia la form frmProdotti, sia la subfrmMovimenti, mi chiede il
parametro: IDProdotto
Nell'origine controllo della casella di testo della subfrmMovimenti non mi
fa cambiare il nome della function: Numero di argomenti errato di argomenti
specificati in una funzione dell'espressione immessa.
Dimentico qualcosa?
saluti Daniele

 saluti Daniele



Abbi pazienza Roberto, hai ragione avevo fatto un po di confusione :-((
A volte ho l'impressione di essere come....l'uovo sul fuoco...:-)) piů
cuoce,  piů duro diventa.
perň sono andato  sul SC e scaricato di nuovo la TotProgressivoQuery.zip
dopo conversione ho apportato le modifiche che hai suggerito con identico
risultato. forse ho bisogno di una pausa. Vado a rinfrescarmi le idee sul
lungomare.
riproverň di nuovo piů tardi.
saluti e scusami ancora
Daniele

 Daniele
-- 


 ha scritto nel messaggio
news:VcLBa.47452$lK4.1...@twister1.libero.it...

Roberto sei mitico! Funziona perfettamente!
Grazie tante sia a te che a Daniele.
Siete stati veramente gentilissimi
:-)
P.S. Voglio fare anche io due passi sul lungomare uffa...  invece mi tocca
lavorare...  è un'ingiustizia.
:-((

 :-((
Beh, due giorni per andare al mare ce li hai comunque.
Prenditi una bella tintarella cosě potrai dire:
E' un ingiustizia perň.... Tutti cel'hanno con me perché sono piccola e
nera.
:-))



Me ne sono andato a pescare. la rinfrescata ha funzionato. :-))
ed al ritorno con le idee più chiare ho potuto notare l'errore del
copia/incolla con questa riga:
CDbl(TotProgrQry("IDMovimento",[IDMovimento],"Quantità","Query1",[IDProdotto
])) AS Totale
Molte volte ho letto su NG di codice che non funzionava a causa .....di un
brutale copia/incolla. é successo anche a me, unita la riga tutto procede
bene.
sorry
saluti Daniele
---

 lavorare...  č un'ingiustizia.
Non credo.
Ingiustizia sarebbe.... non lavorare ;-)
Magari avrai voglia di una vacanza :-)) allora, come dice Roberto, vai al
mare per due giorni a prendere la tintarella.
saluti Daniele

 ha scritto nel messaggio
news:En%Ba.21165$pR3.3...@news1.tin.it...

Che io prenda la tintarella č quasi impossibile... Sono talmente bianca che
il sole "rimbalza" ma non mi si attacca.
Perň č vero! Voglio una vacanza! Sono stanca.
;-)
Ciao
    Ciao
Liliana