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
|
Public Sub SupprimeEnreg(ByVal MaTable As String, ByVal MaCle1 As String, ByVal MaCle2 As String, _
ByVal MaValeur1 As Integer, ByVal MaValeur2 As Integer, Optional MaCle3 As String, Optional MaValeur3 As Integer)
'--------------------------------------------------------------------------------------------
'Objectif : Supprimer des enregistrements spécifiques dans une table
'Méthodologie : Construire une requête de suppression SQL dynamique sur une table passée en paramétre
' ainsi que les clés et valeurs de l'enregistrement à supprimer
'--------------------------------------------------------------------------------------------
Dim msql As String
If IsNull(MaCle2) Or MaCle2 = "" Then ' si le 2éme critère n'est pas renseigné
msql = "Delete * From " & MaTable & " Where " & MaCle1 & " = " & MaValeur1
Else
If IsNull(MaCle3) Or MaCle3 = "" Then ' si le 3éme critère n'est pas renseigné
msql = "Delete * From " & MaTable & " Where " & MaCle1 & " = " & MaValeur1 & " and " & MaCle2 & " = " & MaValeur2
Else
msql = "Delete * From " & MaTable & " Where " & MaCle1 & " = " & MaValeur1 & " and " & MaCle2 & " = " & MaValeur2 & " and " & MaCle3 & " = " & MaValeur3
End If
End If
DoCmd.SetWarnings False
DoCmd.RunSQL (msql)
DoCmd.SetWarnings True
End Sub |
Partager