In una procedura VBA di ACCESS (di OFFICE 365), che ho realizzato per una associazione di volontariato, voglio eseguire delle statistiche su valori contenuti in alcune tabelle; vi risparmio il codice e le tabelle utilizzate ma cerco di fare una sintesi del problema.
Ho due tabelle; la tabella1 contiene i nomi dei campi del record di tabella2.
Il mio obiettivo è quello di utilizzare il contenuto della tabella1 per individuare e valorizzare i campi della tabella2.
Supponendo che il contenuto della tabella1 sia:
record 1 = "cam1"
record 2 = "cam2"
Mentre tabella2 non contiene alcun record
Ho il seguente codice che accede alle tabelle.
Dim pnt1 AS Recordset
Dim pnt2 AS Recordset
Dim nome_campo AS String
Set pnt1 = CurrentDB.OpenRecordset ("SELECT tabella1.campo1 FROM tabella1")
Set pnt2 = CurrentDB.OpenRecordset ("SELECT tabella2.cam1, tabella2.cam2 FROM tabella2")
fino qui tutto bene; ora voglio aggiungere un nuovo record in tabella2 e valorizzare cam1 e cam2 traendo il nome del campo dalla tabella1
questo è il pseudo-codice per spiegare ciò che vorrei ottenere:
pnt2.AddNew
nome_camp = cam1
pnt2![nome_camp] = "pippo" ' valorizza pnt2!cam1
nome_camp = cam2
pnt2![nome_camp] = 1234 ' valorizza pnt!cam2
pnt2.Update
alla fine la tabella2 dovrà contenere il nuovo record -> pippo, 1234
Ho fatto ricerche su internet ma non ho trovato soluzioni; un grazie anticipato a chi potrà darmi una dritta per risolvere il quesito.