Discussion :

[kinguepat]

Bonsoir à tous,
Après exécution du code ci-après, tous les enregistrements sont supprimés au lieu de l'enregistrement en cours.

N.B: j'ai une liste déroulante sur laquelle s'effectue la recherche. après Mise A Jour de la liste déroulante, l'enregistrement concerné s'affiche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub btnDeleteClient_Click()
Dim Valeur As String
With txtFindClient
If .ListIndex <> -1 Then
Valeur = .ItemData(.ListIndex)
CurrentDb.Execute "DELETE FROM T_Clients WHERE " & _
BuildCriteria("IDClient", dbIntegrer, Valeur), dbFailOnError
txtFindClient.Requery
End If
End With
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
Me.Undo
Cancel = False
End If

Merci pour vos différentes contributions!

[tee_grandbois]

Bonsoir,
1) passer par une requête pour supprimer un enregistrement rend caduque l'utilisation de Undo ou Cancel
2) sur le clic d'un bouton le Undo est inopérant
3) comment la sélection de l'enregistrement à supprimer se fait-elle, peux-tu expliquer ce que fait ce code ? :

Code :

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

1
2
 
BuildCriteria("IDClient", dbIntegrer, Valeur)

il vaut mieux d'abord poser la question et ensuite supprimer l'enregistrement si l'utilisateur répond Oui

[tee_grandbois]

pour BuildCriteria, j'ai la réponse. Je ne connaissais pas cette fonction. Cependant, il vaudrait mieux passer par une variable de manière à bien vérifier que le filtre est correctement exécuté :

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
Dim Valeur As String
Dim strCritere as string
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Msgbox "Suppression annulée"
    Exit sub
Else
    With txtFindClient
        If .ListIndex <> -1 Then
            Valeur = .ItemData(.ListIndex)
            strCritere = BuildCriteria("IDClient", dbIntegrer, Valeur)
            Msgbox strCritere   ' pour vérifier le filtre
	    'on met en commentaires l'exécution de la requête de suppression pour l'instant
            'CurrentDb.Execute "DELETE FROM T_Clients WHERE " & strCritere , dbFailOnError
            txtFindClient.Requery
        End If
    End With
 
End If

[kinguepat]

Bonsoir,
1) passer par une requête pour supprimer un enregistrement rend caduque l'utilisation de Undo ou Cancel
2) sur le clic d'un bouton le Undo est inopérant
3) comment la sélection de l'enregistrement à supprimer se fait-elle, peux-tu expliquer ce que fait ce code ? :

Code :

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

1
2
 
BuildCriteria("IDClient", dbIntegrer, Valeur)

il vaut mieux d'abord poser la question et ensuite supprimer l'enregistrement si l'utilisateur répond Oui

Bonjour....
Merci pour ta participation.

la sélection de l'enregistrement se fait par choix dans une liste déroulante.

[kinguepat]

pour BuildCriteria, j'ai la réponse. Je ne connaissais pas cette fonction. Cependant, il vaudrait mieux passer par une variable de manière à bien vérifier que le filtre est correctement exécuté :

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
Dim Valeur As String
Dim strCritere as string
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Msgbox "Suppression annulée"
    Exit sub
Else
    With txtFindClient
        If .ListIndex <> -1 Then
            Valeur = .ItemData(.ListIndex)
            strCritere = BuildCriteria("IDClient", dbIntegrer, Valeur)
            Msgbox strCritere   ' pour vérifier le filtre
	    'on met en commentaires l'exécution de la requête de suppression pour l'instant
            'CurrentDb.Execute "DELETE FROM T_Clients WHERE " & strCritere , dbFailOnError
            txtFindClient.Requery
        End If
    End With
 
End If

j'y avais pas pensé, je vérifie ça et reviens vers toi

[kinguepat]

tee_grandbois j'ai testé ton code mais il fait pareil que celui j'exécutais, à savoir "il supprime tous les enregistrements de ma table au lieu de supprimer l'enregistrement sélectionné"

[tee_grandbois]

quelle est la valeur affichée avec Msgbox strCritere ?

[kinguepat]

quelle est la valeur affichée avec Msgbox strCritere ?

45

[tee_grandbois]

C'est bizarre, cela devrait être : IDClient=45

[kinguepat]

Bonjour t_grandbois et à tous les membres!

Le Msgbox StrCritere affiche actuellement [IDClient] et le constat effectué est que tous les autres enregistrements sont supprimés sauf celui sélectionné.

Je rappel que l'objectif est de supprimer l'enregistrement sélectionné (à partir d'une liste déroulante).

[tee_grandbois]

Bonjour,
si StrCritere affiche seulement [IDClient] cela veut dire que la sélection ne se fait pas.
La conséquence est que la base exécute la requête suivante (qui est syntaxiquement correcte, mais qui va supprimer tous les enregistrements) :

Code :

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

CurrentDb.Execute "DELETE FROM T_Clients WHERE [IDClient]"

Il faut donc vérifier toutes les variables avant d'exécuter la requête, à commencer par la variable Valeur récupérée avec txtFindClient.itemdata(txtFindClient.Listindex)

D'autre part, je te conseille plus simplement d'exécuter ta requête comme cela :

Code :

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

CurrentDb.Execute "DELETE FROM T_Clients WHERE IDClient=" & CLng(Valeur) , dbFailOnError

cela permet au moins de ne pas supprimer tous les enregistrements si Valeur ne contient rien, car cela fera planter l'exécution

[kinguepat]

Bonjour à vous!

Je crois avoir trouvé la solution après des ramifications.

je mets le code si ça peut aider quelqu'un d'autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Valeur As String
Dim strCriteria As String
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    MsgBox "Suppression annulée"
    Exit Sub
Else
With txtFindClient
If .ListIndex <> -1 Then
Valeur = .ItemData(.ListIndex)
strCriteria = BuildCriteria("IDClient", dbIntegrer, Valeur)
DoCmd.RunSQL "DELETE FROM T_Clients WHERE IDClient=" & strCriteria, dbFailOnError
MsgBox "Suppression effectuée"
txtFindClient.Requery

merci à tous et spécialement à t_grandbois pour l'aide...