TbAttori: idAttore, cognome, nome, natoil, sesso, e un campo "allegati" dove inserisco la foto (in grassetto chiave primaria)
tbFilm: idFilm, Titolo
tbMM: KEidAttore, KEidfilm (dove KE sta per key esterna)
Codice "non in elenco" sulla combo della Attore-sfFilm e questa funziona regolarmente
Private Sub KEidFilm_NotInList(NewData As String, Response As Integer)
Response = acDataErrAdded
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbFilm", dbOpenDynaset)
rs.AddNew
rs!Titolo = NewData
rs.Update
rs.Close: Set rs = Nothing
Set db = Nothing
End Sub
ora segue il codice della fr Film-sfAttori e questa invece toppa da qualche parte.
Private Sub KEidAttore_NotInList(NewData As String, Response As Integer)
Response = acDataErrAdded
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbAttori", dbOpenDynaset)
rs.AddNew
'la stringa attore è costituita dal cognome e dal nome separati da *
'quindi si individua la pos(izione) di * e si estrae il cognome
pos = InStr(NewData, "*")
cogn = Left(NewData, pos - 1)
'e poi il nome
nom = Mid(NewData, pos + 1)
' e ora si aggionano i relativi campi
rs!cognome = cogn
rs!nome = nom
rs.Update
rs.Close
Set rs = Nothing
Response = acDataErrContinue
Set db = Nothing
End Sub
le join delle relazioni sono: idAttore-KEidAttore e idFilm-KEidFilm
Credo di averti dato tutte le informazioni e soprattutto spero di essere stato chiaro
Grazie per l'aiuto, Saluti
NSantini