supprimer un enregistrement

[myriame]

bonjour,
j'ai écris un code pour supprimer un enregistrement voulu par l'utilisateur, c'est-à-dire il rentre le numéro client quand il click sur le bouton supprimer tous les enregistrement concernant le client choisi sont supprimé!
voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Commande89_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = CurrentDb
sql = "select* from clients where rs!Num_cli= forms!clients!Num_cli"
Set rs = db.OpenRecordset(sql)
If rs.EOF = False Then rs.MoveFirst
Do While rs.EOF = False
If MsgBox("Voulez vous supprimer le client " & rs!Num_cli& "?", vbYesNo) = vbYes Then
rs.Delete
End If
rs.MoveNext
Loop
MsgBox ("Le client " & rs!Num_cli & " a été supprimé")
rs.Close
End Sub

cependant sa ne fonctionne pas acces me dis : trop peu de paramètres!

[Orion34080]

Je crois que ton probleme pourrait venir de là

Code :

sql = "select* from clients where rs!Num_cli= forms!clients!Num_cli"

Il faut indiquer la rubrique de ta table (sans le rs à mon avis).

Il m'est impossible de tester pour l'instant ... essayes de ton côté

Michel

[myriame]

sa ne fonctionne toujours pas, il me dise toujours trop peu de paramètre. 1 attendu
je ne comprend pas !!!

[Orion34080]

En plus si c'est juste pour supprimer un seul enregistrement tu pourrais sans doute faire plus simplement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Commande89_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String
 
Set db = CurrentDb
sql = "select * from clients where Num_cli= forms!clients!Num_cli"
Set rs = db.OpenRecordset(sql)
 
If not rs.EOF then
      If MsgBox("Voulez vous supprimer le client " & rs!Num_cli & "?", vbYesNo) = vbYes Then
      rs.Delete
End If
 
MsgBox ("Le client " & rs!Num_cli & " a été supprimé")
rs.Close
End Sub

[Orion34080]

Pour ma part j'utilise ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim rs as recordset
Dim StrSql as string
 
Set rs = New ADODB.Recordset
 Strsql = "SELECT * from .... etc."
rs.Open Strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
If not rs.EOF then
 
etc.
 
End If

Michel