Inserire valori in tabella di cui non si conosce il nome dei campi

di il
8 risposte

Inserire valori in tabella di cui non si conosce il nome dei campi

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.

8 Risposte

Devi accedere o registrarti per scrivere nel forum
8 risposte