suppression d'un enregistrement en VBA word

[accro-macro]

Bonsoir tous,
j'ai un petit problème, j'essaye de supprimer un enregistrement en utilisant la méthode delete du recordset a partir de mon code :

Code :

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
 
 
Private Sub Supprimer_Click()
Dim Sup
Sup = MsgBox("Veuillez confirmer la suppression de l(enregistrement du Client", vbCritical + vbYesNo + 256, "Attention")
If Sup = vbYes Then
      MsgBox "Suppression confirmée"
End If
 
 rs.Delete
 txtNClient.Text = rs.Fields("N°Client")
 txtNomClient.Text = rs.Fields("NomClient")
 txtAdresse.Text = rs.Fields("Adresse")
 txtTelephone.Text = rs.Fields("Telephone")
 
rs.MoveNext
 
Sup = MsgBox("Vous voulez quitter", vbCritical + vbYesNo + 256, "Attention")
If Sup = vbYes Then
      MsgBox "Quitter"
End If
 
rs.Close
db.Close
 
End Sub

le probleme c'est que ca plante, je verifie l'enregistrement est bien supprimé par contre j'ai ce message d'erreur:

Code :

1
2
3
 
Erreur d'execution "3021" 
Aucun enregistrement encors

quelqu'un a une aidé de ce problème !

merci de votre aide.

[bbil]

à premiére vu il y as quelque chose de bizarre dans ton code :

Code :

1
2
3
4
5
..
rs.Delete
txtNClient.Text = rs.Fields("N°Client")
...

tu détruit un enregistrement et la ligne d'aprés tu lit son contenu !!

[accro-macro]

oui tu as raison bbil, merci encore une fois , je pensais en fait qu'il fallait préciser tout les colonnes que je voulais supprimer, c'est bête je l'avoue car je faisais la meme chose pour ajouter un enregistrement

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
   Dim Sup
Sup = MsgBox("Vous voullez rajoutez un nouveau Client", vbCritical + vbYesNo + 256, "Attention")
If Sup = vbYes Then
      MsgBox "Ajout confirmée"
End If
 
rs.AddNew
rs!N°Client = txtNClient.Text
rs!NomPClient = txtNomClient.Text
rs!Adresse = txtAdresse.Text
rs!Telephone = txtTelephone.Text
 
rs.Update

reste un petit problème , comme effacer ces infos des champs de l'application ?

[accro-macro]

pardon, je voulais dire comment effacer ces champs apres que j'ai effacé l'enregistrement,
j'ai verifié que l'enregistrement en question est effacé dans ma table access mais pas ds les champs de l'application !

[bbil]

eu ...? ils sont où tes champs...?

[accro-macro]

les champs de mon application sous word

[bbil]

Envoyé par accro-macro

les champs de mon application sous word

..? dans ton document word..?
tente un "recalcul" du document..?

[accro-macro]

une application sous forme de macro sous word bbil