Discussion :

[myriame]

bonjour à tous !

j'ai un souci je souhaite supprimer un client que j'ai sélectionné dans ma zone de liste ainsi j'ai écris ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande86_Click()
Dim db As Database
Dim sql As String
Set db = CurrentDb
'vérification
If IsNull(Me!simple) = True Then
MsgBox ("Veuillez sélectionner le client a supprimer.")
Else
'suppression
CurrentDb.Execute " delete * from client where Num_cli = " & Forms!supprimerclient!simple.Column(1) & ";"
MsgBox ("le client" & Me!simple & "a bien été supprimé")
End If
End Sub

cependant lorsque je l'execute grâce à un bouton qui se trouve dans mon formulaire j' obtient ce message d'erreur : Trop peu de paramètres. <nombre> attendu. (Erreur 3061)
je n'arrive pas à résoudre ce problème.

[LedZeppII]

Bonjour,

Es-tu sure que Forms!supprimerclient!simple.Column(1) retourne bien le numéro de client ?
Column(1) = 2ème colonne.

A+

[Orion34080]

Autre possibilité si (malgré son nom) Forms!supprimerclient!simple.Column(1) est une rubrique de type texte :

Code :

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

CurrentDb.Execute " delete * from client where Num_cli = '" & Forms!supprimerclient!simple.Column(1) & "'"

Michel

[myriame]

merci le problème est résolu c'était les erreurs que vous m'aviez indiquées )