Riempire campi vuoti

Buonasera a tutti
penso succeda a tutti di sbattersi un giorno intero senza poterne venire a capo.

Nelle schede del personale caricate nel pc, hanno inserito solo una data iniziale (sebbene inserito Fine) e la categoria, e poi la cronologia e le date di ogni fine attività lavorativa.

In questo modo:
CodFisc.—-Cronol—— dataInizio—-—dataFine——categoria
XXXX.—— ——1————VUOTO———00/00/00——VUOTO
XXXX.—— ——2————VUOTO———00/00/00——VUOTO
XXXX.—— ——3————VUOTO———00/00/00——VUOTO
XXXX.—— —-Fine—-—00/00/00—--—VUOTO————A

YYYYY.—— ——1—-——00/00/00——00/00/00——VUOTO
YYYYY.—— ——2——-—00/00/00——00/00/00——VUOTO
YYYYY.—— —Fine—--—00/00/00—-—VUOTO————B

ZZZZ.—— ——1————VUOTO———00/00/00——VUOTO
ZZZZ.—— ——2————VUOTO———00/00/00——VUOTO
ZZZZ.—— ——3————VUOTO———00/00/00——VUOTO
ZZZZ.—— ——4————VUOTO———00/00/00——VUOTO
ZZZZ.—— —Fine——-—00/00/00———VUOTO————C

In pratica se il campo è vuoto deve essere valorizzato con il valore del corrispondente record ‘Fine’.
In tal modo sarà possibile calcolare i giorni lavorati.

Ho utilizzato il listato di un codice di un altro programma già funzionante (ma in disuso da snni).
Access trova mille problemi. Una volta mi dice loop senza do , il che non è vero. Apertura connessione Dao e lo indica mancante nei riferimenti e tanti sltri.

Sto scrivendo , vista l’ora ,dal cellulare e non posso postare il codice. Lo farò domattina.
Grazie anticipatamente a chi vorrà aiutarmi.
......

puoi semplicemente usare una QUERY
il campo calcolato esegue un IF (SE)
sulla data inizio
Se datainzio=NULL
Scrivi data fine
altrimenti scrivi datainzio

Su questa query baserai i tuoi calcoli

Se vuoi cimentarti con il VBA leggi quest'articolo
[Access] Leggere/scrivere dati nelle tabelle tramite VBA (DAO)

Ciao

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

Found... utilizza i tag CODE per il codice nel forum. Correggi il messaggio precedente, grazie.

Non può bastare una query Update...?

Update T1 SET FLD1=tuovalore
WHERE fld1 is null

Poi la esegui con execute...

Originariamente inviato da AntonioG

Found... utilizza i tag CODE per il codice nel forum. Correggi il messaggio precedente, grazie.

chiedo scusa, l'avevo dimenticato ....

Originariamente inviato da @Alex

Non può bastare una query Update...?

Update T1 SET FLD1=tuovalore
WHERE fld1 is null

Poi la esegui con execute...

Grazie Alex, sicuramente più immediato

ma ... prima dovrei leggere DataInizio del rigo Fine, poi tornare indietro e (per lo stesso CodFisc) nelle righe precedenti se il valore di DataInizio isNull fare l'update, quindi passare al CodFisc successivo e con la query non ho chiaro come fare tutto questo.

motivo per cui ho pensato a quel codice postato prima

Io non ho capito nulla... magari spiegati meglio.
Ino ogni caso il codice che hai pubblicato non funziona di certo, continui a ciclare il RS 3 volte ad ogni ciclo perdendo di vista il Bookmark principale... questo è assurdo.

Nella sostanza devi lavorare con 2 Recordset Annidati.
Se ad essere il criterio principale è il C.F. allora devi estrarre una prima Query Raggruppata o in DISTINCTROW per C.F. nel primo RS Esterno in sola lettura, poi apri un RS interno, in Scrittura, in cui imponi il Criterio del C.F., e solo in quello vai a ciclare i dati guardando la Data...

Vedi tu.

Originariamente inviato da @Alex

Io non ho capito nulla... magari spiegati meglio.
Ino ogni caso il codice che hai pubblicato non funziona di certo, continui a ciclare il RS 3 volte ad ogni ciclo perdendo di vista il Bookmark principale... questo è assurdo.

Nella sostanza devi lavorare con 2 Recordset Annidati.
Se ad essere il criterio principale è il C.F. allora devi estrarre una prima Query Raggruppata o in DISTINCTROW per C.F. nel primo RS Esterno in sola lettura, poi apri un RS interno, in Scrittura, in cui imponi il Criterio del C.F., e solo in quello vai a ciclare i dati guardando la Data...

Vedi tu.

OK grazie.

Esaustivo come sempre, ci proverò

Originariamente inviato da @Alex

Nella sostanza devi lavorare con 2 Recordset Annidati.
Se ad essere il criterio principale è il C.F. allora devi estrarre una prima Query Raggruppata o in DISTINCTROW per C.F. nel primo RS Esterno in sola lettura, poi apri un RS interno, in Scrittura, in cui imponi il Criterio del C.F., e solo in quello vai a ciclare i dati guardando la Data...

Vedi tu.

Fatto! Esattamente come hai suggerito.

A questo punto si manifesta il problema della velocità ....
Tab1 ha 22000 codici fiscali (distinctrow)
Tab2 ha 55000 associazioni

In pratica avendone - in una ora - sistemati 8000 (tab2), significa attendere una elaborazione di 7 ore!

C’è qualche altra soluzione che possa ridurre questo tempo?

Nota: pensando di accelerare ho ordinato in ordine crescente i CF di entrambe le tabelle
ed aggiunto questa riga all’RS interno:
If ps!CodFisc <> rs!CodFisc then exit do

dopo la riga ps.movenext

Però in questo modo non si avvia neppure.

Per cui al momento sta lavorando , nella speranza di trovare un’alternativa prima delle 7 ore.