Bonjour, j'ai écris une procédure pour supprimé un enregistremrement !
la voici :
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
'supprimer un client
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = CurrentDb
'vérification que les informations ont bien été saisies
If IsNull(Forms!sup_CLIENTS!Nom_Cli) = True Then
MsgBox (" Veuillez sélectionner un Client")
Else
sql = "select*from CLIENTS where Nom_Cli= " & Forms!sup_CLIENTS!Nom_Cli & ""
Set rs = db.OpenRecordset("CLIENTS")
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
Do While rs.EOF = False
'vérification que l'utilisateur veut toujours supprimé le client
If MsgBox("Voulez vous supprimer le client" & rs!Nom_Cli, vbYesNo) = vbYes Then
rs.Delete
End If
rs.MoveNext
Loop
MsgBox ("le client a bien été supprimé.")
rs.Close
DoCmd.Close
End If
End Sub
le problème quand je l'execute, je recoi un message disant :
erreur de syntaxe (opérateur absent) dans l'expression "Nom_Cli=????.
sachant que ???? c'est l'enregistrement que je veux supprimer !

merci de bien vouloir m'aider