Discussion :

[ivoratparis]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Jean-Philippe André]

salut,

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

il faut remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Rst1.Update

[ivoratparis]

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