Akery
2024-01-12 11:33:05 UTC
buongiorno,
ho la necessità di aggregare questi dati:
classe_attività cod_descr edifici e piani in uso idlocale
ALTRO 001 PTECA.I1 1I035
ALTRO 001 PTECA.I1 1I040
ALTRO 001 PTECA.I1 1I041
ALTRO 001 PTECA.I1 1I042
ALTRO 001 PTECA.I1 1I043
ALTRO 001 PTECA.I1 1I044
ALTRO 001 PTECA.I1 1I045
ALTRO 001 PTECA.I1 1I047
ALTRO 001 PTECA.I1 1I074
ALTRO 001 PTECB.T 036
ALTRO 001 PTECB.T 037
ALTRO 001 PTECB.T 038
ALTRO 001 PTECB.T 038
ALTRO 001 PTECB.T 042
ALTRO 001 PTECB.T 042
ALTRO 001 PTECB.T 042
ALTRO 001 PTECB.T 042
ALTRO 001 PTECC.1 101
ALTRO 001 PTECC.1 102
ALTRO 001 PTECC.1 105
ALTRO 001 PTECC.1 106
ALTRO 001 PTECC.1 109
ALTRO 001 PTECC.1 110
in questi:
classe_attività,cod_descr,edifici e piani in uso, idlocale
ALTRO, 001, PTECA.I1, 1I035; 1I040; 1I041; 1I042; 1I043; 1I044; 1I045;
1I047; 1I074
ALTRO, 001, PTECB.T, 036; 037; 038; 042
ALTRO, 001, PTECC.1, 101; 102; 105; 106; 109; 110
ho scritto quanto segue ma non riesco a venirne a capo
Dim RS1 As Recordset, RS2 As Recordset
Dim SourceTable As String, TargetTable As String
'-- Definizioni --
SourceTable = "02_pre_att_sicura"
TargetTable = "sicura_attività"
'------------------
Set RS1 = CurrentDb.OpenRecordset(SourceTable, dbOpenDynaset)
Set RS2 = CurrentDb.OpenRecordset(TargetTable, dbOpenDynaset)
RS1.MoveFirst
Do Until RS1.EOF
claatt = RS1!classe_attività
coddes = RS1!cod_descr
ediepi = RS1![edifici e piani in uso]
idloca = RS1!idlocale
titatt = RS1!titolo_attività
fatdir = RS1![fattore di Rischio]
RS1.MoveNext
Do While RS1!classe_attività = claatt And RS1!cod_descr = coddes And
RS1![edifici e piani in uso] = ediepi
idloca = idloca & RS1!idlocale & "; "
RS1.MoveNext
Loop
RS2.AddNew
RS2![edificio_e_piano] = ediepi
RS2![id_locale] = idloca
RS2!classe_att = claatt
RS2!cod_descr = coddes
RS2!titolo_att = titatt
RS2!fattori_di_rischio = fatdir
RS2!stato_att = "attiva"
Loop
grazie
ho la necessità di aggregare questi dati:
classe_attività cod_descr edifici e piani in uso idlocale
ALTRO 001 PTECA.I1 1I035
ALTRO 001 PTECA.I1 1I040
ALTRO 001 PTECA.I1 1I041
ALTRO 001 PTECA.I1 1I042
ALTRO 001 PTECA.I1 1I043
ALTRO 001 PTECA.I1 1I044
ALTRO 001 PTECA.I1 1I045
ALTRO 001 PTECA.I1 1I047
ALTRO 001 PTECA.I1 1I074
ALTRO 001 PTECB.T 036
ALTRO 001 PTECB.T 037
ALTRO 001 PTECB.T 038
ALTRO 001 PTECB.T 038
ALTRO 001 PTECB.T 042
ALTRO 001 PTECB.T 042
ALTRO 001 PTECB.T 042
ALTRO 001 PTECB.T 042
ALTRO 001 PTECC.1 101
ALTRO 001 PTECC.1 102
ALTRO 001 PTECC.1 105
ALTRO 001 PTECC.1 106
ALTRO 001 PTECC.1 109
ALTRO 001 PTECC.1 110
in questi:
classe_attività,cod_descr,edifici e piani in uso, idlocale
ALTRO, 001, PTECA.I1, 1I035; 1I040; 1I041; 1I042; 1I043; 1I044; 1I045;
1I047; 1I074
ALTRO, 001, PTECB.T, 036; 037; 038; 042
ALTRO, 001, PTECC.1, 101; 102; 105; 106; 109; 110
ho scritto quanto segue ma non riesco a venirne a capo
Dim RS1 As Recordset, RS2 As Recordset
Dim SourceTable As String, TargetTable As String
'-- Definizioni --
SourceTable = "02_pre_att_sicura"
TargetTable = "sicura_attività"
'------------------
Set RS1 = CurrentDb.OpenRecordset(SourceTable, dbOpenDynaset)
Set RS2 = CurrentDb.OpenRecordset(TargetTable, dbOpenDynaset)
RS1.MoveFirst
Do Until RS1.EOF
claatt = RS1!classe_attività
coddes = RS1!cod_descr
ediepi = RS1![edifici e piani in uso]
idloca = RS1!idlocale
titatt = RS1!titolo_attività
fatdir = RS1![fattore di Rischio]
RS1.MoveNext
Do While RS1!classe_attività = claatt And RS1!cod_descr = coddes And
RS1![edifici e piani in uso] = ediepi
idloca = idloca & RS1!idlocale & "; "
RS1.MoveNext
Loop
RS2.AddNew
RS2![edificio_e_piano] = ediepi
RS2![id_locale] = idloca
RS2!classe_att = claatt
RS2!cod_descr = coddes
RS2!titolo_att = titatt
RS2!fattori_di_rischio = fatdir
RS2!stato_att = "attiva"
Loop
grazie