Discussion :

[bertin19]

Bonjour à tous,

j'ai un problème. J'ai créé une base de données dans access 2007 contenant une table T_propriétaire et une table T_parcelle. J'ai un formulaire dans lequel j'ai créé un bouton supprimer, qui permet de supprimer un propriétaire.

Problème :
- quand j'applique les propriétés "Mettre à jour en cascade les champs correspondants" et "Effacer en cascade les enregistrements correspondants" dans la relation Proprietaire_Parcelle, il me supprime le propriétaire dans la table T_proprietaire et toutes les parcelles du propriétaire dans la table T_parcelle. Alors que je souhaite supprimer le propriétaire et conserver la liste de mes parcelles dans ma table T_parcelle.
- quand je n'applique pas les propriétés précédentes, rien n'est supprimé.

je signale que j'ai une relation un-à-plusieurs (un propriétaire pour plusieurs parcelles).

Merci déjà pour votre aide !

[vg-matrix]

Je crois que cela est normal puisque selon ta relation, les parcelles dépendent des propriétaires. Avec une autre DB, on te dira par exemple "Impossible de supprimer" parcequ'il y a des dépendances entre ces enregistrements . Je te conseil donc d'annuler ces relations dans la table parcelle en effaçant l'identifiant du propriétaire dans les enregistrements des parcelles correspondantes, puis reviens ensuite supprimer le propriétaire. Essais ça devrait marcher.

[Demco]

quand je n'applique pas les propriétés précédentes, rien n'est supprimé.

Il refuse probablement de supprimer le propriétaire justement parce que des parcelles pointent sur lui (clé étrangère).
Il faut donc dans un premier temps supprimer les liens existant vers ce propriétaire pour ensuite pouvoir supprimer ce propriétaire. Sinon l'intégrité référentielle n'est pas assurée.

A faire donc :
- Requête UPDATE -> faire ne sorte qu'aucune parcelle ne pointe sur ce propriétaire
- Requête DELETE -> supprimer le propriétaire

En espérant t'aider.

[bertin19]

Merci Demco pour ta reponse. Je vais essayer pour voir si ca marche.

[Invité]

Bonjour

Un conseil n'utilises que celle-là : "Mettre à jour en cascade les champs correspondants", la suppression en cascade est à éviter fortement, je préfère comme Demco utiliser des requêtes pour supprimer.

Starec

[bertin19]

Bonjour,

j'ai essayé de suivre le conseil de Demco; j'ai créé une requete UPDATE pour faire en sorte qu'aucune parcelle ne pointe vers le proprietaire à supprimer. Avec une requete Mise à jour de Access, ca marche : les parcelle ne pointe plus vers le proprietaire et je peux supprimer sans risque mon propriétaire. Mais quand je veux le mettre en VBA pour avoir les deux actions (UPDATE et DELETE) sur un seul bouton (evenement sur clic), ca ne bug pas mais ca ne marche pas non plus (pas de mise à jour, pas de suppression). je ne comprends pas !

Je signale que j'ai dans mon formulaire une liste déroulante (choix_proprietatire) qui me permet de choisir le proprietaire à supprimer.

Dans la relation parcelle_proprietaire, j'ai appliqé l'intégrité référentielle et la mise à jour en cascade. Voici le code que j'ai utilisé pour mon bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub supprimer_Click()
Dim MaBD As Database
Dim Msg As String
Dim MonSQL As String
Dim Reponse As Integer
 
Set MaBD = CurrentDb
 
Msg = MsgBox("Etes-vous sûr de vouloir supprimer l'enregistrement en cours ?", vbYesNo + vbCritical, "Supprimer enregistrement")
 
'faire un choix
If Msg = vbYes Then
Reponse = MsgBox("La suppression d'un enregistrement ne peut pas être annulée." & vbCr & vbCr & "Cliquez sur OK pour confirmer.", 49 + 256, "Confirmer la suppression")
 
'si le bouton OK est sélectionné, supprimer cet enregistrement
If Reponse = 1 Then
 
'supprime l'enregistrment
 
MaBD.Execute "UPDATE T_parcelle SET Id_prop = ''" & "WHERE Id_prop = '" & [Forms]![F_proprietaire]![choix_proprietaire] & "';"
 
MaBD.Execute "DELETE * FROM T_proprietaires " & "WHERE [Id_prop] = '" & Me.choix_proprietaire & "';"
 
End If
 
MaBD.Close
Set MaBD = Nothing
 
'afficher enregistrement suivant
DoCmd.GoToRecord , , acNext
'mise à jour liste déroulante
Me.choix_proprietaire.Requery
Me.Requery
Me.choix_proprietaire = " "
 
End If
 
End Sub

[bertin19]

Bonjour à tous,
j'ai continué à chercher, le problème que j'ai plus haut demeure. J'arrive toujours pas à avoir une solution.

Aidez-moi please !!!

[Invité]

Bonjour

As-tu lu et testé toutes les solutions qui ont été proposées ?

Starec

[bertin19]

Bonjour Starec merci pour ton intervention.

J'ai testé les solutions. Quand je fais chaque opération (UPDATE, DELETE)séparément ca marche. Mon soucis est que j'arrive pas à combiner les deux actions sur un seul boutons; c'est-à-dire quand l'utilisateur clique une fois sur ce bouton le lien entre le proprietaire choisit dans ma liste déroulante et ses parcelles est supprimé, et du coup le propriétaire est aussi supprimé.

J'espère être assez clair

Merci encore !

[Invité]

Bonjour

Un conseil n'utilises que celle-là : "Mettre à jour en cascade les champs correspondants", la suppression en cascade est à éviter fortement, je préfère comme Demco utiliser des requêtes pour supprimer.

Starec

[bertin19]

Merci ca marche :

j'ai créé une macro incorporée à mon bouton. Elle ouvre deux requetes: une requete de mise à jour et une requete de suppression. Ensuite, je lui demande d'actualiser mon controle et ca marche. Mon seul petit soucis est que le nom du propriétaire supprimé reste afficher; je veux juste trouver un moyen pour afficher automatiquement le proprietaire suivant de ma liste.

Mille merci, je suis content de réussir !

[Invité]

alors un petit clique sur le bouton