Eliminare record correlati -Access

Question

Buon pomeriggio, ho creato il codice sottostante per eliminare il record selezionato, ma non elimina nulla poiché mi compare il messaggio di errore allegato.

Come fare per poter eliminare il record selezionato con tutti i record correlati nelle altre tabelle?

Ciao Nicola.

Private Sub Comando216_Click()

Dim intAnswer As Integer

If Me.CognomeNome.Value & "" = "" Then

 MsgBox "Non è stato selezionato nessun Record da cancellare, campo Cognome e Nome Vuoto.", vbInformation, "OPERAZIONE IRREVERSIBILE"

Exit Sub

Else

intAnswer = MsgBox("Sei sicuro di voler eliminare questo record?", vbCritical + vbDefaultButton2 + vbYesNo, "ELIMINA RECORD")

    If intAnswer = vbYes Then

        If MsgBox("Sei proprio sicuro?" & Chr(13) _

        & " Non potrai piu' recuperare i dati cancellati!!!", vbCritical + vbYesNo + vbDefaultButton2, "OPERAZIONE IRREVERSIBILE") = vbNo Then

        Exit Sub

        Else

        DoCmd.SetWarnings False

        RunCommand acCmdSelectRecord

        DoCmd.RunCommand acCmdDeleteRecord

        DoCmd.SetWarnings True

        End If

    End If

Me.Requery

Me.Refresh

End If

End Sub

Answer 1

ciao Nicola,

un milione di anni fa....qui ....

http://web.mclink.it/MC5884/ faq.3.100 Individuare, in fase di cancellazione di un record, la correlazione di quel record con record di altre tabelle

avevo sviluppato una funzione appoggiandomi al metodo IsDependentUpon.

Se scarichi la demo trovi la funzione applicata a diverse maschere, trovi un bidone che ti permette di mostrare le correlazioni.

da qui, a cancellare il record correlato credo manchi poco.

Non ricordo nulla circa il suo funzionamento, ma testandolo gira ancora....forse anche da rivedere nella logica...magari se ho un attimo controllo....

Dacci un occhio...

Ciao, Sandro.

Answer 2

Ciao Mimmo, ti allego l'immagine di tutte le tabelle in relazione tra loro, dimmi cosa ho sbagliato, lo posso migliorare e correggere.

Attendo tuoi consigli.

Answer 3

La tabella in questione tblAutoFinanziamento con quali tabelle è in relazione?

Answer 4

Ciao Mimmo, tutte le tabelle hanno gli id come chiavi primarie, e non mi permettono di spuntare le opzioni per eliminare i record correlati a catena. Come fare, devo eliminarli uno per uno.

Answer 5

Ciao Nicola,

non conosco quali tabelle siano coinvolte, in generale puoi eliminare il padre solo dopo aver eliminati i figli ( i nipoti ecc...).

Prova descrivere quali tabelle sono in relazione con tblAutoFinanziamento. Se questa tabella ha un ID (cosa consigliabile) hai qualche tabella che contiene questo ID come chiave esterna?

Mimmo