Newsgroup: it.comp.appl.access
Titolo: non mi aggiorna la somma

su eliminazione di un record su una form in modalità continua eliminando un 
record
eseguo un requery e poi un refresh e poi riassegno al totale 
dsum("campo","tabella)
ma non me lo aggiorna subito appena elimino devo modiicare qualos'altro 
prima
cosa sbaglio? 

 wrote in message
cm9cec$bh2$1...@lacerta.tiscalinet.it...

Fai il requery della casella di testo che contiene il totale.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
non và ti riporto qui sotto quello che faccio
su click tasto elimina voce eseguo questo codice
--------------- CODE -----------------------
On Error GoTo Err_Comando242_Click
    Dim response
    response = MsgBox("Sei sicuro di voler eliminare l'articolo " & 
Me.Descrizione, vbYesNo, "")
    If response = vbYes Then
        CaricoMagazzino CODICE, Disponibile
        Me.AllowDeletions = True
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        Me.AllowDeletions = False
        calcolatot
    End If
Exit_Comando242_Click:
    Exit Sub
Err_Comando242_Click:
    Resume Exit_Comando242_Click
-------------------------------------
la funzione calcolatot è cosi definita
----- CODE -------
Private Sub calcolatot()
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.imponibile = DSum("ptotale", "magazzinostampa")
    Me.Iva = DSum("ptotale", "magazzinostampa") * (DLookup("[Iva]", 
"aziendali") / 100)
    Me.totale = Me.imponibile + Me.Iva
End Sub
Grazie per l'aiuto.

 wrote in message
cmah0o$1i1$1...@lacerta.tiscalinet.it...

Per prima cosa eliminerei i tre metodi DoMenuItem: sono una forma arcaica di
Access ed esistono ancora solamente per compatibilità con le primissime
versioni di Access. Sotituiscili con gli equivalenti metodi RunCommand (vedi
help).
Non capisco a cosa serve salvare il record corrente con:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
dopo che hai eliminato un record.
Ma i controlli imponibile, Iva e totale sono caselle di testo associate o
non associate?



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
lo messo perchč pensavo non salvasse la situazione dopo l'eliminazione ma 
evidentemente sbaglio
le caselle non sono associate a nessun campo
fammi sapere. ciao e grazie. 

 wrote in message
cmb213$pg6$1...@lacerta.tiscalinet.it...

Se le caselle di testo sono non associate io eviterei di calcolarne il
valore con del codice VBA in una Sub.
Fossi in te nell'origine controllo della casella imponibile scriverei:
= DSum("ptotale"; "magazzinostampa")
nell'origine controllo della casella Iva scriverei:
= [imponibile] * (DLookup("[Iva]"; "aziendali") / 100)
e nell'origine controllo della casella totale scriverei:
= [imponibile] + [Iva]
    Dim response
    response = MsgBox("Sei sicuro di voler eliminare l'articolo " &
Me.Descrizione, vbYesNo, "")
    If response = vbYes Then
        CaricoMagazzino CODICE, Disponibile
        Me.AllowDeletions = True
        DoCmd.RunCommand acCmdDeleteRecord
        Me.AllowDeletions = False
        Me!imponibile.Requery
        Me!Iva.Requery
        Me!totale.Requery
    End If
ed eliminerei la sub calcolatot.
