Newsgroup: it.comp.appl.access
Titolo: Somma univoca in maschera

Ciao a tutti, ho un problema che non riesco a risolvere.
Ho una maschera basata su una query che mi riepiloga e collega diversi
documenti con relativo importo, esempio:
offerta|importo|ordine|importo|fattura|importo|
    2   |   70€  |   1    |   220€ |     4   |  240€ |
    3   |   90€  |   1    |   220€ |     4   |  240€ |
    7   |   60€  |   1    |   220€ |     4   |  240€ |
    9   |   30€  |   2    |     30€ |     4   |  240€ |
    4   |   40€  |   3    |     50€ |     3   |    40€ |
totali che mi deve dare:
        |  290€  |         |   300€ |     4   |  280€ |
come si fa a fare le somme univoche?
i totali univoci devono aggiornarsi anche dopo aver fatto filtri su
maschera.
grazie
BR1


Metti un controllo in piè di maschera la cui origine è =Somma(fattura) 
poi dalla maschera ci metti
=Tuasottomaschera.form!tuocontrollo
ovviamente mettendo i nomi che hai usato tu
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 - Mostra testo citato
Così facendo però mi somma 4 volte la fattura 4 e una volta la fattura
3 (totale 1000€), invece deve capire che a parità di numero fattura mi
deve sommare l'importo una sola volta (totale 280€).
Suggerimenti? eventualmente anche tramite un pulsantino che eseque una
routine vba.


Allora fai una sottomaschera raggruppata
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it


 > 3 (totale 1000�), invece deve capire che a parit� di numero fattura mi


 3, nella sottomaschera degli ordini mi sommerà l'ordine 1,2 e 3.
Scrivi DOPO il quoting
Cmq no se relazioni i controlli maschera sottomaschera



Ho "quasi" risolto in questo modo, dico quasi perchè mettendo un
pulsante che esegue la routine finziona tutto,
ma io voglio che esegua questa routine in automatico ad ogni
applicazione filtro, la ho quindi richiamata sull'evento "su
applicazione filtro" RISULTATO LA ROUTINE VIENE APPLICATA SEMPRE IN
RITARDO DI UNA FILTRAZIONE (filtro la fattura 1 e mi da l'importo di
tutte le fatture, rimuovo la fattura o filtro per la fattura 4, e mi
da l'importo della fattura 1, e così via)
Dim rcdoa, rcdbcl, rcdblv, rcdfat As Recordset
Set rcdoa = CurrentDb.OpenRecordset("T_temp_oa")
Set rcdbcl = CurrentDb.OpenRecordset("T_temp_bcl")
Set rcdblv = CurrentDb.OpenRecordset("T_temp_blv")
Set rcdfat = CurrentDb.OpenRecordset("T_temp_fat")
Do Until rcdoa.EOF
    rcdoa.Delete
    rcdoa.MoveNext
Loop
Do Until rcdbcl.EOF
    rcdbcl.Delete
    rcdbcl.MoveNext
Loop
Do Until rcdblv.EOF
    rcdblv.Delete
    rcdblv.MoveNext
Loop
Do Until rcdfat.EOF
    rcdfat.Delete
    rcdfat.MoveNext
Loop
DoCmd.GoToRecord acForm, "M_rintracciabilità", acGoTo, 1
For I = 1 To [Forms]![M_rintracciabilità].[TOT]
    DoCmd.GoToRecord acForm, "M_rintracciabilità", acGoTo, I
    rcdoa.AddNew
        rcdoa!IdOA = Me.IdOA
        rcdoa!impoa = Me.Importo
    rcdoa.Update
    rcdbcl.AddNew
        rcdbcl!IdBCL = Me.IdBCL
        rcdbcl!impbcl = Me.TOTbcl
    rcdbcl.Update
    rcdblv.AddNew
        rcdblv!IdBLV = Me.IdBLV
        rcdblv!impblv = Me.totblv
    rcdblv.Update
    rcdfat.AddNew
        rcdfat!Idfat = Me.IdFattura
        rcdfat!impfat = Me.SommaDiPrezzoEuro
    rcdfat.Update
Next I
Me.tot_oa = DSum("impoa", "Q_temp_oa", 1 = 1)
Me.TOT_bcl = DSum("impbcl", "Q_temp_bcl", 1 = 1)
Me.tot_blv = DSum("impblv", "Q_temp_blv", 1 = 1)
Me.tot_fat = DSum("impfat", "Q_temp_fat", 1 = 1)
l'evento mi dà i seguenti argomenti:
Private Sub Form_Filter(Cancel As Integer, FilterType As Integer)
devo forse impostarli in qualche modo?