Gentile Dragone Bianco,
proverò la strada che mi suggerisci.
Il tuo articolo è praticamente perfetto (lo conservavo tra i miei appunti), però non riesco ad andare oltre questo codice (che ahime non funziona).
sono oltre 10 anni che non mi avvicino al vba, e sono fortemente arruginito!
Prima di affrontare la tua soluzione, avrei piacere di vedere funzionare questo tentativo:
Private Sub Comando207_Click()
Dim rs As DAO.Recordset, RIC As String, DTPREN As String, PRIOR As String, NRRIC As String, wk_Matric As String
Set rs = CurrentDb.OpenRecordset("PRIORITA2020-Filtrato")
Do Until rs.EOF
wk_Matric = rs!CodFisc
DTPREN = ""
PRIOR = ""
NRRIC = ""
Do Until rs.EOF Or wk_Matric <> rs!CodFisc
If rs!Cronol = "Fine" Then
DTPREN = rs!DataInizio
PRIOR = rs!categoria
NRRIC = rs!CodFisc
rs.MoveNext
'If rs.EOF Then Exit Do
Loop
Do Until rs.EOF Or wk_Matric <> rs!CodFisc
rs.Edit
If rs!Cronol <> "Fine" And rs!CodFisc = NRRIC Then
rs!DataInizio = DTPREN
rs!categoria = PRIOR
rs.Update
rs.MoveNext
If rs.EOF Then Exit Do
Loop
Loop
End Sub
GRAZIE