Andiamo per gradi.
ho provato ad impostare una relazione utilizzando questo codice
codice:
Public Sub crearelazione()
Dim db As Database
Dim rel As Relation
Set db = CurrentDb
'****NON FUNZIONAAA*********
With db
' creare la relazione con update e delete cascade
Set rel = .CreateRelation("nuovarel", "ISCRITTI", "ISCRITTI_NEW")
' creare i campi nella relazione
rel.Fields.Append rel.CreateField("ID")
rel.Fields!Id.ForeignName = "ID_"
.Relations.Append rel
End With
Set rel = Nothing
End Sub
quando va in esecuzione ... aggiorno: ora ho lanciato l'esecuzione del programma per copiare il messaggoi di errore, ma funziona benissimo.... o_O.... non capisco....