24/12/2022 - Antony73 ha scritto:
Come faccio ad applicare una ACTION tipo UPDATE ai record di un oggetto di tipo formname.recordsetclone o formname.recordset?
Cambiando totalmente modo di ragionare. Invece di aprire un recordset e passare un record alla volta in edit, facendo le modifiche se rispetta alcuni requisiti, crei una query di aggiornamento
UPDATE nometabella SET ... WHERE condizionivarie
e la esegui con il metodo Execute di un oggetto Database. Vedo che imposti a 3 il campo Lavorazione quando questo è uguale a 2 e quanto il risultato della funzione len_report a cui passi alcuni parametri è > 0, quindi potrebbe essere una cosa del genere
Dim db As DAO.Database
Dim strSQL As String
'non so dove fare l'update, il nome della tabella o della query non c'è
strSQL = "UPDATE nometabella SET [Lavorazione] = 3 WHERE [Lavorazione] = 2 AND len_report([Path_Report] + '\' + [file_report]) > 0"
db.Execute strSQL, dbFailOnError
meglio ancora se inserito in una Transaction dell'oggetto Workspace.
La funzione len_report deve essere in un modulo standard per essere chiamata all'interno di una query.