Access. Passare il valore di un campo calcolato ad un altro e salvarlo nel record corrente in tabella

Question

Access. Passare il valore di un campo calcolato ad un altro e salvarlo nel record corrente in tabella

guido boccalario 100

Campo calcolato in sottomaschera che deriva da query con somma di secondi Tot_Sec =Somma([Secondi]) e un campo sempre in sottomaschera che trasforma i secondi calcolati in ore e minuti Tot_Ore =([Tot_Sec]\3600 & ":" & Format(([Tot_Sec] Mod 3600)\60;"00")) . Devo passare quel valore, a un campo in maschera principale (che è associato a un campo in tabella) e scrivere il valore nel record corrente. Ho cercato ma non ho trovato nulla che mi faccia capire....

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

Nota: Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbe contenere errori grammaticali o espressioni imbarazzanti.

Ciao @guido boccalario

Grazie per aver contattato il Forum Microsoft Q&A.

In base alle informazioni fornite, ho provato a configurare e riprodurre lo stesso scenario sul mio ambiente.

Ho creato una tabella principale per memorizzare il record corrente e una tabella dei dettagli correlata che contiene i valori in “Secondi”. Successivamente, ho costruito una query aggregata utilizzando SUM() per calcolare il totale dei secondi per ogni record, simile al tuo Tot_Sec = Sum([Secondi]).

Poi, nel sottomodulo, ho aggiunto un controllo calcolato per convertire quel totale in un formato ore:minuti, come il tuo Tot_Ore.

Poiché i controlli calcolati in un sottomodulo sono solo per la visualizzazione e non possono essere salvati automaticamente in un campo della tabella, ho testato il salvataggio del valore aggiungendo un pulsante di comando nel modulo principale e utilizzando VBA per copiare il valore calcolato dal sottomodulo nel campo associato del record corrente.

Per farlo, puoi:

1.Aprire il modulo principale in Visualizzazione Struttura

2.Aggiungere un controllo Pulsante al modulo

3.Fare clic con il tasto destro sul pulsante e selezionare Genera evento… (oppure andare all’evento Su clic nel Foglio proprietà)

4.Scegliere Generatore di codice e incollare il seguente codice VBA:

Private Sub btnSaveHours_Click() 
 
    Me.Hours = Me.SubFormControl.Form!txtTotalHours 
    Me.Dirty = False 
 
End Sub

Immagine dell'utente

Immagine dell'utente Si prega di notare che le immagini sopra sono in inglese. Siamo spiacenti di non poter fornire una versione italiana. Si prega di tradurle se necessario.

Questo metodo scriverà il valore totale del tempo calcolato nel campo del record corrente nella tabella principale.

Spero che questo sia in linea con ciò che stai cercando di ottenere. Se ci sono differenze nella tua configurazione, condividi pure maggiori dettagli così potrò fornirti indicazioni più specifiche.

Nota: segui i passaggi nella nostra documentazione per abilitare le notifiche e-mail se desideri ricevere la notifica e-mail relativa a questo thread.

guido boccalario 100 Punti di reputazione

2026-01-29T13:50:48.5+00:00

Grazie

3 risposte aggiuntive

Risposta

guido boccalario 100 Punti di reputazione

2026-01-29T13:50:48.5+00:00

Grazie

Answer 1

guido boccalario 100

Thank you so much !!!!
Dora T. I tried and it works ! Thank so mutch !!!!!! SOLVED !!!!

Anonimo

2026-02-02T09:14:43.5533333+00:00

Hi guido boccalario
Thank you for the update.I’m really glad to hear that your issue has been resolved.

If you have any other questions, please feel free to reach out again.

Answer 2

guido boccalario 100

Thansk so mutch !!! I'll try as soon as possible and i'll tell you about ! Bay bay

0 commenti

Answer 3

guido boccalario 100

Thanks for answer but... Me.Hours = Me.SubFormControl.Form!txtTotalHours... tctTotalHours = in my subform text filed "totalhours" Hours = in my mainform text field txtTotaleOre (associated to the table)

but "subformcontrol" is the my subform name ?

What is the correct syntax to apply the code ? I tried but it doesn't work...

Hours for me is txtTotaleOre
txtTotalHours for me is TotOreInt
my subform is called sfrmRia_Dettaglio
my mainform is called frmRia_Ok

Thanks in advance.

Anonimo

2026-01-30T08:25:49.5833333+00:00

Hi Guido Boccalario
Thank you for your reply. I’m sorry to hear that the code is still not working in your environment.

Regarding SubFormControl, this is the name of the subform control in the main form in my test environment. Please check and adjust this name to match the actual setup in your form.

You can check it quickly by:

-Opening the main form in Design View

-Clicking on the subform frame inside the form

-Looking at the Name property in the Property Sheet

That name is the one Access expects when referencing the subform in VBA.

For reference, this is how I set things up in my test:

-A main table (Table1) to store the current record and the field where the total time should be saved

-A related detail table (Table2) containing the “Seconds” values

-An aggregate query using SUM() to calculate the total seconds per ID

-A subform created directly from that query to display the aggregated result

-A main form created from the main table, with the subform embedded inside it

Then I added a button on the main form and used VBA to copy the aggregated value from the subform into the bound field of the current record.

If your setup is a little different, feel free to share a bit more detail and I’ll be happy to take another look.
Eliminata

Questo commento è stato eliminato a causa di una violazione del codice di comportamento. Il commento è stato segnalato manualmente o identificato tramite il rilevamento automatizzato prima dell'esecuzione dell'azione. Per ulteriori informazioni, fai riferimento al codice di comportamento.