Changer la valeur d'une cellule Access en VBA

Version imprimable

Bonjour à tous,

J'ai fait une condition pour update ma table Access,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Rst1 As DAO.Recordset
Dim Rst2 As DAO.Recordset
 
Set Rst1 = CurrentDb.OpenRecordset("select Collaborateur,Filiale,[Code budgétaire] from [4_Table  résultat]")
Set Rst2 = CurrentDb.OpenRecordset("select SOUS_TETE_FACTUREE,[libellé de Filiale],[Codes Budgétaires] from [3_Gestion de parc-Rapport Comptable]")
 
Do Until Rst1.EOF
' ici le traitement
 If Rst1.Fields("Collaborateur") = "SÉBASTIEN COUSIN" And Rst1.Fields("Code budgétaire") = "FR101155" _
     And Rst1.Fields("Filiale") = "SFRS" And Rst2.Fields("libellé de Filiale") <> "HORS PERIMETRE" Then
         Rst1.Fields("Collaborateur") = "Sans Affectation" And Rst1.Fields("Code budgétaire").Refresh = "Sans Affectation" And Rst1.Fields("Filiale") = "Sans Affectation"
 
 End If

Mais le code Rst1.Fields("Collaborateur") = "Sans Affectation" ne permet pas de modifier la valeur de cellule concernée. Il affiche l'erreur d'exécution '13': Imcompatibilité de type.

Merci de votre aide!

27/06/2013, 23h01
Jean-Philippe André
salut,

c'est quoi ton and en dehors de la zone de test ?

il faut remplacer

Code:

Rst1.Fields("Collaborateur") = "Sans Affectation" And Rst1.Fields("Code budgétaire").Refresh = "Sans Affectation" And Rst1.Fields("Filiale") = "Sans Affectation"

par
Code:

1 2 3 Rst1.Fields("Collaborateur") = "Sans Affectation" Rst1.Fields("Code budgétaire")= "Sans Affectation" Rst1.Fields("Filiale") = "Sans Affectation"
pour valider les mises à jour il faut un

Code:

Rst1.Update
28/06/2013, 09h20
ivoratparis

Merci bp et il faut également ajouter Rst1.Edit au début.