Discussion :

[vnt2784]

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 :

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
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

[philben]

bonjour,

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

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
 
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

[vnt2784]

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

[philben]

re bonjour,

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

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