Newsgroup: it.comp.appl.access
Titolo: codice da modificare

Buon Giorno
A97
ho questo codice su di un pulsante (presente in una maschera chiamata
'mandati', mi serve per aggiornare dei dati in una tabella chiamata
'costanti' (che ha un solo record per ora)...bene
come faccio ad aggiornare il campo costanti a seconda di un valore chiamato
'banca' presente nella stessa maschera ed ora presente nella tabella
'costanti' che ha piu' di un record (ogni record per ogni banca) grazie:
Codice:
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("Costanti")
RS.MoveFirst
RS.Edit
RS![Numero_Mandato] = [Numero_Mandato] + 1
RS![Totale_Mandati_Emessi] = [Totale_Mandati_Emessi] + [Totale_Mandato]
RS.Update

 ha scritto nel messaggio
news:PSQp9.36352$Fz.10...@news1.tin.it...

Ritengo una cosa sbagliatissima in un database relazionale memorizzare in
una tabella dei campi calcolati, il cui valore puoi ricavare in ogni momento
con delle funzioni di aggregazione.
Non mi sembra opportuno a risolvere il tuo problema, che con il tempo ti
procurerà sicuri mal di pancia.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:7iSp9.20454$RO.4...@twister1.libero.it...

Ma la tabella costanti mi serve solo per attingere e aggiornare delle somme
ed un numero progressivo...il calcolo lo effettuo in maschera!!!!
Io vorrei subordinare l'attingere e l'aggiornare di 'costanti' ad un id
banca!!!!
Ciao e Grazie
Luigi, Bari

 Luigi, Bari
Non mi hai convinto, comunque, se il campo 'banca' è di tipo numerico prova
con:
Dim RS As Recordset
Set RS = CurrentDB().OpenRecordset("Costanti", dbOpenDynaset )
RS.FindFirst "banca=" & Me!banca
If RS.NoMatch Then
    MsgBox "Codice banca " & Me!banca & " inesistente"
Else
    RS.Edit
    RS![Numero_Mandato] = [Numero_Mandato] + 1
    RS![Totale_Mandati_Emessi] = [Totale_Mandati_Emessi] + [Totale_Mandato]
    RS.Update
End If
Set RS = Nothing
Se invece il campo 'banca' è di tipo testo, sostituisci:
RS.FindFirst "banca=" & Me!banca
con
RS.FindFirst "banca='" & Me!banca & "'"


 wrote in message
hzWp9.21703$RO.5...@twister1.libero.it...

Grazie provo or ora!!!!
Ciao


 wrote in message
8t9q9.48887$cS4.1...@news2.tin.it...

Funziona in uscita cioe' aggiorna i campi corrispondenti al codice 'Banca'
selezionato in maschera....
Ma in apertura non attinge i dati dal record corrispondente alla banca...
La tabella costanti e cosi' composta
ID       |     Mandati Emessi   |   Reversali Emesse |   Numero Mandato  |
Numero Reversale |   IDBANCA
----------------------------------------------------------------------------
---------------------------------
Nella maschera mandati in apertura deve attingere i campi di tabella
corrispondenti all' Id Banca in chiusura va bene
la routine che mi hai dato!!!!!!!!!!!
Grazie 1000
Ciao Luigi



Non capisco cosa tu voglia dire con "in uscita" e "in apertura".
E prima, quando nella tabella "Costanti" avevi un record solo, come lo
risolvevi il problema "in apertura"?
Immagino con una funzione DLookup.
Continua a farlo con una DLookup, ma questa volta nella funzione di
aggregazione sui dominii scrivi anche i criteri dove indicherai che il campo
IDBANCA della tabella "Costanti" deve avere lo stesso valore del controllo
'banca' della maschera.
Mah, comunque resto dell'avviso che gestendo la tabella "Costanti" ti stai
complicando inutilmente la vita.
--
Roberto
