[VBA]Problème sur tri de documents

bonjour tout le monde
j'ai un problème VBA (appliqué dans Access)
au fait, je dois trier les documents( dans le champs "nom_doc") et mettre le résultat dans la champ "type_doc"
par ex: nom document: calendrier.xls ==> type_doc: excel......
voici mon code (erreur: membre de méthode ou de données introuvable)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Commande0_Click()     Dim rs As Recordset   Set rs = db.openrecordset("consommation") rs.MoveFirst While Not rs.EOF   rs.Edit If InStr(nom_document, ".xls") > 0 Then   rs!type_document = "excel"   End If rs.Update     rs.MoveNext Loop End Sub

---

une petite indée pour me sauver????
merci

bonjour,

ce code devrait fonctionner, vérifier le nom des colonnes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Commande0_Click() On Error GoTo errortag Dim oDb As DAO.Database Dim oRs As DAO.Recordset Set oDb = CurrentDb Set oRs = oDb.OpenRecordset("consommation", dbOpenTable) Do Until oRs.EOF If InStr(oRs.Fields("nom_document"), ".xls") > 0 Then oRs.Edit oRs.Fields("type_document") = "Excel" oRs.Update End If oRs.MoveNext Loop fin: Set oRs = Nothing Set oDb = Nothing Exit Sub errortag: 'Ma gestion d'erreur Resume fin End Sub

---

cordialement,

Philippe

merci pour la réponse,
Après avoir mis le code, pour l'enregistrer, il y a une autre fenêtre de module qui demande un code aussi?
Donc, à quoi ça sert le module ? Quelle est la différence entre le module et le formulaire (où je crée un bouton de commande afin d'exécuter VBA)?
Merci

re bonjour,

d'après l'en-tête de votre fonction :

Citation:

---

Private Sub Commande0_Click()
...

---

il 'agit d'un code a exécuter sur l'évènement click sur le contrôle <commande0> de votre formulaire. Le code est placé dans le module lié à votre formulaire.
Il faut donc créer l'évènement via la fenetre des propriétés de votre contrôle puis copier dedans le code désiré.

Cordialement,
Philippe