adodb word access

Bonjour,

J'utilise dans mon boulot une base access et un word 2003. J'utilise la base pour faire du publipostage mais, à partir de word, j'envoie aussi des info dans accesse.
Jusqu'à présent, j'avais uniqument utilisé une macro qui envoyait des info sous forme d'un nouvel enregistrement dans access.
Le bout de macro était le suivant :


Dim rsT As ADODB.Recordset
Dim fd As ADODB.Field
Dim maTable As String

Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
If valeurtache = 229 Then
maTable2 = "T_Tâche_2"
tachexéc = "True"
End If


With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "C:\base\cabinet.mdb"
End With

With rsT
.ActiveConnection = Conn
.Open maTable2, LockType:=adLockOptimistic
.AddNew
.Fields("Code_tâche_nécessaire").Value = TN
.Fields("Code_dossier").Value = valeurdossier
.Fields("Date_réalisation").Value = datetache
.Update
End With


rsT.Close
Conn.Close

Je voudrais pouvoir utiliser la macro pour modifier un enregistrement de cette table (plus concrètement, je voudrais modifier l'enregistrement sélectionné pour qu'un champ case à cocher soit affecter de "true").
Je suppose que je vais devoir virer le Addnew mais franchement je suis bloqué.
Si quelqu'un peut m'aider, ce serait génial.

Merci à tous

Après le .Open, fais .Execute "UPDATE maTable2 SET tonChamp=True WHERE critere=x;"

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Merci beaucoup pour l'aide mais en fait, ça ne marche pas. Il me refuse le .execute

Quelle erreur obtiens-tu ?


VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

j'obtiens une erreur 461 erreur de compilation - membre de méthode ou de données introuvable.

J'avais pourtant adapter le code de la façon suivante :


Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fd As ADODB.Field
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset

maTable2 = "T_Tâche_2"
datetache = Date
TN = 230
TB = 15
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "C:\base\cabinet.mdb"
End With

With rsT
.ActiveConnection = Conn
.Open maTable2, LockType:=adLockOptimistic
.Execute "update maTable2 set tâche_exécutée =true where NTâche=872"
.Update
End With

rsT.Close
Conn.Close

Le NTâche est un code artificiel pour tenter de modifier l'enregistrement 872. Evidemment dans la version non test, le NTâche est déterminé par une recherche dans la macro.

Désolé de ne pas avoir précisé, je parlais du .Open de la connexion (le reste du code est inutile, à part la fermeture de la connexion et la destruction de l'objet). Pour info, tu peux faire l'insertion de la même façon via un INSERT INTO.

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

rien de mieux.
J'ai pourtant modifié comme ça :


With rsT
.ActiveConnection = Conn
.Execute "update maTable2 set tâche_exécutée =true where NTâche=872"
.Update
End With

et toujours le même message. Erreur de compilation.

.Open de la connexion =.Open après .Provider=xxx

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

ça marche. Merci infiniment pour ton aide.

En fait, j'ai encore un plantage.
Mon code est le suivant :


valeurtache = Val(ActiveDocument.MailMerge.DataSource.DataFields(NumDetache).Value)

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fd As ADODB.Field
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "C:\base\cabinet.mdb"
.Execute "Update T_Tâche_2 Set tâche_exécutée=True where N°Tâche=valeurtache;"
End With

Superplantage.
Valeurtache est un champ d'une base access. Dans mon exemple, la valeur du champ est 871.
Si je suis ma macro, j'ai bien une valeurtache de 871. Quand j'arrive au .execute...plantage.
Si dans cette partie, je remplace le valeurtache par 871, ça marche.
Mais ce que je voudrais, c'est évidemment que mon execute utilise la valeur récupérée ailleurs.
Si tu as une idée....