Newsgroup: it.comp.appl.access
Titolo: [ADP e MSDE] totale su maschere continue e filtro

Ciao a tutti
ho un progetto adp xp con BE su MSDE
in una maschera continua con una colonna importo vorrei che il totale che ho 
sul piede maschera si aggiornasse ad ogni applicazione di un filtro, cosa 
che succedeva se non ricordo male con gli mdb ma con gli adp rimane 
invariato
Qualche suggerimento?
ciao, AEOM 

 ha scritto nel messaggio 
news:YCI8e.792895$b5.35...@news3.tin.it...

se il totale č in un campo calcolato potresti mettere dopo l'esecuzione del 
filtro un requery del campo:
me.campo1.requery 

 ha scritto nel messaggio 
news:d3vm85$b85$1...@hulme.interac.it...

ciao,
ho provato ma non mi va. sul corpo ho un campo importospesa e nel piede 
totalespesa=somma(importospesa)
sull'evento "su applicazione filtro" ho messo un me.totalespesa.requery ma 
il totale non cambia
dove sbaglio?
ciao, AEOM

 ciao, AEOM
Se il calcolo non è complesso mettilo su current
Anche dopo il filtro lui passa per il current
-- 
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 ha scritto nel messaggio
news:YCI8e.792895$b5.35...@news3.tin.it...

Ciao AEOM,
nei progetti ADP il filtro in base a selezione non influisce sul recordset
della maschera, viene eseguito in locale e i controlli calcolati non sono
influenzati.
Personalmente non uso i filtri di Access nei progetti ADP, preferisco
costruirmi delle maschere apposite per una serie di motivi (chiedo al server
un record alla volta).
Comunque incuriosito dal problema ho fatto questo piccolo workaround, prova
a vedere se ti funziona e se può andarti bene.
Ciao Giorgio
-----------------
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    Dim Filtro As String
    If ApplyType = 0 Then
       Me.Filter = ""
    End If
    Filtro = Me.Filter
    If ApplyType = 1 Then
       DoCmd.RunCommand acCmdRemoveFilterSort
       Filtro = Replace(Filtro, """", "'")
       Filtro = Replace(Filtro, " Alike", " Like")
       Filtro = Replace(Filtro, "(", "")
       Filtro = Replace(Filtro, ")", "")
    End If
    Me.ServerFilter = Filtro
    Me.Requery
    Me.ServerFilter = ""
End Sub
-------------------

 (chiedo al server un record alla volta).
umm... non vorrei essere frainteso, chiedo un record alla volta sulle
registrazioni documenti, e sulle grosse anagrafiche.
Per i prospetti (fatturato per cliente ecc) uso le stored procedure e come
parametri di filtro invio il contenuto di apposite caselle combinate
Ciao Giorgio

"AEOM"

Rafforzerei quanto già scritto da Rancati: usare i controlli calcolati
nativi nelle Access Forms è già discutibile con gli .mdb ... a maggior
ragione con gli .ADP che nascono per lavorare molto lato Server.
Ciao.

 ha scritto nel 
messaggio news:42638466$0$24439$5fc...@news.tiscali.it...

Ciao Giorgio, grazie per la risposta.
pure io normalmente uso sp con opportuni parametri per filtrare maschere 
continue in base a diversi criteri.
Volevo solamente risparmiare tempo e permettere all'utente di filtrare per 
ognuna delle colonne della maschera.
La tua routine mi ha generato l'errore "istruzione sql sul server non 
valida" e impallato tutto. Ho dovuto sbloccare da task manager
userò le stored
ciao, AEOM

 userò le stored
saggia idea :-)
come vedi la routine converte il filtro generato da Access in linguaggio
compatibile a Sql Server.
Ho considerato solo il tipo testo convertendo i doppi apici in singolo apice
ma effettivamente con altri tipi di dato (ad esempio una data)  possono
esserci problemi.
Si fa prima a fare la stored procedure che a mettere a punto la routine.
Esperimento fallito :-)
Ciao Giorgio